Changeset 1621 for trunk/LMDZ.TITAN/libf/phytitan

Timestamp:

Oct 25, 2016, 9:23:21 AM (8 years ago)

Author:

emillour

Message:

Further work on full dynamics/physics separation.

LMDZ.COMMON:

• added phy_common/vertical_layers_mod.F90 to store information on vertical grid. This is where routines in the physics should get the information.
• The contents of vertical_layers_mod intialized via dynphy_lonlat/inigeomphy_mod.F90.

LMDZ.MARS:

• physics now completely decoupled from dynamics; the physics package may now be compiled as a library (-libphy option of makelmdz_fcm).
• created an "ini_tracer_mod" routine in module "tracer_mod" for a cleaner initialization of the later.
• removed some purely dynamics-related outputs (etot0, zoom parameters, etc.) from diagfi.nc and stats.nc outputs as these informations are not available in the physics.

LMDZ.GENERIC:

• physics now completely decoupled from dynamics; the physics package may now be compiled as a library (-libphy option of makelmdz_fcm).
• added nqtot to tracer_h.F90.
• removed some purely dynamics-related outputs (etot0, zoom parameters, etc.) from diagfi.nc and stats.nc outputs as these informations are not available in the physics.

LMDZ.VENUS:

• physics now completely decoupled from dynamics; the physics package may now be compiled as a library (-libphy option of makelmdz_fcm).
• added infotrac_phy.F90 to store information on tracers in the physics. Initialized via iniphysiq.
• added cpdet_phy_mod.F90 to store t2tpot etc. functions to be used in the physics. Initialized via iniphysiq. IMPORTANT: there are some hard-coded constants! These should match what is in cpdet_mod.F90 in the dynamics.
• got rid of references to moyzon_mod module within the physics. The required variables (tmoy, plevmoy) are passed to the physics as arguments to physiq.

LMDZ.TITAN:

• added infotrac_phy.F90 to store information on tracers in the physics. Initialized via iniphysiq.
• added cpdet_phy_mod.F90 to store t2tpot etc. functions to be used in the physics.
• Extra work required to completely decouple physics and dynamics: moyzon_mod should be cleaned up and information passed from dynamics to physics as as arguments. Likewise moyzon_ch and moyzon_mu should not be queried from logic_mod (which is in the dynamics).

EM

Location:

trunk/LMDZ.TITAN/libf/phytitan

Files:

• ajsec.F (modified) (1 diff)
• clmain.F (modified) (4 diffs)
• cpdet_phy_mod.F90 (added)
• diagphy.F (modified) (1 diff)
• dyn1d/inigeomphy_mod.F90 (added)
• infotrac_phy.F90 (added)
• interface_surf.F90 (modified) (2 diffs)
• optci.F (modified) (1 diff)
• optcv.F (modified) (1 diff)
• phyetat0.F90 (modified) (1 diff)
• phyredem.F90 (modified) (1 diff)
• physiq_mod.F (modified) (2 diffs)
• phytrac.F (modified) (1 diff)
• radtitan.F (modified) (1 diff)

trunk/LMDZ.TITAN/libf/phytitan/ajsec.F

@@ -8 +8 @@
       use dimphy
       use mod_grid_phy_lmdz, only: nbp_lev
-      use cpdet_mod, only: t2tpot, tpot2t
+      use cpdet_phy_mod, only: t2tpot, tpot2t
       IMPLICIT none
 c======================================================================

trunk/LMDZ.TITAN/libf/phytitan/clmain.F

@@ -36 +36 @@
       use dimphy
       use mod_grid_phy_lmdz, only: nbp_lev
-      use cpdet_mod, only: t2tpot
+      use cpdet_phy_mod, only: t2tpot
       IMPLICIT none
 c======================================================================
@@ -480 +480 @@
       use dimphy
       use mod_grid_phy_lmdz, only: nbp_lon, nbp_lat, nbp_lev
-      use cpdet_mod, only: t2tpot,tpot2t,cpdet
+      use cpdet_phy_mod, only: t2tpot,tpot2t,cpdet
 
       IMPLICIT none
@@ -887 +887 @@
 
       use dimphy
-      use cpdet_mod, only: cpdet,t2tpot
+      use cpdet_phy_mod, only: cpdet,t2tpot
       IMPLICIT none
 c======================================================================
@@ -1171 +1171 @@
       use dimphy
       use mod_grid_phy_lmdz, only: nbp_lev
-      use cpdet_mod, only: cpdet
+      use cpdet_phy_mod, only: cpdet
       IMPLICIT none
 c======================================================================

trunk/LMDZ.TITAN/libf/phytitan/diagphy.F

@@ -208 +208 @@
  
       use dimphy
-      use cpdet_mod, only: cpdet
+      use cpdet_phy_mod, only: cpdet
       IMPLICIT NONE
 C

trunk/LMDZ.TITAN/libf/phytitan/interface_surf.F90

@@ -46 +46 @@
 
       use write_field_phy
-      use cpdet_mod, only: cpdet
+      use cpdet_phy_mod, only: cpdet
 
       IMPLICIT none
@@ -197 +197 @@
 
   use write_field_phy
-  use cpdet_mod, only: t2tpot, tpot2t
+  use cpdet_phy_mod, only: t2tpot, tpot2t
 
   IMPLICIT none

trunk/LMDZ.TITAN/libf/phytitan/optci.F

@@ -1 +1 @@
       SUBROUTINE OPTCI(ykim,qaer,nmicro,IPRINT)
       use dimphy
-      use infotrac
+      use infotrac_phy, only: nqtot
       use common_mod, only:rmcbar,xfbar,ncount,TauHID,TauCID,TauGID
       USE TGMDAT_MOD, ONLY: RHCH4,FH2,FHAZE,FHVIS,FHIR,TAUFAC,

trunk/LMDZ.TITAN/libf/phytitan/optcv.F

@@ -2 +2 @@
 
       use dimphy
-      use infotrac
+      use infotrac_phy, only: nqtot
       use common_mod, only:rmcbar,xfbar,ncount,TauHVD,TauCVD,TauGVD
       USE TGMDAT_MOD, ONLY: RHCH4,FH2,FHAZE,FHVIS,FHIR,TAUFAC,

trunk/LMDZ.TITAN/libf/phytitan/phyetat0.F90

@@ -12 +12 @@
       USE phys_state_var_mod
       USE iostart
-      USE infotrac
       USE geometry_mod,  only: latitude_deg,longitude_deg
       USE time_phylmdz_mod, only: itau_phy, raz_date

trunk/LMDZ.TITAN/libf/phytitan/phyredem.F90

@@ -11 +11 @@
       USE iostart, only : open_restartphy,close_restartphy, & 
                           put_var,put_field
-      USE infotrac
       USE geometry_mod,  only: longitude_deg, latitude_deg
       USE time_phylmdz_mod, only: day_end, annee_ref, itau_phy, raz_date

trunk/LMDZ.TITAN/libf/phytitan/physiq_mod.F

@@ -61 +61 @@
       USE ioipsl
 !      USE histcom ! not needed; histcom is included in ioipsl
-      USE infotrac
+      USE infotrac_phy, ONLY: iflag_trac, tname, ttext
       use dimphy
       USE geometry_mod, ONLY: longitude, latitude, ! in radians
      &                        longitude_deg, latitude_deg, ! in degrees
      &                        cell_area, dx, dy
-      use cpdet_mod, only: cpdet, t2tpot
+      use cpdet_phy_mod, only: cpdet, t2tpot
       USE mod_phys_lmdz_para, only : is_parallel,jj_nb,
      &                               is_north_pole_phy,
@@ -81 +81 @@
       USE write_field_phy
       USE time_phylmdz_mod, only: itau_phy,day_ref,annee_ref,nday
-      USE logic_mod, only: iflag_trac,moyzon_ch,moyzon_mu
+      USE logic_mod, only: moyzon_ch,moyzon_mu
       USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, nbp_lev
       IMPLICIT none

trunk/LMDZ.TITAN/libf/phytitan/phytrac.F

@@ -38 +38 @@
 c reservoir----outpur-R-un reservoir de surface !!! (m)
 c======================================================================
-      USE infotrac
+      USE infotrac_phy, ONLY: tname
       use dimphy
       USE common_mod, only: rmcbar,xfbar,ncount,

trunk/LMDZ.TITAN/libf/phytitan/radtitan.F

@@ -31 +31 @@
 c   -------------
 
-      USE infotrac
+      USE infotrac_phy, ONLY: tname
       use dimphy
       USE geometry_mod, ONLY: latitude ! in radians