source: LMDZ5/branches/LMDZ5_SPLA/libf/phydev/phys_state_var_mod.F90 @ 5416

Last change on this file since 5416 was 1907, checked in by lguez, 11 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
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

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.
  • 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: 883 bytes
Line 
1!
2! $Id:  $
3!
4MODULE phys_state_var_mod
5!======================================================================
6! Variables saved in startphy.nc
7!======================================================================
8
9USE dimphy, only : klon
10 
11
12REAL, 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.