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