source: LMDZ5/branches/testing/libf/phymar/infotrac_phy.F90 @ 3990

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

Merged trunk changes r2298:2396 into testing branch

File size: 799 bytes
Line 
1
2! $Id: $
3
4MODULE infotrac_phy
5
6! Infotrac for physics; for now contains the same information as infotrac for
7! the dynamics (could be further cleaned) and is initialized using values
8! provided by the dynamics
9
10! nqtot : total number of tracers and higher order of moment, water vapor and liquid included
11  INTEGER, SAVE :: nqtot
12!$OMP THREADPRIVATE(nqtot)
13 
14CONTAINS
15
16  SUBROUTINE init_infotrac_phy(nqtot_)
17  ! transfer information on tracers from dynamics to physics
18  USE print_control_mod, ONLY: prt_level, lunout
19  IMPLICIT NONE
20    INTEGER,INTENT(IN) :: nqtot_
21
22    CHARACTER(LEN=30) :: modname="init_infotrac_phy"
23
24    nqtot=nqtot_
25 
26    IF(prt_level.ge.1) THEN
27      write(lunout,*) TRIM(modname)//": nqtot",nqtot
28    ENDIF
29   
30  END SUBROUTINE init_infotrac_phy
31
32END MODULE infotrac_phy
Note: See TracBrowser for help on using the repository browser.