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

Last change on this file since 5422 was 5268, checked in by abarral, 2 months 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
RevLine 
[1671]1!
2! $Id:  $
3!
4MODULE phys_state_var_mod
5!======================================================================
6! Variables saved in startphy.nc
7!======================================================================
8
[2395]9!USE dimphy, only : klon
[1671]10 
11
[2395]12!REAL, ALLOCATABLE, SAVE :: rlat(:), rlon(:)
13!!$OMP THREADPRIVATE(rlat,rlon)
[1671]14
15CONTAINS
16
17!======================================================================
18  SUBROUTINE phys_state_var_init()
[2395]19!  use dimphy, only : klon
[1671]20
[2395]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
[1686]26 
[1671]27  END SUBROUTINE phys_state_var_init
28
29!======================================================================
30  SUBROUTINE phys_state_var_end
[2395]31!  use dimphy, only : klon
[1671]32
[2395]33!  deallocate(rlat,rlon)
[1671]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.