phys_state_var_mod.F90

Go to the documentation of this file.

!
! $Id:  $
!
MODULE phys_state_var_mod
!======================================================================
! Variables saved in startphy.nc
!======================================================================

!USE dimphy, only : klon
 

!REAL, ALLOCATABLE, SAVE :: rlat(:), rlon(:)
!!$OMP THREADPRIVATE(rlat,rlon)

CONTAINS

!======================================================================
  SUBROUTINE phys_state_var_init()
!  use dimphy, only : klon

!  if (.not.allocated(rlat)) then
!    ALLOCATE(rlat(klon),rlon(klon))
!  else
!    write(*,*) "phys_state_var_init: warning, rlat already allocated"
!  endif
  
  END SUBROUTINE phys_state_var_init

!======================================================================
  SUBROUTINE phys_state_var_end
!  use dimphy, only : klon

!  deallocate(rlat,rlon)

  END SUBROUTINE phys_state_var_end

END MODULE phys_state_var_mod