Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.COMMON/libf/dyn3dpar/calfis_p.F

    r847 r849  
    512512
    513513      IF (is_sequential.and.(planet_type=="earth")) THEN
    514 #ifdef CPP_PHYS
     514#ifdef CPP_EARTH
    515515! PVtheta calls tetalevel, which is in the physics
    516516cIM calcul PV a teta=350, 380, 405K
Note: See TracChangeset for help on using the changeset viewer.