source: LMDZ6/trunk/libf/phydev/phys_state_var_mod.f90

Last change on this file was 5268, checked in by abarral, 8 days ago

.f90 <-> .F90 depending on cpp key use
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 894 bytes
Line 
1!
2! $Id:  $
3!
4MODULE phys_state_var_mod
5!======================================================================
6! Variables saved in startphy.nc
7!======================================================================
8
9!USE dimphy, only : klon
10 
11
12!REAL, ALLOCATABLE, SAVE :: rlat(:), rlon(:)
13!!$OMP THREADPRIVATE(rlat,rlon)
14
15CONTAINS
16
17!======================================================================
18  SUBROUTINE phys_state_var_init()
19!  use dimphy, only : klon
20
21!  if (.not.allocated(rlat)) then
22!    ALLOCATE(rlat(klon),rlon(klon))
23!  else
24!    write(*,*) "phys_state_var_init: warning, rlat already allocated"
25!  endif
26 
27  END SUBROUTINE phys_state_var_init
28
29!======================================================================
30  SUBROUTINE phys_state_var_end
31!  use dimphy, only : klon
32
33!  deallocate(rlat,rlon)
34
35  END SUBROUTINE phys_state_var_end
36
37END MODULE phys_state_var_mod
Note: See TracBrowser for help on using the repository browser.