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

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/dyn3d/gcm.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/dyn3d/gcm.F90

@@ -41 +41 @@
 ! Ehouarn: the following are needed with (parallel) physics:
 #ifdef CPP_PHYS
-!      USE dimphy
-!      USE comgeomphy, ONLY: initcomgeomphy
+  USE iniphysiq_mod, ONLY: iniphysiq
 #endif
 
@@ -447 +446 @@
 #ifdef CPP_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