source:
LMDZ5/branches/LMDZ6_rc0/libf/phymar/phys_state_var_mod.F90
Last change on this file was 2160, checked in by , 10 years ago | |
---|---|
File size: 883 bytes |
Line | |
---|---|
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.