Changeset 849 for trunk/LMDZ.COMMON/libf

Timestamp:

Nov 22, 2012, 9:10:25 AM (12 years ago)

Author:

emillour

Message:

Work on common dynamics and interfacing with different physics:

• Put calls to PVtheta in dynamics between CPP_EARTH flags (because it calls tetalevel, which is supposed to be in the physics; only OK for Earth...).
• Adapted makelmdz script so that one can compile main programs in dyn* or phy* (makelmdz_fcm already capable of doing that).
• Moved start2archive-VT.F and start2archive-VT.F to phyvenus (as start2archive.F and newstart.F); leave adapting them to Titan for later.
• Small correction to phyvenus/testphys1d.F (use module control_mod instead of control.h and call disvert_noterre).
• removed "use histcom" in phyvenus/physiq.F and phytitan/physiq.F ; it is not needed since there is already a "use ioipsl" (and it moreover confused makelmdz_fcm...)
• Had to add declaration of variable "zlsm1" in phytitan/physiq.F because it is used in "write_hist.h"; but note that it is used while not initialized (but what should it be initialized to?).

EM

Location:

trunk/LMDZ.COMMON/libf

Files:

• dyn3d/calfis.F (modified) (1 diff)
• dyn3dpar/calfis_p.F (modified) (1 diff)

trunk/LMDZ.COMMON/libf/dyn3d/calfis.F

@@ -462 +462 @@
 c
       if (planet_type=="earth") then
-#ifdef CPP_PHYS
+#ifdef CPP_EARTH
 ! PVtheta calls tetalevel, which is in the (Earth) physics
 cIM calcul PV a teta=350, 380, 405K

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

@@ -512 +512 @@
 
       IF (is_sequential.and.(planet_type=="earth")) THEN
-#ifdef CPP_PHYS
+#ifdef CPP_EARTH
 ! PVtheta calls tetalevel, which is in the physics
 cIM calcul PV a teta=350, 380, 405K