source:
LMDZ5/branches/testing/libf/phymar/phys_state_var_mod.F90
Last change on this file was 2160, checked in by , 10 years ago | |
---|---|
File size: 883 bytes |
Rev | Line | |
---|---|---|
[2089] | 1 | ! |
2 | ! $Id: $ | |
3 | ! | |
4 | MODULE 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 | ||
15 | CONTAINS | |
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 | ||
37 | END MODULE phys_state_var_mod |
Note: See TracBrowser
for help on using the repository browser.