source: LMDZ5/branches/testing/libf/phydev/infotrac_phy.F90 @ 5394

Last change on this file since 5394 was 2408, checked in by Laurent Fairhead, 9 years ago

Merged trunk changes r2298:2396 into testing branch

File size: 608 bytes
Line 
1
2! $Id: $
3
4MODULE infotrac_phy
5
6! Information on tracers for physics;
7! nqtot : total number of tracers and higher order of moment, water vapor and liquid included
8  INTEGER, SAVE :: nqtot
9!$OMP THREADPRIVATE(nqtot)
10
11  CHARACTER(len=4),SAVE :: type_trac
12!$OMP THREADPRIVATE(type_trac)
13
14CONTAINS
15
16  SUBROUTINE init_infotrac_phy(nqtot_,type_trac_)
17  ! transfer information on tracers from dynamics to physics
18  IMPLICIT NONE
19    INTEGER,INTENT(IN) :: nqtot_
20    CHARACTER(len=4),INTENT(IN) :: type_trac_
21
22    nqtot=nqtot_
23    type_trac=type_trac_
24 
25  END SUBROUTINE init_infotrac_phy
26
27END MODULE infotrac_phy
Note: See TracBrowser for help on using the repository browser.