StoringBackAndForth.f90

Go to the documentation of this file.

!==============================================================================
!
!  Name   :  StoringBackAndForth (sequential only; MPI is in separate file)
!
!  Remarks:  contains the SUBROUTINEs
!
!            StoreCellStateToThisCell (<LocalDynOneTimeStep<DistrLocalDynThisTime<
!                                        TimeLoop<TreeMig)
!            StoreThisCellSpecStatesToCell (<LocalDynOneTimeStep<DistrLocalDynThisTime<
!                                             TimeLoop<TreeMig)
!
!==============================================================================
! design          : H. Lischke, N. Zimmermann
! author(s)       : H. Lischke, N. Zimmermann
! implementation  : H. Lischke, N. Zimmermann
! cleaner         : T.J. Loeffler
! copyright       : (c) 1999, 03 by H. Lischke
!==============================================================================
!===================================================================== 
!===============================================================
 
  SUBROUTINE storecellstatetothiscell(lat, lon, nsp, ddegs, wtemp, drstr, avnit, brwpr, disturb, germDrought, thiscell)
      use all_par, only: stategrid, seedrain, currstateincell
      IMPLICIT NONE
 
      INTEGER, INTENT(in):: lat, lon, nsp
      REAL, INTENT(in):: ddegs, wtemp, drstr, avnit, brwpr, disturb, germDrought
 
      TYPE(currstateincell), INTENT(out):: thiscell
      
      INTEGER:: isp
 
      do isp = 1, nsp
          thiscell%sp(isp) = stategrid(lat, lon)%sp(isp)
          thiscell%sp(isp)%newseeds = seedrain(lat, lon)%sp(isp)%newseeds
          thiscell%sp(isp)%verynewseeds = seedrain(lat, lon)%sp(isp)%verynewseeds
      end do ! store the actual cell to the structure thiscell
      ! store additional, cell related information to thiscell
      thiscell%lat = lat
      thiscell%lon = lon
      thiscell%brwpr = brwpr
      thiscell%disturb = disturb
      thiscell%ddegs = ddegs
      thiscell%wtemp = wtemp
      thiscell%drstr = drstr
      thiscell%avnit = avnit
      thiscell%germDrought = germdrought
  end SUBROUTINE storecellstatetothiscell
 
!===================================================================== 
!===============================================================
 
  SUBROUTINE storethiscellspecstatestocell(lat, lon, nspc, thiscell)
      use all_par, only: stategrid, seedrain, currstateincell
      IMPLICIT NONE
 
      TYPE(currstateincell)::  thiscell
      INTEGER:: isp, lat, lon, nspc
 
      do isp = 1, nspc
          stategrid(lat, lon)%sp(isp) = thiscell%sp(isp)
          seedrain(lat, lon)%sp(isp)%newseeds = thiscell%sp(isp)%newseeds
          seedrain(lat, lon)%sp(isp)%verynewseeds = thiscell%sp(isp)%verynewseeds
      end do      
  end SUBROUTINE storethiscellspecstatestocell
!==============================================================================
!done