Changeset 1422 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Apr 30, 2015, 12:33:45 PM (10 years ago)
Author:
milmd
Message:

In GENERIC, MARS and COMMON models replace some include files by modules (usefull for decoupling physics with dynamics).

Location:
trunk/LMDZ.MARS/libf
Files:
12 added
14 deleted
72 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/aeronomars/inichim_newstart.F90

    r1381 r1422  
    33
    44      use tracer_mod
     5      USE comvert_mod, ONLY: aps,bps
    56      implicit none
    67
    … …  
    3536#include "dimensions.h"
    3637#include "paramet.h"
    37 #include "comvert.h"
    3838#include "callkeys.h"
    3939#include "datafile.h"

  • trunk/LMDZ.MARS/libf/dyn3d/addfi.F

    r1238 r1422  
    22     S          pucov, pvcov, pteta, pq   , pps , pmasse ,
    33     S          pdufi, pdvfi, pdhfi,pdqfi, pdpfi  )
     4
     5      USE comvert_mod, ONLY: ap,bp
     6      USE comconst_mod, ONLY: kappa
     7
    48      IMPLICIT NONE
    59c
    … …  
    4650#include "dimensions.h"
    4751#include "paramet.h"
    48 #include "comconst.h"
    4952#include "comgeom.h"
    50 #include "serre.h"
    51 #include "comvert.h"
    5253c
    5354c    Arguments :

  • trunk/LMDZ.MARS/libf/dyn3d/adv_h2o.F

    r38 r1422  
    11      SUBROUTINE adv_h2o (nq,iq,q,w, pbaru, pbarv,dq)
     2
     3      USE logic_mod, ONLY: forward,leapf
     4
    25      IMPLICIT NONE
    36
    … …  
    1922#include "dimensions.h"
    2023#include "paramet.h"
    21 #include "logic.h"
    22 #include "comvert.h"
    2324
    2425c   Arguments:

  • trunk/LMDZ.MARS/libf/dyn3d/advect.F

    r38 r1422  
    11      SUBROUTINE advect(ucov,vcov,teta,w,massebx,masseby,du,dv,dteta)
     2
     3      USE comconst_mod, ONLY: daysec
     4      USE logic_mod, ONLY: conser
     5      USE ener_mod, ONLY: gtot
    26
    37      IMPLICIT NONE
    … …  
    2327#include "dimensions.h"
    2428#include "paramet.h"
    25 #include "comconst.h"
    26 #include "comvert.h"
    2729#include "comgeom.h"
    28 #include "logic.h"
    29 #include "ener.h"
    3030
    3131c   Arguments:

  • trunk/LMDZ.MARS/libf/dyn3d/amont.F

    r38 r1422  
    11      SUBROUTINE amont (nq,iq,q,w, pbaru, pbarv,dq)
     2
     3      USE logic_mod, ONLY: forward,leapf
     4
    25      IMPLICIT NONE
    36
    … …  
    1821#include "dimensions.h"
    1922#include "paramet.h"
    20 #include "logic.h"
    21 #include "comvert.h"
    2223
    2324c   Arguments:

  • trunk/LMDZ.MARS/libf/dyn3d/amont_qsat.F

    r38 r1422  
    11      SUBROUTINE amont_qsat (nq,iq,q,teta,pk,w, pbaru, pbarv,dq)
     2
     3      USE comvert_mod, ONLY: preff
     4      USE comconst_mod, ONLY: kappa,cpp
     5
    26      IMPLICIT NONE
    37
    … …  
    1923#include "dimensions.h"
    2024#include "paramet.h"
    21 #include "logic.h"
    22 #include "comvert.h"
    23 #include "comconst.h"
    2425#include "comgeom.h"
    25 #include "serre.h"
    2626
    2727c   Arguments:

  • trunk/LMDZ.MARS/libf/dyn3d/bernoui.F

    r38 r1422  
    2424#include "dimensions.h"
    2525#include "paramet.h"
    26 #include "logic.h"
    2726c
    2827c   Arguments:

  • trunk/LMDZ.MARS/libf/dyn3d/caldyn.F

    r791 r1422  
    22     $ (itau,ucov,vcov,teta,ps,masse,pk,pkf,phis ,
    33     $  phi,conser,du,dv,dteta,dp,w,pbaru,pbarv,time )
     4
     5      USE comvert_mod, ONLY: ap,bp
    46
    57      IMPLICIT NONE
    … …  
    2325#include "dimensions.h"
    2426#include "paramet.h"
    25 #include "comconst.h"
    26 #include "comvert.h"
    2727#include "comgeom.h"
    2828

  • trunk/LMDZ.MARS/libf/dyn3d/caldyn0.F

    r38 r1422  
    22     $ (itau,ucov,vcov,teta,ps,masse,pk,phis ,
    33     $  phi,w,pbaru,pbarv,time )
     4
     5      USE comvert_mod, ONLY: ap,bp
    46
    57      IMPLICIT NONE
    … …  
    2325#include "dimensions.h"
    2426#include "paramet.h"
    25 #include "comconst.h"
    26 #include "comvert.h"
    2727#include "comgeom.h"
    2828

  • trunk/LMDZ.MARS/libf/dyn3d/convmas.F

    r38 r1422  
    3131#include "dimensions.h"
    3232#include "paramet.h"
    33 #include "comvert.h"
    34 #include "logic.h"
    3533
    3634      REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm ),convm(  ip1jmp1,llm )

  • trunk/LMDZ.MARS/libf/dyn3d/coordij.F

    r38 r1422  
    1515#include "dimensions.h"
    1616#include "paramet.h"
    17 #include "comconst.h"
    1817#include "comgeom.h"
    19 #include "serre.h"
    2018
    2119      real zlon,zlat

  • trunk/LMDZ.MARS/libf/dyn3d/defrun_new.F

    r1415 r1422  
    4141     &                       idissip, iphysiq, anneeref, ecritphy,
    4242     &                       ecritstart, timestart, nday_r
     43      USE logic_mod, ONLY: hybrid,purmats,physic,grireg,fxyhypb,ysinus
     44      USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy,
     45     .                  alphax,alphay,taux,tauy
    4346      IMPLICIT NONE
    4447
    … …  
    4649#include "paramet.h"
    4750!#include "control.h"
    48 #include "logic.h"
    49 #include "serre.h"
    5051#include "comdissnew.h"
    5152#include "sponge.h"

  • trunk/LMDZ.MARS/libf/dyn3d/dissip.F

    r38 r1422  
    11      SUBROUTINE dissip( vcov,ucov,teta,p, dv,du,dh )
    22c
     3      USE comconst_mod, ONLY: dtdiss
     4
    35      IMPLICIT NONE
    46
    … …  
    2426#include "dimensions.h"
    2527#include "paramet.h"
    26 #include "comconst.h"
    2728#include "comgeom.h"
    2829#include "comdissnew.h"

  • trunk/LMDZ.MARS/libf/dyn3d/disvert.F

    r38 r1422  
    44c    Nouvelle version 100% Mars !!
    55
     6      USE comvert_mod, ONLY: ap,bp,sig,nivsigs,nivsig,pa,preff,
     7     .                  aps,bps,presnivs,pseudoalt
     8      USE comconst_mod, ONLY: kappa,pi
     9      USE logic_mod, ONLY: hybrid
     10
    611      IMPLICIT NONE
    712
    813#include "dimensions.h"
    914#include "paramet.h"
    10 #include "comvert.h"
    11 #include "comconst.h"
    12 #include "logic.h"
    1315c
    1416c=======================================================================

  • trunk/LMDZ.MARS/libf/dyn3d/divgrad.F

    r38 r1422  
    2121#include "comgeom.h"
    2222#include "comdissipn.h"
    23 #include "logic.h"
    2423c
    2524      INTEGER klevel

  • trunk/LMDZ.MARS/libf/dyn3d/dteta1.F

    r38 r1422  
    2020#include "dimensions.h"
    2121#include "paramet.h"
    22 #include "logic.h"
    2322
    2423      REAL teta( ip1jmp1,llm ),pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm)

  • trunk/LMDZ.MARS/libf/dyn3d/dudv2.F

    r38 r1422  
    2525#include "dimensions.h"
    2626#include "paramet.h"
    27 #include "comvert.h"
    2827
    2928      REAL teta( ip1jmp1,llm ),pkf( ip1jmp1,llm ) ,bern( ip1jmp1,llm ),

  • trunk/LMDZ.MARS/libf/dyn3d/dynetat0.F

    r1416 r1422  
    55      use infotrac, only: tname,nqtot
    66      use control_mod, only: timestart
     7      USE comvert_mod, ONLY: pa,preff
     8      USE comconst_mod, ONLY: im,jm,lllm,daysec,dtvr,
     9     .                  rad,omeg,r,cpp,kappa,g
     10      USE logic_mod, ONLY: fxyhypb,ysinus
     11      USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy,
     12     .                  taux,tauy
     13      USE temps_mod, ONLY: day_ini,hour_ini
     14      USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
    715     
    816      IMPLICIT NONE
    … …  
    3139#include "dimensions.h"
    3240#include "paramet.h"
    33 #include "temps.h"
    34 #include "comconst.h"
    35 #include "comvert.h"
    3641#include "comgeom2.h"
    37 #include "ener.h"
    38 #include "description.h"
    39 #include "serre.h"
    40 #include "logic.h"
    4142!#include "advtrac.h"
    4243!#include "control.h"

  • trunk/LMDZ.MARS/libf/dyn3d/dynredem.F

    r1416 r1422  
    11      SUBROUTINE dynredem0(fichnom,idayref,phis)
    22      use infotrac, only: tname, nqtot
     3      USE comvert_mod, ONLY: ap,bp,aps,bps,pa,preff,presnivs,pseudoalt
     4      USE comconst_mod, ONLY: daysec,dtvr,rad,omeg,g,cpp,kappa,pi
     5      USE logic_mod, ONLY: fxyhypb,ysinus
     6      USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy,
     7     .                  taux,tauy
     8      USE temps_mod, ONLY: hour_ini
     9      USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
    310      IMPLICIT NONE
    411c=======================================================================
    … …  
    916#include "dimensions.h"
    1017#include "paramet.h"
    11 #include "comconst.h"
    12 #include "comvert.h"
    1318#include "comgeom.h"
    14 #include "temps.h"
    15 #include "ener.h"
    16 #include "logic.h"
    1719#include "netcdf.inc"
    18 #include "description.h"
    19 #include "serre.h"
    2020!#include "advtrac.h"
    2121c   Arguments:
    … …  
    970970#include "dimensions.h"
    971971#include "paramet.h"
    972 #include "description.h"
    973972#include "netcdf.inc"
    974 #include "comvert.h"
    975973#include "comgeom.h"
    976974!#include"advtrac.h"

  • trunk/LMDZ.MARS/libf/dyn3d/exner.F

    r38 r1422  
    11      SUBROUTINE exner(ngrid,pext,aire,pks,pksf)
     2
     3      USE comconst_mod, ONLY: jmp1,kappa
     4
    25      IMPLICIT NONE
    36
    … …  
    710c   declarations:
    811c   -------------
    9 
    10 #include "comconst.h"
    1112
    1213      INTEGER ngrid

  • trunk/LMDZ.MARS/libf/dyn3d/exnerF

    r38 r1422  
    3030#include "dimensions.h"
    3131#include "paramet.h"
    32 #include "comconst.h"
    33 #include "comvert.h"
    3432
    3533      INTEGER  ngrid

  • trunk/LMDZ.MARS/libf/dyn3d/exner_hyb.F

    r38 r1422  
    2323c    ( voir note de Fr.Hourdin )  ,
    2424c
     25      USE comvert_mod, ONLY: preff
     26      USE comconst_mod, ONLY: jmp1,cpp,kappa
     27
    2528      IMPLICIT NONE
    2629c
    2730#include "dimensions.h"
    2831#include "paramet.h"
    29 #include "comconst.h"
    3032#include "comgeom.h"
    31 #include "comvert.h"
    32 #include "serre.h"
    3333
    3434      INTEGER  ngrid

  • trunk/LMDZ.MARS/libf/dyn3d/fluxstoke.F

    r38 r1422  
    66ccc   ..   Modif. P. Le Van  ( 20/12/97 )  ...
    77c
     8      USE comvert_mod, ONLY: presnivs
     9      USE comconst_mod, ONLY: dtvr,pi
     10
    811      IMPLICIT NONE
    912c
    1013#include "dimensions.h"
    1114#include "paramet.h"
    12 #include "comconst.h"
    13 #include "comvert.h"
    1415#include "comgeom.h"
    1516#include "tracstoke.h"

  • trunk/LMDZ.MARS/libf/dyn3d/fxy.F

    r38 r1422  
    22     ,                    rlatu2,yprimu2,
    33     , rlonu,xprimu,rlonv,xprimv,rlonm025,xprimm025,rlonp025,xprimp025)
     4
     5      USE comconst_mod, ONLY: pi
     6      USE serre_mod, ONLY: pxo,pyo,alphax,alphay,transx,transy
    47
    58      IMPLICIT NONE
    … …  
    1316#include "dimensions.h"
    1417#include "paramet.h"
    15 #include "serre.h"
    16 #include "comconst.h"
    1718
    1819       INTEGER i,j

  • trunk/LMDZ.MARS/libf/dyn3d/fxysinus.F

    r38 r1422  
    33     ,  rlonu,xprimu,rlonv,xprimv,rlonm025,xprimm025,rlonp025,xprimp025)
    44
     5      USE comconst_mod, ONLY: pi
    56
    67      IMPLICIT NONE
    … …  
    1415#include "dimensions.h"
    1516#include "paramet.h"
    16 #include "comconst.h"
    1717
    1818       INTEGER i,j

  • trunk/LMDZ.MARS/libf/dyn3d/gcm.F

    r1416 r1422  
    77      use filtreg_mod, only: inifilr
    88!      use comgeomphy, only: initcomgeomphy
     9      USE comvert_mod, ONLY: ap,bp
     10      USE comconst_mod, ONLY: daysec,dtvr,dtphys,dtdiss,rad,g,r,cpp
     11      USE logic_mod, ONLY: ecripar,forward,leapf,apphys,statcl,conser,
     12     .          apdiss,purmats,physic,apphys
     13      USE temps_mod, ONLY: day_ini,day_end,dt,itaufin
    914      IMPLICIT NONE
    1015
    … …  
    4146#include "dimensions.h"
    4247#include "paramet.h"
    43 #include "comconst.h"
    4448#include "comdissnew.h"
    45 #include "comvert.h"
    4649#include "comgeom.h"
    47 #include "logic.h"
    48 #include "temps.h"
    4950!#include "control.h"
    50 #include "ener.h"
    5151#include "netcdf.inc"
    52 #include "description.h"
    53 #include "serre.h"
    5452#include "tracstoke.h"
    5553#include "sponge.h"
    … …  
    157155
    158156      modname = 'gcm'
    159       descript = 'Run GCM LMDZ'
    160157      lafin    = .FALSE.
    161158

  • trunk/LMDZ.MARS/libf/dyn3d/geopot.F

    r38 r1422  
    2626#include "dimensions.h"
    2727#include "paramet.h"
    28 #include "comvert.h"
    2928
    3029c   Arguments:

  • trunk/LMDZ.MARS/libf/dyn3d/gradiv.F

    r38 r1422  
    1919#include "paramet.h"
    2020#include "comdissipn.h"
    21 #include "logic.h"
    2221
    2322      INTEGER klevel

  • trunk/LMDZ.MARS/libf/dyn3d/groupe.F

    r38 r1422  
    1717#include "dimensions.h"
    1818#include "paramet.h"
    19 #include "comconst.h"
    2019#include "comgeom2.h"
    21 #include "comvert.h"
    2220
    2321

  • trunk/LMDZ.MARS/libf/dyn3d/groupeun.F

    r38 r1422  
    2424#include "dimensions.h"
    2525#include "paramet.h"
    26 #include "comconst.h"
    2726#include "comgeom2.h"
    2827

  • trunk/LMDZ.MARS/libf/dyn3d/iniav.F

    r410 r1422  
    11      SUBROUTINE iniav(fichnom,pday0,pyear0,pfrac0,pperiod,phis,nq)
     2
     3      USE comvert_mod, ONLY: ap,bp,nivsig,nivsigs,presnivs
     4
    25      IMPLICIT NONE
    36
    … …  
    1720#include "comav.h"
    1821#include "netcdf.inc"
    19 #include "comvert.h"
    2022#include "comgeom.h"
    2123

  • trunk/LMDZ.MARS/libf/dyn3d/iniconst.F

    r1130 r1422  
    22
    33      use control_mod, only: iphysiq, idissip
     4      USE comconst_mod, ONLY: im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,
     5     .                  dtdiss,dtvr,dtphys,unsim,r,cpp,kappa,pi
    46      IMPLICIT NONE
    57c
    … …  
    1214#include "dimensions.h"
    1315#include "paramet.h"
    14 #include "comconst.h"
    15 #include "temps.h"
    1616!#include "control.h"
    17 #include "comvert.h"
    1817
    1918

  • trunk/LMDZ.MARS/libf/dyn3d/inidissip.F

    r1130 r1422  
    99
    1010      use control_mod, only: idissip, iperiod
     11      USE comvert_mod, ONLY: aps,bps,preff,pseudoalt
     12      USE comconst_mod, ONLY: dtdiss,dtvr
    1113      IMPLICIT NONE
    1214#include "dimensions.h"
    1315#include "paramet.h"
    1416#include "comdissipn.h"
    15 #include "comconst.h"
    16 #include "comvert.h"
    1717!#include "control.h"
    1818

  • trunk/LMDZ.MARS/libf/dyn3d/inigeom.F

    r38 r1422  
    1414c
    1515c
     16      USE comconst_mod, ONLY: rad,g,omeg,pi
     17      USE logic_mod, ONLY: fxyhypb,ysinus
     18      USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy,
     19     .                  alphax,alphay,taux,tauy,pxo,pyo,transx,transy
     20
    1621      IMPLICIT NONE
    1722c
    1823#include "dimensions.h"
    1924#include "paramet.h"
    20 #include "comconst.h"
    2125#include "comgeom2.h"
    22 #include "serre.h"
    23 #include "logic.h"
    2426#include "comdissnew.h"
    2527

  • trunk/LMDZ.MARS/libf/dyn3d/integrd.F

    r38 r1422  
    22     $  (  nq,vcovm1,ucovm1,tetam1,psm1,massem1,
    33     $     dv,du,dteta,dq,dp,vcov,ucov,teta,q,ps,masse,phis,finvmaold )
     4
     5      USE comvert_mod, ONLY: ap,bp
     6      USE logic_mod, ONLY: leapf
     7      USE serre_mod, ONLY: alphax
     8      USE temps_mod, ONLY: dt
    49
    510      IMPLICIT NONE
    … …  
    3237#include "dimensions.h"
    3338#include "paramet.h"
    34 #include "comconst.h"
    3539#include "comgeom.h"
    36 #include "comvert.h"
    37 #include "logic.h"
    38 #include "temps.h"
    39 #include "serre.h"
    4040
    4141c   Arguments:

  • trunk/LMDZ.MARS/libf/dyn3d/massbar.F

    r38 r1422  
    1616#include "dimensions.h"
    1717#include "paramet.h"
    18 #include "comconst.h"
    1918#include "comgeom.h"
    2019c

  • trunk/LMDZ.MARS/libf/dyn3d/massbarxy.F

    r38 r1422  
    1616#include "dimensions.h"
    1717#include "paramet.h"
    18 #include "comconst.h"
    1918#include "comgeom.h"
    2019c

  • trunk/LMDZ.MARS/libf/dyn3d/massdair.F

    r38 r1422  
    1717#include "dimensions.h"
    1818#include "paramet.h"
    19 #include "comconst.h"
    2019#include "comgeom.h"
    2120c

  • trunk/LMDZ.MARS/libf/dyn3d/nxgrarot.F

    r38 r1422  
    1919#include "paramet.h"
    2020#include "comdissipn.h"
    21 #include "logic.h"
    2221c
    2322      INTEGER klevel

  • trunk/LMDZ.MARS/libf/dyn3d/ps_amontF

    r38 r1422  
    1515#include "dimensions.h"
    1616#include "paramet.h"
    17 #include "logic.h"
    18 #include "comvert.h"
    1917#include "comgeom.h"
    2018c

  • trunk/LMDZ.MARS/libf/dyn3d/sortvarc.F

    r791 r1422  
    22     $(itau,ucov,teta,ps,masse,pk,phis,vorpot,phi,bern,dp,time ,
    33     $ vcov )
     4
     5      USE comconst_mod, ONLY: daysec,dtvr,rad,g,omeg
     6      USE temps_mod, ONLY: day_ini
     7      USE ener_mod, ONLY: etot,ptot,ztot,stot,ang,
     8     .                  etot0,ptot0,ztot0,stot0,ang0,
     9     .                  rmsdpdt,rmsv
     10
    411      IMPLICIT NONE
    512
    … …  
    2128#include "dimensions.h"
    2229#include "paramet.h"
    23 #include "comconst.h"
    24 #include "comvert.h"
    2530#include "comgeom.h"
    26 #include "ener.h"
    27 #include "logic.h"
    28 #include "temps.h"
    2931
    3032c   Arguments:

  • trunk/LMDZ.MARS/libf/dyn3d/sortvarc0.F

    r38 r1422  
    22     $(itau,ucov,teta,ps,masse,pk,phis,vorpot,phi,bern,dp,time ,
    33     $ vcov)
     4
     5      USE comconst_mod, ONLY: daysec,dtvr,rad,g,omeg
     6      USE temps_mod, ONLY: day_ini
     7      USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0,rmsdpdt,rmsv
     8
    49      IMPLICIT NONE
    510
    … …  
    2126#include "dimensions.h"
    2227#include "paramet.h"
    23 #include "comconst.h"
    24 #include "comvert.h"
    2528#include "comgeom.h"
    26 #include "ener.h"
    27 #include "logic.h"
    28 #include "temps.h"
    2929
    3030c   Arguments:

  • trunk/LMDZ.MARS/libf/dyn3d/sponge.F

    r575 r1422  
    1111! def file) and doubles as level indexes decrease.
    1212
     13      USE comvert_mod, ONLY: ap,bp,preff
     14
    1315      implicit none
    1416#include "dimensions.h"
    1517#include "paramet.h"
    1618#include "comdissip.h"
    17 #include "comvert.h"
    1819#include "comgeom2.h"
    1920#include "sponge.h"

  • trunk/LMDZ.MARS/libf/dyn3d/testharm.F

    r38 r1422  
    1010      character file*20, str2*2, str2b*2
    1111
    12 #include "serre.h"
    1312#include "fxyprim.h"
    1413

  • trunk/LMDZ.MARS/libf/dyn3d/tourpot.F

    r38 r1422  
    2222#include "paramet.h"
    2323#include "comgeom.h"
    24 #include "logic.h"
    2524
    2625      REAL  rot( ip1jm,llm )

  • trunk/LMDZ.MARS/libf/dyn3d/traceur.F

    r38 r1422  
    2929#include "dimensions.h"
    3030#include "paramet.h"
    31 #include "comconst.h"
    3231
    3332c   Arguments:

  • trunk/LMDZ.MARS/libf/dyn3d/tracvl.F

    r38 r1422  
    99
    1010c
     11      USE comconst_mod, ONLY: dtvr
     12
    1113      IMPLICIT NONE
    1214c
    1315#include "dimensions.h"
    1416#include "paramet.h"
    15 #include "comconst.h"
    16 #include "comvert.h"
    1717#include "comgeom.h"
    1818

  • trunk/LMDZ.MARS/libf/dyn3d/vanleer.F

    r38 r1422  
    22     *                     p ,masse, dq ,  iadv1, teta, pk      )
    33c
     4      USE comconst_mod, ONLY: dtvr
     5
    46      IMPLICIT NONE
    57c
    … …  
    1820#include "dimensions.h"
    1921#include "paramet.h"
    20 #include "comconst.h"
    2122
    2223c   Arguments:

  • trunk/LMDZ.MARS/libf/dyn3d/vitvert.F

    r38 r1422  
    11      SUBROUTINE vitvert ( convm , w )
    22c
     3      USE comvert_mod, ONLY: bp
     4
    35      IMPLICIT NONE
    46
    … …  
    2729#include "dimensions.h"
    2830#include "paramet.h"
    29 #include "comvert.h"
    3031
    3132      REAL w(ip1jmp1,llm),convm(ip1jmp1,llm)

  • trunk/LMDZ.MARS/libf/dyn3d/vlsplt.F

    r38 r1422  
    1818#include "dimensions.h"
    1919#include "paramet.h"
    20 #include "logic.h"
    21 #include "comvert.h"
    22 #include "comconst.h"
    2320
    2421c
    … …  
    129126#include "dimensions.h"
    130127#include "paramet.h"
    131 #include "logic.h"
    132 #include "comvert.h"
    133 #include "comconst.h"
    134128c
    135129c
    … …  
    443437c     par des "dyq" trop faible (special compilateur SUN) 27/11/2003 F. Forget
    444438
     439      USE comconst_mod, ONLY: pi
     440
    445441      IMPLICIT NONE
    446442c
    447443#include "dimensions.h"
    448444#include "paramet.h"
    449 #include "logic.h"
    450 #include "comvert.h"
    451 #include "comconst.h"
    452445#include "comgeom.h"
    453446c
    … …  
    744737#include "dimensions.h"
    745738#include "paramet.h"
    746 #include "logic.h"
    747 #include "comvert.h"
    748 #include "comconst.h"
    749739c
    750740c

  • trunk/LMDZ.MARS/libf/dyn3d/vlspltqs.F

    r38 r1422  
    1919c     pk exner au milieu des couches necessaire pour calculer Qsat
    2020c   --------------------------------------------------------------------
     21      USE comconst_mod, ONLY: cpp
     22
    2123      IMPLICIT NONE
    2224c
    2325#include "dimensions.h"
    2426#include "paramet.h"
    25 #include "logic.h"
    26 #include "comvert.h"
    27 #include "comconst.h"
    2827
    2928c
    … …  
    170169#include "dimensions.h"
    171170#include "paramet.h"
    172 #include "logic.h"
    173 #include "comvert.h"
    174 #include "comconst.h"
    175171c
    176172c
    … …  
    489485c
    490486c   --------------------------------------------------------------------
     487      USE comconst_mod, ONLY: pi
     488
    491489      IMPLICIT NONE
    492490c
    493491#include "dimensions.h"
    494492#include "paramet.h"
    495 #include "logic.h"
    496 #include "comvert.h"
    497 #include "comconst.h"
    498493#include "comgeom.h"
    499494c

  • trunk/LMDZ.MARS/libf/dyn3d/writediagdyn.F90

    r1266 r1422  
    241241! other fixed (time-independent) parameters.
    242242
     243USE comvert_mod, ONLY: pseudoalt
     244USE comconst_mod, ONLY: pi
     245
    243246implicit none
    244247
    … …  
    246249#include"paramet.h"
    247250#include"comgeom.h"
    248 #include"comconst.h"
    249 #include"comvert.h"
    250251#include"netcdf.inc"
    251252

  • trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/calfis.F

    r1403 r1422  
    66c    Auteur :  P. Le Van, F. Hourdin
    77c   .........
     8
     9      USE comvert_mod, ONLY: preff
     10      USE comconst_mod, ONLY: dtphys,cpp,kappa,pi
    811
    912      IMPLICIT NONE
    … …  
    6366#include "dimensions.h"
    6467#include "paramet.h"
    65 #include "temps.h"
    6668
    6769      INTEGER ngridmx,nq
    6870      PARAMETER( ngridmx = 2+(jjm-1)*iim - 1/jjm   )
    6971
    70 #include "comconst.h"
    71 #include "comvert.h"
    7272#include "comgeom2.h"
    7373!#include "control.h"

  • trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/datareadnc.F

    r1415 r1422  
    4444! to use  'getin'
    4545       use ioipsl_getincom
     46      USE comconst_mod, ONLY: g,pi
    4647
    4748      implicit none
    … …  
    5051#include "paramet.h"
    5152#include "comgeom.h"
    52 #include "comconst.h"
    5353#include "netcdf.inc"
    5454#include "datafile.h"
    … …  
    100100
    101101!#include "lmdstd.h"
    102 #include "fxyprim.h"
     102!#include "fxyprim.h"
    103103
    104104      pi=2.*ASIN(1.)

  • trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/grid_noro1.F

    r1403 r1422  
    5151c     IMPLICIT INTEGER (I,J)
    5252c     IMPLICIT REAL(X,Z)
     53
     54       USE comconst_mod, ONLY: rad
     55
    5356       implicit none
    5457       integer iusn,jusn,iext
    … …  
    5760c!-*-      include 'comcstfi.h'
    5861#include "dimensions.h"
    59 #include "comconst.h"
    6062c!-*-
    6163c!-*-      parameter(iim=cols,jjm=rows)

  • trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/ini_archive.F

    r1403 r1422  
    3535 
    3636      use comsoil_h, only: nsoilmx, mlayer
     37      USE comvert_mod, ONLY: ap,bp,aps,bps,pa,preff,presnivs,pseudoalt
     38      USE comconst_mod, ONLY: daysec,dtvr,rad,omeg,g,cpp,kappa,pi
     39      USE logic_mod, ONLY: fxyhypb,ysinus
     40      USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy
     41      USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
    3742      implicit none
    3843
    3944#include "dimensions.h"
    4045#include "paramet.h"
    41 #include "comconst.h"
    42 #include "comvert.h"
    4346#include "comgeom.h"
    44 #include "temps.h"
    45 #include "ener.h"
    46 #include "logic.h"
    47 #include "description.h"
    48 #include "serre.h"
    4947#include "netcdf.inc"
    5048

  • trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/lect_start_archive.F

    r1421 r1422  
    2020      use comsoil_h, only: nsoilmx, layer, mlayer, volcapa, inertiedat
    2121      use planete_h
     22      USE comvert_mod, ONLY: ap,bp,aps,bps,preff
     23      USE comconst_mod, ONLY: kappa,g,pi
    2224      implicit none
    2325
    2426#include "dimensions.h"
    2527#include "paramet.h"
    26 #include "comconst.h"
    27 #include "comvert.h"
    2828#include "comgeom2.h"
    29 #include "logic.h"
    30 #include "description.h"
    31 #include "ener.h"
    32 #include "temps.h"
    3329#include "netcdf.inc"
    3430c=======================================================================

  • trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/newstart.F

    r1421 r1422  
    3535      use comgeomfi_h, only: ini_fillgeom
    3636      use filtreg_mod, only: inifilr
     37      USE comvert_mod, ONLY: ap,bp,pa,preff
     38      USE comconst_mod, ONLY: lllm,daysec,dtphys,dtvr,
     39     .                  cpp,kappa,rad,omeg,g,r,pi
     40      USE serre_mod, ONLY: alphax
     41      USE temps_mod, ONLY: day_ini,hour_ini
     42      USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
    3743
    3844      implicit none
    … …  
    4147      integer, parameter :: ngridmx = (2+(jjm-1)*iim - 1/jjm)
    4248#include "paramet.h"
    43 #include "comconst.h"
    44 #include "comvert.h"
    4549#include "comgeom2.h"
    46 #include "logic.h"
    47 #include "description.h"
    48 #include "ener.h"
    49 #include "temps.h"
    5050#include "comdissnew.h"
    5151#include "clesph0.h"
    52 #include "serre.h"
    5352#include "netcdf.inc"
    5453#include "datafile.h"

  • trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/readhead_NC.F

    r1403 r1422  
    22     .           day0,
    33     .           phis,constR)
     4
     5      USE comvert_mod, ONLY: aps,bps,preff
     6      USE comconst_mod, ONLY: im,jm,lllm,daysec,dtvr,
     7     .                  rad,omeg,g,cpp,kappa,r
     8      USE temps_mod, ONLY: day_ini
     9      USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
     10
    411      IMPLICIT none
    512c======================================================================
    … …  
    1219#include "dimensions.h"
    1320#include "paramet.h"
    14 #include "temps.h"
    15 #include "comconst.h"
    16 #include "comvert.h"
    1721#include "comgeom.h"
    18 #include "ener.h"
    19 #include "description.h"
    2022
    2123c======================================================================

  • trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/start2archive.F

    r1415 r1422  
    2626      use filtreg_mod, only: inifilr
    2727      use control_mod, only: planet_type
     28      USE comvert_mod, ONLY: ap,bp
     29      USE comconst_mod, ONLY: g,cpp
     30      USE logic_mod, ONLY: grireg
     31      USE temps_mod, ONLY: day_ini,hour_ini
    2832      implicit none
    2933
    … …  
    3135      integer, parameter :: ngridmx = (2+(jjm-1)*iim - 1/jjm)
    3236#include "paramet.h"
    33 #include "comconst.h"
    3437#include "comdissip.h"
    35 #include "comvert.h"
    3638#include "comgeom.h"
    37 #include "logic.h"
    38 #include "temps.h"
    39 #include "ener.h"
    40 #include "description.h"
    4139#include "netcdf.inc"
    4240

  • trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/write_archive.F

    r1403 r1422  
    3838#include "paramet.h"
    3939!#include "control.h"
    40 #include "comvert.h"
    4140#include "comgeom.h"
    42 #include "description.h"
    43 #include "temps.h"
    4441#include "netcdf.inc"
    4542

  • trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/xvik.F

    r1403 r1422  
    22
    33      USE filtreg_mod, ONLY: inifilr
     4      USE comconst_mod, ONLY: dtvr,g,r,pi
    45
    56      IMPLICIT NONE
    … …  
    1617#include "dimensions.h"
    1718#include "paramet.h"
    18 #include "comconst.h"
    1919#include "comdissip.h"
    20 #include "comvert.h"
    2120#include "comgeom2.h"
    22 #include "logic.h"
    23 #include "temps.h"
    2421!#include "control.h"
    25 #include "ener.h"
    26 #include "description.h"
    2722#include "netcdf.inc"     
    2823

  • trunk/LMDZ.MARS/libf/filtrez/filtreg_mod.F90

    r1403 r1422  
    77!    ... H. Upadhyaya, O.Sharma   ...
    88!
     9      USE logic_mod, ONLY: fxyhypb,ysinus
     10      USE serre_mod, ONLY: alphax
     11
    912      IMPLICIT NONE
    1013!
    … …  
    1922#include "comgeom.h"
    2023#include "coefils.h"
    21 #include "logic.h"
    22 #include "serre.h"
    2324
    2425      REAL  dlonu(iim),dlatu(jjm)

  • trunk/LMDZ.MARS/libf/filtrez/inifgn.F

    r38 r1422  
    88#include "paramet.h"
    99#include "comgeom.h"
    10 #include "serre.h"
    1110
    1211c

  • trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F

    r1403 r1422  
    1919     &                      cpp, dtphys
    2020      use dimradmars_mod, only: tauscaling,tauvis
     21      USE comvert_mod, ONLY: ap,bp,aps,bps,pa,preff,sig
    2122      IMPLICIT NONE
    2223
    … …  
    5253!#include "comsaison.h"
    5354!#include "control.h"
    54 #include "comvert.h"
    5555#include "netcdf.inc"
    5656#include "comg1d.h"
    57 #include "logic.h"
    5857!#include "advtrac.h"
    5958

  • trunk/LMDZ.MARS/libf/phymars/eofdump_mod.F90

    r1266 r1422  
    8080      use comgeomfi_h, only: long, lati
    8181      use comcstfi_h
     82      USE comvert_mod, ONLY: aps,bps
    8283      implicit none
    8384!
    … …  
    8586!
    8687#include "dimensions.h"
    87 #include "comvert.h"
    8888
    8989      integer,intent(in) :: ngrid ! total number of physics grid points

  • trunk/LMDZ.MARS/libf/phymars/inistats.F

    r1130 r1422  
    22
    33      use mod_phys_lmdz_para, only : is_master
     4      USE comvert_mod, ONLY: ap,bp,aps,bps,preff,pseudoalt,presnivs
     5      USE comconst_mod, ONLY: daysec,dtphys,pi
    46      implicit none
    57
    … …  
    79#include "paramet.h"
    810#include "comgeom.h"
    9 #include "comvert.h"
    10 #include "comconst.h"
    1111#include "statto.h"
    1212#include "netcdf.inc"

  • trunk/LMDZ.MARS/libf/phymars/iniwrite.F

    r1266 r1422  
    33      use comsoil_h, only: mlayer, nsoilmx
    44      USE comcstfi_h
     5      USE comvert_mod, ONLY: ap,bp,aps,bps,pseudoalt
     6      USE logic_mod, ONLY: fxyhypb,ysinus
     7      USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy
     8      USE temps_mod, ONLY: hour_ini
     9      USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
    510      IMPLICIT NONE
    611
    … …  
    2328#include "dimensions.h"
    2429#include "paramet.h"
    25 #include "comvert.h"
    2630#include "comgeom.h"
    27 #include "temps.h"
    28 #include "ener.h"
    29 #include "logic.h"
    3031#include "netcdf.inc"
    31 #include "description.h"
    32 #include "serre.h"
    3332
    3433c   Arguments:

  • trunk/LMDZ.MARS/libf/phymars/newcondens.F

    r1270 r1422  
    1111       use planete_h
    1212       USE comcstfi_h
     13       USE comvert_mod, ONLY: bp
    1314       IMPLICIT NONE
    1415c=======================================================================
    … …  
    5960c
    6061#include "dimensions.h"
    61 #include "comvert.h"
    6262#include "callkeys.h"
    6363

  • trunk/LMDZ.MARS/libf/phymars/physiq.F

    r1410 r1422  
    4545      use eofdump_mod, only: eofdump
    4646#endif
     47      USE comvert_mod, ONLY: ap,bp,aps,bps
    4748
    4849      IMPLICIT NONE
    … …  
    150151#include "comg1d.h"
    151152#include "nlteparams.h"
    152 #include "comvert.h"
    153153#include "chimiedata.h"
    154154#include "netcdf.inc"

  • trunk/LMDZ.MARS/libf/phymars/writediagfi.F

    r1266 r1422  
    4444     &                               is_master, gather
    4545      USE mod_grid_phy_lmdz, only : klon_glo, Grid1Dto2D_glo
     46      USE temps_mod, ONLY: day_ini
    4647      implicit none
    4748
    … …  
    4950#include "dimensions.h"
    5051#include "paramet.h"
    51 #include "comvert.h"
    5252#include "comgeom.h"
    53 #include "description.h"
    5453#include "netcdf.inc"
    55 #include "temps.h"
    5654
    5755! Arguments on input:

  • trunk/LMDZ.MARS/libf/phymars/wstats.F90

    r1266 r1422  
    77
    88#include "dimensions.h"
    9 #include "comconst.h"
    109#include "statto.h"
    1110#include "netcdf.inc"
Note: See TracChangeset for help on using the changeset viewer.