source: LMDZ6/branches/IPSL-CM6A-MR/libf/phydev/infotrac_phy.F90 @ 5441

Last change on this file since 5441 was 2320, checked in by Ehouarn Millour, 9 years ago

Physics/dynamics separation: make an infotrac_phy module, which should be used from within the physics, and is initialized from infotrac (dynamics) via iniphysiq.
EM

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.