Changeset 2320 for LMDZ5/trunk/libf/dynlonlat_phylonlat

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

Location:

LMDZ5/trunk/libf/dynlonlat_phylonlat

Files:

• phydev/iniphysiq.F90 (modified) (2 diffs)
• phylmd/etat0phys_netcdf.F90 (modified) (1 diff)
• phylmd/iniphysiq.F90 (modified) (3 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

LMDZ5/trunk/libf/dynlonlat_phylonlat/phylmd/etat0phys_netcdf.F90

@@ -80 +80 @@
 !-------------------------------------------------------------------------------
   USE control_mod
-  USE infotrac
   USE fonte_neige_mod
   USE pbl_surface_mod

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

@@ -14 +14 @@
                                 klon_mpi_begin ! start indes of columns (on local mpi grid)
   USE vertical_layers_mod, ONLY : init_vertical_layers
+  USE infotrac, ONLY: nqtot,nqo,nbtr,tname,ttext,type_trac,&
+                      niadv,conv_flg,pbl_flg,solsym,&
+                      nqfils,nqdesc,nqdesc_tot,iqfils,iqpere,&
+                      ok_isotopes,ok_iso_verif,ok_isotrac,&
+                      ok_init_iso,niso_possibles,tnat,&
+                      alpha_ideal,use_iso,iqiso,iso_num,&
+                      iso_indnum,zone_num,phase_num,&
+                      indnum_fn_num,index_trac,&
+                      niso,ntraceurs_zone,ntraciso
   USE comgeomphy, ONLY: initcomgeomphy, &
                         airephy, & ! physics grid area (m2)
@@ -21 +30 @@
                         rlatd ! latitudes
   USE inifis_mod, ONLY: inifis
+  USE infotrac_phy, ONLY: init_infotrac_phy
   USE phyaqua_mod, ONLY: iniaqua
   IMPLICIT NONE
@@ -135 +145 @@
                             ap,bp,presnivs,pseudoalt)
 
+  ! Initialize tracer names, numbers, etc. for physics
+  CALL init_infotrac_phy(nqtot,nqo,nbtr,tname,ttext,type_trac,&
+                         niadv,conv_flg,pbl_flg,solsym,&
+                         nqfils,nqdesc,nqdesc_tot,iqfils,iqpere,&
+                         ok_isotopes,ok_iso_verif,ok_isotrac,&
+                         ok_init_iso,niso_possibles,tnat,&
+                         alpha_ideal,use_iso,iqiso,iso_num,&
+                         iso_indnum,zone_num,phase_num,&
+                         indnum_fn_num,index_trac,&
+                         niso,ntraceurs_zone,ntraciso)
+
   ! Now generate local lon/lat/cu/cv/area arrays
   CALL initcomgeomphy