source: LMDZ5/trunk/libf/phymar/phys_state_var_mod.F90 @ 3373

Last change on this file since 3373 was 2089, checked in by Laurent Fairhead, 10 years ago

Inclusion de la physique de MAR


Integration of MAR physics

File size: 883 bytes
RevLine 
[2089]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.