source: LMDZ5/branches/LF-private/libf/phydev/phys_state_var_mod.F90 @ 5443

Last change on this file since 5443 was 1686, checked in by Ehouarn Millour, 12 years ago

Some additional stuff for "phydev": add what is required to be potentialy able to load a "startphy.nc" and also add illustrative examples of writting outputs in the physics using IOIPSL.
EM

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.