Changeset 1422 for trunk/LMDZ.GENERIC


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.GENERIC/libf
Files:
12 added
12 deleted
69 edited

Legend:

Unmodified
Added
Removed

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

    r253 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
    47      IMPLICIT NONE
    58c
    … …  
    4649#include "dimensions.h"
    4750#include "paramet.h"
    48 #include "comconst.h"
    4951#include "comgeom.h"
    50 #include "serre.h"
    51 #include "comvert.h"
    5252c
    5353c    Arguments :

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

    r135 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.GENERIC/libf/dyn3d/advect.F

    r135 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.GENERIC/libf/dyn3d/amont.F

    r135 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.GENERIC/libf/dyn3d/amont_qsat.F

    r135 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.GENERIC/libf/dyn3d/bernoui.F

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

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

    r135 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.GENERIC/libf/dyn3d/caldyn0.F

    r135 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.GENERIC/libf/dyn3d/convmas.F

    r135 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.GENERIC/libf/dyn3d/coordij.F

    r135 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.GENERIC/libf/dyn3d/defrun_new.F

    r1407 r1422  
    4141      use control_mod,only: nday, day_step, iperiod, anneeref,
    4242     &                      iconser, idissip, iphysiq, ecritphy
     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 "iniprint.h"

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

    r135 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.GENERIC/libf/dyn3d/disvert.F

    r1397 r1422  
    44      USE ioipsl_getincom
    55      USE callkeys_mod, ONLY: kastprof,pceil
     6      USE comvert_mod, ONLY: ap,bp,sig,nivsigs,nivsig,pa,preff,
     7     .                  aps,bps,presnivs,pseudoalt
    68
    79c    Auteur :  F. Forget Y. Wanherdrick, P. Levan
    810c    Nouvelle version 100% Mars !!
    911
     12      USE comconst_mod, ONLY: pi
     13      USE logic_mod, ONLY: autozlevs,hybrid
     14
    1015      IMPLICIT NONE
    1116
    1217#include "dimensions.h"
    1318#include "paramet.h"
    14 #include "comvert.h"
    15 #include "comconst.h"
    16 #include "logic.h"
    1719
    1820

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

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

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

    r135 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.GENERIC/libf/dyn3d/dudv2.F

    r135 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.GENERIC/libf/dyn3d/dynetat0.F

    r1416 r1422  
    22     .                    teta,q,masse,ps,phis,time)
    33      use infotrac, only: tname, nqtot
     4      USE comvert_mod, ONLY: pa,preff
     5      USE comconst_mod, ONLY: im,jm,lllm,daysec,dtvr,rad,omeg,g,cpp,
     6     .                  kappa
     7      USE logic_mod, ONLY: fxyhypb,ysinus
     8      USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy,
     9     .                  taux,tauy
     10      USE temps_mod, ONLY: day_ini
     11      USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
    412      IMPLICIT NONE
    513
    … …  
    2331#include "dimensions.h"
    2432#include "paramet.h"
    25 #include "temps.h"
    26 #include "comconst.h"
    27 #include "comvert.h"
    2833#include "comgeom.h"
    29 #include "ener.h"
    3034#include "netcdf.inc"
    31 #include "serre.h"
    32 #include "logic.h"
    3335!#include"advtrac.h"
    3436

  • trunk/LMDZ.GENERIC/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,
     7     .                  dzoomx,dzoomy,taux,tauy
     8      USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
    39      IMPLICIT NONE
    410c=======================================================================
    … …  
    915#include "dimensions.h"
    1016#include "paramet.h"
    11 #include "comconst.h"
    12 #include "comvert.h"
    1317#include "comgeom.h"
    14 #include "temps.h"
    15 #include "ener.h"
    16 #include "logic.h"
    1718#include "netcdf.inc"
    18 #include "serre.h"
    1919!#include "advtrac.h"
    2020c   Arguments:
    … …  
    962962#include "paramet.h"
    963963#include "netcdf.inc"
    964 #include "comvert.h"
    965964#include "comgeom.h"
    966965!#include"advtrac.h"

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

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

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

    r135 r1422  
    2323c    ( voir note de Fr.Hourdin )  ,
    2424c
     25      USE comvert_mod, ONLY: preff
     26      USE comconst_mod, ONLY: jmp1,kappa,cpp
     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.GENERIC/libf/dyn3d/fluxstoke.F

    r135 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.GENERIC/libf/dyn3d/fxy.F

    r135 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.GENERIC/libf/dyn3d/fxysinus.F

    r135 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.GENERIC/libf/dyn3d/gcm.F

    r1416 r1422  
    77!      use comgeomphy, only: initcomgeomphy
    88      use filtreg_mod, only: inifilr
     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,itaufin,dt
    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 "serre.h"
    5352#include "tracstoke.h"
    5453!#include"advtrac.h"

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

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

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

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

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

    r135 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.GENERIC/libf/dyn3d/groupeun.F

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

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

    r135 r1422  
    11      SUBROUTINE iniav(fichnom,pday0,pyear0,pfrac0,pperiod,phis,nq)
     2
     3      USE comvert_mod, ONLY: ap,bp,nivsigs,nivsig,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.GENERIC/libf/dyn3d/iniconst.F

    r1216 r1422  
    22
    33      use control_mod, only: iphysiq, idissip
     4      USE comconst_mod, ONLY: im,jm,lllm,imp1,jmp1,lllmp1,lllmm1,
     5     .                  dtdiss,dtvr,dtphys,pi,r,cpp,kappa,unsim
    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.GENERIC/libf/dyn3d/inidissip.F

    r1216 r1422  
    99
    1010      use control_mod, only: idissip, iperiod
     11      USE comvert_mod, ONLY: aps,bps,pseudoalt,preff
     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.GENERIC/libf/dyn3d/inigeom.F

    r135 r1422  
    1414c
    1515c
     16      USE comconst_mod, ONLY: rad,omeg,g,pi
     17      USE logic_mod, ONLY: fxyhypb,ysinus
     18      USE serre_mod, ONLY: clon,clat,transx,transy,alphax,alphay,
     19     .          pxo,pyo,grossismx,grossismy,dzoomx,dzoomy,taux,tauy
     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.GENERIC/libf/dyn3d/integrd.F

    r135 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.GENERIC/libf/dyn3d/lectflux.F

    r135 r1422  
    55     s     frac_impa,frac_nucl,phis)
    66
     7      USE comconst_mod, ONLY: dtvr,dtphys
     8
    79      IMPLICIT NONE
    810
    911#include "dimensions.h"
    1012#include "paramet.h"
    11 
    12 #include "comvert.h"
    13 #include "comconst.h"
    1413#include "comgeom2.h"
    1514

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

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

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

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

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

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

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

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

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

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

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

    r135 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.GENERIC/libf/dyn3d/sortvarc0.F

    r135 r1422  
    22     $(itau,ucov,teta,ps,masse,pk,phis,vorpot,phi,bern,dp,time ,
    33     $ vcov)
     4
     5      USE comconst_mod, ONLY: dtvr,daysec,rad,g,omeg
     6      USE temps_mod, ONLY: day_ini
     7      USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0,rmsv,rmsdpdt
     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.GENERIC/libf/dyn3d/sponge_mod.F90

    r1006 r1422  
    11module sponge_mod
     2
     3USE comvert_mod, ONLY: ap,bp,preff
    24
    35implicit none
    … …  
    3436#include "paramet.h"
    3537#include "comdissip.h"
    36 #include "comvert.h"
    3738#include "comgeom2.h"
    3839

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

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

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

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

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

    r253 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.GENERIC/libf/dyn3d/vanleer.F

    r135 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.GENERIC/libf/dyn3d/vitvert.F

    r135 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.GENERIC/libf/dyn3d/vlsplt.F

    r135 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.GENERIC/libf/dyn3d/vlspltqs.F

    r135 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.GENERIC/libf/dynlonlat_phylonlat/calfis.F

    r1403 r1422  
    77c   .........
    88      USE infotrac, ONLY: tname, nqtot
     9      USE comvert_mod, ONLY: preff
     10      USE comconst_mod, ONLY: dtphys,kappa,cpp,pi
    911      IMPLICIT NONE
    1012c=======================================================================
    … …  
    6365#include "dimensions.h"
    6466#include "paramet.h"
    65 #include "temps.h"
    6667
    6768      INTEGER ngridmx,nq
    6869      PARAMETER( ngridmx = 2+(jjm-1)*iim - 1/jjm   )
    6970
    70 #include "comconst.h"
    71 #include "comvert.h"
    7271#include "comgeom2.h"
    7372!#include "control.h"

  • trunk/LMDZ.GENERIC/libf/dynlonlat_phylonlat/phystd/datareadnc.F

    r1403 r1422  
    4545! to use  'getin'
    4646      USE ioipsl_getincom
     47      USE comconst_mod, ONLY: g,pi
    4748      implicit none
    4849
    … …  
    5051#include "paramet.h"
    5152#include "comgeom.h"
    52 #include "comconst.h"
    5353#include "netcdf.inc"
    5454
    … …  
    9595      DIMENSION string(4)
    9696
    97 #include "fxyprim.h"
     97!#include "fxyprim.h"
    9898
    9999      pi=2.*ASIN(1.)

  • trunk/LMDZ.GENERIC/libf/dynlonlat_phylonlat/phystd/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.GENERIC/libf/dynlonlat_phylonlat/phystd/ini_archive.F

    r1403 r1422  
    3737      USE comsoil_h
    3838!      use control_mod
     39      USE comvert_mod, ONLY: ap,bp,aps,bps,presnivs,pseudoalt
     40      USE comconst_mod, ONLY: daysec,dtvr,rad,omeg,g,kappa,pi
    3941      implicit none
    4042
    … …  
    4244!#include "dimphys.h"
    4345#include "paramet.h"
    44 #include "comconst.h"
    45 #include "comvert.h"
    4646#include "comgeom.h"
    47 #include "temps.h"
    48 #include "ener.h"
    49 #include "logic.h"
    50 #include "serre.h"
    5147!#include "control.h"
    5248

  • trunk/LMDZ.GENERIC/libf/dynlonlat_phylonlat/phystd/iniphysiq.F90

    r1403 r1422  
    1919use infotrac, only : nqtot ! number of advected tracers
    2020use planete_mod, only: ini_planete_mod
     21USE comvert_mod, ONLY: ap,bp,preff
    2122
    2223implicit none
    2324include "dimensions.h"
    24 include "comvert.h"
    2525include "iniprint.h"
    2626

  • trunk/LMDZ.GENERIC/libf/dynlonlat_phylonlat/phystd/lect_start_archive.F

    r1421 r1422  
    1313! to use  'getin'
    1414      USE callkeys_mod, ONLY: ok_slab_ocean
     15      USE comvert_mod, ONLY: ap,bp,aps,bps,preff
     16      USE comconst_mod, ONLY: kappa,g,pi
    1517
    1618c=======================================================================
    … …  
    3537!#include "planete.h"
    3638#include "paramet.h"
    37 #include "comconst.h"
    38 #include "comvert.h"
    3939#include "comgeom2.h"
    4040!#include "control.h"
    41 !#include "logic.h"
    42 #include "ener.h"
    43 #include "temps.h"
    4441#include "netcdf.inc"
    4542!#include"advtrac.h"

  • trunk/LMDZ.GENERIC/libf/dynlonlat_phylonlat/phystd/newstart.F

    r1421 r1422  
    3131      use slab_ice_h, only:noceanmx
    3232      use filtreg_mod, only: inifilr
     33      USE comvert_mod, ONLY: ap,bp,aps,bps,pa,preff
     34      USE comconst_mod, ONLY: lllm,daysec,dtvr,dtphys,cpp,kappa,
     35     .                  rad,omeg,g,r,pi
     36      USE serre_mod, ONLY: alphax
     37      USE temps_mod, ONLY: day_ini
     38      USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
    3339      implicit none
    3440
    … …  
    3844!#include "planete.h"
    3945#include "paramet.h"
    40 #include "comconst.h"
    41 #include "comvert.h"
    4246#include "comgeom2.h"
    4347!#include "control.h"
    44 #include "logic.h"
    45 #include "ener.h"
    46 #include "temps.h"
    4748#include "comdissnew.h"
    48 #include "serre.h"
    4949#include "netcdf.inc"
    5050!#include "advtrac.h"

  • trunk/LMDZ.GENERIC/libf/dynlonlat_phylonlat/phystd/start2archive.F

    r1415 r1422  
    3131      USE callkeys_mod, ONLY: ok_slab_ocean
    3232      use filtreg_mod, only: inifilr
     33      USE comvert_mod, ONLY: ap,bp
     34      USE comconst_mod, ONLY: cpp,g
     35      USE logic_mod, ONLY: grireg
     36      USE temps_mod, ONLY: day_ini
    3337      implicit none
    3438
    … …  
    3640      integer, parameter :: ngridmx = (2+(jjm-1)*iim - 1/jjm)
    3741#include "paramet.h"
    38 #include "comconst.h"
    3942#include "comdissip.h"
    40 #include "comvert.h"
    4143#include "comgeom.h"
    42 #include "logic.h"
    43 #include "temps.h"
    4444!#include "control.h"
    45 #include "ener.h"
    4645
    4746!#include "dimphys.h"

  • trunk/LMDZ.GENERIC/libf/dynlonlat_phylonlat/phystd/write_archive.F

    r1403 r1422  
    3737#include "dimensions.h"
    3838#include "paramet.h"
    39 #include "comvert.h"
    4039#include "comgeom.h"
    41 #include "temps.h"
    4240#include "netcdf.inc"
    4341

  • trunk/LMDZ.GENERIC/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.GENERIC/libf/filtrez/inifgn.F

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

  • trunk/LMDZ.GENERIC/libf/phystd/dyn1d/rcm1d.F

    r1403 r1422  
    2323      use callkeys_mod, only: tracer,check_cpp_match,rings_shadow,
    2424     &          specOLR,water,pceil,ok_slab_ocean
     25      USE comvert_mod, ONLY: ap,bp,aps,bps,pa,preff
     26      USE logic_mod, ONLY: hybrid,autozlevs
    2527      implicit none
    2628
    … …  
    5254#include "paramet.h"
    5355!include "dimphys.h"
    54 #include "comvert.h"
    5556#include "netcdf.inc"
    56 #include "logic.h"
    5757#include "comgeom.h"
    5858

  • trunk/LMDZ.GENERIC/libf/phystd/inistats.F

    r1397 r1422  
    33      use mod_phys_lmdz_para, only : is_master
    44      use statto_mod, only: istats,istime
     5      USE comvert_mod, ONLY: ap,bp,aps,bps,preff,pseudoalt,presnivs
     6      USE comconst_mod, ONLY: daysec,dtphys,pi
    57      implicit none
    68
    … …  
    810#include "paramet.h"
    911#include "comgeom.h"
    10 #include "comvert.h"
    11 #include "comconst.h"
    1212#include "netcdf.inc"
    1313

  • trunk/LMDZ.GENERIC/libf/phystd/iniwrite.F

    r1384 r1422  
    44      use comcstfi_mod, only: rad, omeg, g, mugaz, rcp, daysec, dtphys,
    55     &                        pi
     6      USE comvert_mod, ONLY: ap,bp,aps,bps,pseudoalt
     7      USE logic_mod, ONLY: fxyhypb,ysinus
     8      USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy
     9      USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
    610      IMPLICIT NONE
    711
    … …  
    2428#include "dimensions.h"
    2529#include "paramet.h"
    26 #include "comvert.h"
    2730#include "comgeom.h"
    28 #include "ener.h"
    29 #include "logic.h"
    3031#include "netcdf.inc"
    31 #include "serre.h"
    3232
    3333c   Arguments:

  • trunk/LMDZ.GENERIC/libf/phystd/iniwrite_specIR.F

    r1384 r1422  
    55      use comcstfi_mod, only: rad, omeg, g, mugaz, rcp, daysec, dtphys,
    66     &                        pi
     7      USE logic_mod, ONLY: fxyhypb,ysinus
     8      USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy
     9      USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
    710
    811      implicit none
    … …  
    2629#include "dimensions.h"
    2730#include "paramet.h"
    28 #include "comvert.h"
    2931#include "comgeom.h"
    30 #include "temps.h"
    31 #include "ener.h"
    32 #include "logic.h"
    3332#include "netcdf.inc"
    34 #include "serre.h"
    3533!#include"dimphys.h"
    3634

  • trunk/LMDZ.GENERIC/libf/phystd/iniwrite_specVI.F

    r1384 r1422  
    66      use comcstfi_mod, only: rad, omeg, g, mugaz, rcp, daysec, dtphys,
    77     &                        pi
     8      USE logic_mod, ONLY: fxyhypb,ysinus
     9      USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy
     10      USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
     11
    812      implicit none
    913
    … …  
    2630#include "dimensions.h"
    2731#include "paramet.h"
    28 #include "comvert.h"
    2932#include "comgeom.h"
    30 #include "temps.h"
    31 #include "ener.h"
    32 #include "logic.h"
    3333#include "netcdf.inc"
    34 #include "serre.h"
    3534!#include"dimphys.h"
    3635

  • trunk/LMDZ.GENERIC/libf/phystd/writediagfi.F

    r1318 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"
    5353      include "netcdf.inc"
    54       include "temps.h"
    5554
    5655! Arguments on input:

  • trunk/LMDZ.GENERIC/libf/phystd/writediagspecIR.F

    r1397 r1422  
    5050      use control_mod, only: ecritphy, iphysiq, day_step
    5151      use callkeys_mod, only: iradia
     52      USE temps_mod, ONLY: day_ini
    5253
    5354      implicit none
    … …  
    5859#include "paramet.h"
    5960!#include "control.h"
    60 #include "comvert.h"
    6161#include "comgeom.h"
    6262#include "netcdf.inc"
    63 #include "temps.h"
    6463
    6564! Arguments on input:

  • trunk/LMDZ.GENERIC/libf/phystd/writediagspecVI.F

    r1397 r1422  
    5050      use control_mod, only: ecritphy, iphysiq, day_step
    5151      use callkeys_mod, only: iradia
     52      USE temps_mod, ONLY: day_ini
    5253
    5354      implicit none
    … …  
    5859#include "paramet.h"
    5960!#include "control.h"
    60 #include "comvert.h"
    6161#include "comgeom.h"
    6262#include "netcdf.inc"
    63 #include "temps.h"
    6463
    6564! Arguments on input:

  • trunk/LMDZ.GENERIC/libf/phystd/wstats.F90

    r1397 r1422  
    99#include "dimensions.h"
    1010!#include "dimphys.h"
    11 #include "comconst.h"
    1211#include "netcdf.inc"
    1312
Note: See TracChangeset for help on using the changeset viewer.