Ignore:
Timestamp:
Jun 4, 2015, 4:23:32 PM (10 years ago)
Author:
slebonnois
Message:

SL: update of the Venus GCM, + corrections on routines used for newstart/start2archive for Titan and Venus, + some modifications on tools

Location:
trunk/LMDZ.COMMON/libf/dynlonlat_phylonlat/phytitan
Files:
1 added
7 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.COMMON/libf/dynlonlat_phylonlat/phytitan/ini_archive.F

    r1403 r1442  
    2727 
    2828      USE control_mod
     29      USE comconst_mod
     30      USE comvert_mod, ONLY: ap,bp,presnivs,pa,preff,nivsigs,nivsig,
     31     .                       aps,bps,scaleheight,pseudoalt,
     32     .                       disvert_type,pressure_exner
    2933
    3034      implicit none
    … …  
    3236#include "dimensions.h"
    3337#include "paramet.h"
    34 #include "comconst.h"
    35 #include "comvert.h"
    3638#include "comgeom.h"
    3739#include "temps.h"

  • trunk/LMDZ.COMMON/libf/dynlonlat_phylonlat/phytitan/newstart.F

    r1403 r1442  
    2424      use exner_hyb_m, only: exner_hyb
    2525      use exner_milieu_m, only: exner_milieu
     26      USE comconst_mod
     27      USE comvert_mod, ONLY: ap,bp,presnivs,pa,preff,nivsigs,nivsig,
     28     .                       aps,bps,scaleheight,pseudoalt,
     29     .                       disvert_type,pressure_exner
    2630
    2731      implicit none
    … …  
    2933#include "dimensions.h"
    3034#include "paramet.h"
    31 #include "comconst.h"
    3235#include "comdissnew.h"
    33 #include "comvert.h"
    3436#include "comgeom2.h"
    3537#include "logic.h"

  • trunk/LMDZ.COMMON/libf/dynlonlat_phylonlat/phytitan/readstart.F

    r1403 r1442  
    66
    77      USE infotrac
     8      USE comconst_mod
     9      USE comvert_mod, ONLY: ap,bp,presnivs,pa,preff,nivsigs,nivsig,
     10     .                       aps,bps,scaleheight,pseudoalt,
     11     .                       disvert_type,pressure_exner
    812     
    913      IMPLICIT NONE
    … …  
    2731#include "paramet.h"
    2832#include "temps.h"
    29 #include "comconst.h"
    30 #include "comvert.h"
    3133#include "comgeom.h"
    3234#include "ener.h"

  • trunk/LMDZ.COMMON/libf/dynlonlat_phylonlat/phytitan/start2archive.F

    r1403 r1442  
    2121      use exner_hyb_m, only: exner_hyb
    2222      use exner_milieu_m, only: exner_milieu
     23      USE comconst_mod
     24      USE comvert_mod, ONLY: ap,bp,presnivs,pa,preff,nivsigs,nivsig,
     25     .                       aps,bps,scaleheight,pseudoalt,
     26     .                       disvert_type,pressure_exner
    2327
    2428      implicit none
    … …  
    2630#include "dimensions.h"
    2731#include "paramet.h"
    28 #include "comconst.h"
    2932#include "comdissnew.h"
    30 #include "comvert.h"
    3133#include "comgeom.h"
    3234#include "logic.h"

  • trunk/LMDZ.COMMON/libf/dynlonlat_phylonlat/phytitan/startvar.F90

    r1403 r1442  
    251251
    252252      use assert_eq_m, only: assert_eq
    253 
     253      USE comconst_mod
    254254
    255255!-------------------------------------------------------------------------------
    … …  
    272272#include "iniprint.h"
    273273#include "dimensions.h"
    274 #include "comconst.h"
    275274#include "paramet.h"
    276275#include "comgeom2.h"
    … …  
    363362!
    364363SUBROUTINE start_init_orog(iml,jml,lon_in,lat_in)
    365 !
     364      USE comconst_mod
     365
    366366!-------------------------------------------------------------------------------
    367367! Arguments:
    … …  
    372372! Local variables:
    373373#include "iniprint.h"
    374 #include "comconst.h"
    375374  CHARACTER(LEN=25)     :: title
    376375  CHARACTER(LEN=120)    :: orofname

  • trunk/LMDZ.COMMON/libf/dynlonlat_phylonlat/phytitan/write_archive.F

    r1403 r1442  
    3333
    3434      USE control_mod
     35      USE comvert_mod, ONLY: ap,bp,presnivs,pa,preff,nivsigs,nivsig,
     36     .                       aps,bps,scaleheight,pseudoalt,
     37     .                       disvert_type,pressure_exner
    3538
    3639      implicit none
    … …  
    3841#include "dimensions.h"
    3942#include "paramet.h"
    40 #include "comvert.h"
    4143#include "comgeom.h"
    4244#include "description.h"

  • trunk/LMDZ.COMMON/libf/dynlonlat_phylonlat/phytitan/writerestart.F

    r1403 r1442  
    44      USE IOIPSL
    55      USE infotrac
     6      USE comconst_mod
     7      USE comvert_mod, ONLY: ap,bp,presnivs,pa,preff,nivsigs,nivsig,
     8     .                       aps,bps,scaleheight,pseudoalt,
     9     .                       disvert_type,pressure_exner
    610
    711      IMPLICIT NONE
    … …  
    1418#include "dimensions.h"
    1519#include "paramet.h"
    16 #include "comconst.h"
    17 #include "comvert.h"
    1820#include "comgeom.h"
    1921#include "ener.h"
Note: See TracChangeset for help on using the changeset viewer.