Changeset 1523 for trunk/LMDZ.COMMON/libf/dyn3dpar

Timestamp:

Mar 28, 2016, 5:27:51 PM (9 years ago)

Author:

emillour

Message:

All models: More updates to make planetary codes (+Earth) setups converge.

• in dyn3d_common:
• convmas.F => convmas.F90
• enercin.F => enercin.F90
• flumass.F => flumass.F90
• massbar.F => massbar.F90
• tourpot.F => tourpot.F90
• vitvert.F => vitvert.F90

• in misc:
• move "q_sat" from "dyn3d_common" to "misc" (in Earth model, it is also called by the physics)
• move "write_field" from "dyn3d_common" to "misc"(may be called from physics or dynamics and depends on neither).

• in phy_common:
• move "write_field_phy" here since it may be called from any physics package)
• add module "regular_lonlat_mod" to store global information on lon-lat grid

• in dynlonlat_phylonlat/phy*:
• turn "iniphysiq.F90" into module "iniphysiq_mod.F90" (and of course adapt gcm.F[90] and 1D models accordingly)

EM

File:

• trunk/LMDZ.COMMON/libf/dyn3dpar/gcm.F (modified) (3 diffs)

trunk/LMDZ.COMMON/libf/dyn3dpar/gcm.F

@@ -14 +14 @@
       USE parallel_lmdz
       USE infotrac
+#ifdef CPP_PHYS
       USE mod_interface_dyn_phys
+#endif
       USE mod_hallo
       USE Bands
@@ -33 +35 @@
 ! Ehouarn: the following are needed with (parallel) physics:
 #ifdef CPP_PHYS
+      USE iniphysiq_mod, ONLY: iniphysiq
       USE mod_grid_phy_lmdz
 !      USE mod_phys_lmdz_para, ONLY : klon_mpi_para_nb
@@ -495 +498 @@
 !     &                iflag_phys)
          CALL iniphysiq(iim,jjm,llm,daysec,day_ini,dtphys/nsplit_phys,
-     &                rlatu,rlonv,aire,cu,cv,rad,g,r,cpp,
+     &                rlatu,rlatv,rlonu,rlonv,aire,cu,cv,rad,g,r,cpp,
      &                iflag_phys)
 #endif