source: LMDZ5/branches/IPSLCM6.0.11.rc1/libf/phymar/infotrac_phy.F90 @ 3152

Last change on this file since 3152 was 2382, checked in by jbmadeleine, 9 years ago

Updated phymar routines and made sure it compiles

  • Changed X_AT in Mod_PHY_AT_kkl.f90 from REAL*16 (obsolete) to double precision
  • The number of tracers nqtot is now given to MAR via the infotrac_phy routine
  • Changed iim and jjm into ii and jj in dynlonlat_phylonlat/phymar/iniphysiq_mod.F90
  • Added the declaration of the rotational in phymar/physiq.F90
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.