Changeset 849 for trunk/LMDZ.TITAN/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

File:

• trunk/LMDZ.TITAN/libf/phytitan/physiq.F (modified) (2 diffs)

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

@@ -56 +56 @@
 c======================================================================
       USE ioipsl
-      USE histcom
+!      USE histcom ! not needed; histcom is included in ioipsl
       USE infotrac
       USE control_mod
@@ -279 +279 @@
       REAL zday
       REAL zls,zlsdeg
+      REAL zlsm1 ! for write_hist* (NB: it is not properly initialized!!)
 c
       INTEGER i, k, iq, ig, j, ll, l