Changeset 849 for trunk/LMDZ.VENUS/libf


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

Location:
trunk/LMDZ.VENUS/libf/phyvenus
Files:
2 edited
2 moved

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.VENUS/libf/phyvenus/physiq.F

    r815 r849  
    5555c======================================================================
    5656      USE ioipsl
    57       USE histcom
     57!      USE histcom ! not needed; histcom is included in ioipsl
    5858      USE infotrac
    5959      USE control_mod

  • trunk/LMDZ.VENUS/libf/phyvenus/testphys1d.F

    r97 r849  
    11
    22      PROGRAM testphys1d
     3     
     4      use control_mod
    35      IMPLICIT NONE
    46
    … …  
    2729#include "dimsoil.h"
    2830#include "comcstfi.h"
    29 #include "control.h"
     31!#include "control.h"
    3032#include "comvert.h"
    3133#include "netcdf.inc"
    … …  
    226228c    Vertical Coordinates  (hybrids)
    227229c    """"""""""""""""""""
    228       CALL  disvert
     230      CALL  disvert_noterre
    229231     
    230232c     Calcul au milieu des couches : Vient de la version Mars
    … …  
    474476c***********************************************************************
    475477
    476 #include "../dyn3d/disvert.F"
     478#include "../dyn3d/disvert_noterre.F"
    477479#include "../dyn3d/abort_gcm.F"
    478480#include "../dyn3d/dump2d.F"
Note: See TracChangeset for help on using the changeset viewer.