Changeset 2320 for LMDZ5/trunk/libf/dynlonlat_phylonlat/phydev

Timestamp:

Jul 1, 2015, 3:57:32 PM (10 years ago)

Author:

Ehouarn Millour

Message:

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:

• LMDZ5/trunk/libf/dynlonlat_phylonlat/phydev/iniphysiq.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/dynlonlat_phylonlat/phydev/iniphysiq.F90

@@ -18 +18 @@
                         rlond, & ! longitudes
                         rlatd ! latitudes
+  USE infotrac, ONLY: nqtot, type_trac
+  USE infotrac_phy, ONLY: init_infotrac_phy
 !  USE comcstphy, ONLY: rradius, & ! planet radius (m)
 !                       rr, & ! recuced gas constant: R/molar mass of atm
@@ -122 +124 @@
   ! Initialize physical constants in physics:
   CALL inifis(prad,pg,pr,pcpp)
+  
+  ! Initialize tracer names, numbers, etc. for physics
+  CALL init_infotrac_phy(nqtot,type_trac)
 
   ! Now generate local lon/lat/cu/cv/area arrays