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.COMMON/libf/dyn3dpar
Files:
2 added
47 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.COMMON/libf/dyn3dpar/addfi_p.F

    r1348 r1422  
    88      USE infotrac, ONLY : nqtot
    99      USE control_mod, ONLY : planet_type
     10      USE comconst_mod, ONLY: kappa
    1011      IMPLICIT NONE
    1112c
    … …  
    4849#include "dimensions.h"
    4950#include "paramet.h"
    50 #include "comconst.h"
    5151#include "comgeom.h"
    52 #include "serre.h"
    5352c
    5453c    Arguments :

  • trunk/LMDZ.COMMON/libf/dyn3dpar/advect_new_p.F

    r1019 r1422  
    66      USE parallel_lmdz
    77      USE write_field_p
     8      USE comconst_mod, ONLY: daysec
     9      USE logic_mod, ONLY: conser
    810      IMPLICIT NONE
    911c=======================================================================
    … …  
    2830#include "dimensions.h"
    2931#include "paramet.h"
    30 #include "comconst.h"
    31 #include "comvert.h"
    3232#include "comgeom.h"
    33 #include "logic.h"
    34 #include "ener.h"
    3533
    3634c   Arguments:

  • trunk/LMDZ.COMMON/libf/dyn3dpar/advect_p.F

    r1019 r1422  
    55      USE parallel_lmdz
    66      USE write_field_p
     7      USE comconst_mod, ONLY: daysec
     8      USE logic_mod, ONLY: conser
    79      IMPLICIT NONE
    810c=======================================================================
    … …  
    2729#include "dimensions.h"
    2830#include "paramet.h"
    29 #include "comconst.h"
    30 #include "comvert.h"
    3131#include "comgeom.h"
    32 #include "logic.h"
    33 #include "ener.h"
    3432
    3533c   Arguments:

  • trunk/LMDZ.COMMON/libf/dyn3dpar/advtrac_p.F90

    r1189 r1422  
    1818  USE infotrac, ONLY: nqtot, iadv
    1919  USE control_mod, ONLY: iapp_tracvl, day_step, planet_type
     20  USE comconst_mod, ONLY: dtvr
    2021  IMPLICIT NONE
    2122  !
    2223  include "dimensions.h"
    2324  include "paramet.h"
    24   include "comconst.h"
    25   include "comvert.h"
    2625  include "comdissip.h"
    2726  include "comgeom2.h"
    28   include "logic.h"
    29   include "temps.h"
    30   include "ener.h"
    31   include "description.h"
    3227
    3328  !-------------------------------------------------------------------

  • trunk/LMDZ.COMMON/libf/dyn3dpar/bernoui_p.F

    r1019 r1422  
    2525#include "dimensions.h"
    2626#include "paramet.h"
    27 #include "logic.h"
    2827c
    2928c   Arguments:

  • trunk/LMDZ.COMMON/libf/dyn3dpar/bilan_dyn_p.F

    r1300 r1422  
    1717      use misc_mod
    1818      use write_field_p
     19      USE comvert_mod, ONLY: presnivs
     20      USE comconst_mod, ONLY: cpp,pi
     21      USE temps_mod, ONLY: annee_ref,day_ref,itau_dyn
    1922      IMPLICIT NONE
    2023
    2124#include "dimensions.h"
    2225#include "paramet.h"
    23 #include "comconst.h"
    24 #include "comvert.h"
    2526#include "comgeom2.h"
    26 #include "temps.h"
    2727#include "iniprint.h"
    2828

  • trunk/LMDZ.COMMON/libf/dyn3dpar/caldyn_p.F

    r1189 r1422  
    1010      USE parallel_lmdz
    1111      USE Write_Field_p
     12      USE comvert_mod, ONLY: ap,bp
    1213     
    1314      IMPLICIT NONE
    … …  
    3132#include "dimensions.h"
    3233#include "paramet.h"
    33 #include "comconst.h"
    34 #include "comvert.h"
    3534#include "comgeom.h"
    3635

  • trunk/LMDZ.COMMON/libf/dyn3dpar/ce0l.F90

    r1302 r1422  
    4242!#include "indicesol.h"
    4343#include "iniprint.h"
    44 #include "temps.h"
    45 #include "logic.h"
    4644#ifdef CPP_MPI
    4745      include 'mpif.h'

  • trunk/LMDZ.COMMON/libf/dyn3dpar/conf_gcm.F90

    r1391 r1422  
    1919  use assert_m, only: assert
    2020  use sponge_mod_p, only: callsponge,mode_sponge,nsponge,tetasponge
     21  USE comconst_mod, ONLY: dissip_factz,dissip_deltaz,dissip_zref,               &
     22                dissip_fac_mid,dissip_fac_up,dissip_hdelta,dissip_pupstart,     &
     23                mode_top_bound,tau_top_bound,iflag_top_bound
     24  USE logic_mod, ONLY: tidal,purmats,ok_guide,read_start,iflag_phys,iflag_trac, &
     25                ok_strato,ok_gradsfile,ok_limit,ok_etat0,moyzon_mu,moyzon_ch,   &
     26                fxyhypb,ysinus
     27  USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy,             &
     28                alphax,alphay,taux,tauy
     29  USE temps_mod, ONLY: calend
     30
    2131  IMPLICIT NONE
    2232!-----------------------------------------------------------------------
    … …  
    3646  include "dimensions.h"
    3747  include "paramet.h"
    38   include "logic.h"
    39   include "serre.h"
    4048  include "comdissnew.h"
    4149  include "iniprint.h"
    42   include "temps.h"
    43   include "comconst.h"
    4450
    4551! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique

  • trunk/LMDZ.COMMON/libf/dyn3dpar/convmas1_p.F

    r1019 r1422  
    3232#include "dimensions.h"
    3333#include "paramet.h"
    34 #include "comvert.h"
    35 #include "logic.h"
    3634
    3735      REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm )

  • trunk/LMDZ.COMMON/libf/dyn3dpar/convmas2_p.F

    r1019 r1422  
    3232#include "dimensions.h"
    3333#include "paramet.h"
    34 #include "comvert.h"
    35 #include "logic.h"
    3634
    3735      REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm )

  • trunk/LMDZ.COMMON/libf/dyn3dpar/convmas_p.F

    r1019 r1422  
    3232#include "dimensions.h"
    3333#include "paramet.h"
    34 #include "comvert.h"
    35 #include "logic.h"
    3634
    3735      REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm )

  • trunk/LMDZ.COMMON/libf/dyn3dpar/dissip_p.F

    r1189 r1422  
    66      USE parallel_lmdz
    77      USE write_field_p
     8      USE comconst_mod, ONLY: dtdiss
    89      IMPLICIT NONE
    910
    … …  
    2930#include "dimensions.h"
    3031#include "paramet.h"
    31 #include "comconst.h"
    3232#include "comgeom.h"
    3333#include "comdissnew.h"

  • trunk/LMDZ.COMMON/libf/dyn3dpar/divgrad_p.F

    r1019 r1422  
    2323#include "comgeom.h"
    2424#include "comdissipn.h"
    25 #include "logic.h"
    2625c
    2726      INTEGER klevel

  • trunk/LMDZ.COMMON/libf/dyn3dpar/dteta1_p.F

    r1019 r1422  
    2222#include "dimensions.h"
    2323#include "paramet.h"
    24 #include "logic.h"
    2524
    2625      REAL teta( ip1jmp1,llm ),pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm)

  • trunk/LMDZ.COMMON/libf/dyn3dpar/dudv2_p.F

    r1019 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.COMMON/libf/dyn3dpar/dynredem_p.F

    r1107 r1422  
    1111      use netcdf95, only: NF95_PUT_VAR
    1212      use control_mod, only : planet_type
     13      USE comvert_mod, ONLY: ap,bp,aps,bps,pa,preff,nivsig,nivsigs,
     14     .                  presnivs,pseudoalt
     15      USE comconst_mod, ONLY: daysec,dtvr,rad,omeg,g,cpp,kappa,pi
     16      USE logic_mod, ONLY: fxyhypb,ysinus
     17      USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy,
     18     .                  taux,tauy
     19      USE temps_mod, ONLY: annee_ref,day_ref,itau_dyn,itaufin,
     20     .                  start_time,hour_ini
     21      USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
    1322
    1423      IMPLICIT NONE
    … …  
    2029#include "dimensions.h"
    2130#include "paramet.h"
    22 #include "comconst.h"
    23 #include "comvert.h"
    2431#include "comgeom2.h"
    25 #include "temps.h"
    26 #include "ener.h"
    27 #include "logic.h"
    2832#include "netcdf.inc"
    29 #include "description.h"
    30 #include "serre.h"
    3133#include "iniprint.h"
    3234
    … …  
    590592      use netcdf, only: NF90_get_VAR
    591593      use netcdf95, only: NF95_PUT_VAR
     594      USE temps_mod, ONLY: itau_dyn,itaufin
    592595
    593596      IMPLICIT NONE
    … …  
    597600#include "dimensions.h"
    598601#include "paramet.h"
    599 #include "description.h"
    600602#include "netcdf.inc"
    601 #include "comvert.h"
    602603#include "comgeom.h"
    603 #include "temps.h"
    604604#include "iniprint.h"
    605605

  • trunk/LMDZ.COMMON/libf/dyn3dpar/exner_hyb_p_m.F90

    r1302 r1422  
    3333    !
    3434    USE parallel_lmdz
     35    USE comvert_mod, ONLY: preff
     36    USE comconst_mod, ONLY: jmp1,kappa,cpp,r
    3537    !
    3638    include "dimensions.h"
    3739    include "paramet.h"
    38     include "comconst.h"
    3940    include "comgeom.h"
    40     include "comvert.h"
    41     include "serre.h"
    4241
    4342    INTEGER  ngrid

  • trunk/LMDZ.COMMON/libf/dyn3dpar/exner_milieu_p_m.F90

    r1302 r1422  
    11module exner_milieu_p_m
     2
     3  USE comconst_mod, ONLY: jmp1,kappa,cpp,r
    24
    35  IMPLICIT NONE
    … …  
    3032    !
    3133    USE parallel_lmdz
     34    USE comvert_mod, ONLY: preff
    3235    !
    3336    include "dimensions.h"
    3437    include "paramet.h"
    35     include "comconst.h"
    3638    include "comgeom.h"
    37     include "comvert.h"
    38     include "serre.h"
    3939
    4040    INTEGER  ngrid

  • trunk/LMDZ.COMMON/libf/dyn3dpar/fluxstokenc_p.F

    r1019 r1422  
    2121#include "dimensions.h"
    2222#include "paramet.h"
    23 #include "comconst.h"
    24 #include "comvert.h"
    2523#include "comgeom.h"
    2624#include "tracstoke.h"
    27 #include "temps.h"
    2825#include "iniprint.h"
    2926

  • trunk/LMDZ.COMMON/libf/dyn3dpar/friction_p.F

    r1019 r1422  
    1212      USE ioipsl_getincom
    1313#endif
     14      USE comconst_mod, ONLY: pi
    1415      IMPLICIT NONE
    1516
    … …  
    2930#include "paramet.h"
    3031#include "comgeom2.h"
    31 #include "comconst.h"
    3232#include "iniprint.h"
    3333#include "academic.h"

  • trunk/LMDZ.COMMON/libf/dyn3dpar/gcm.F

    r1395 r1422  
    3939      USE comgeomphy
    4040#endif
     41      USE comconst_mod, ONLY: daysec,dtvr,dtphys,rad,g,r,cpp
     42      USE logic_mod
     43      USE temps_mod, ONLY: calend,start_time,annee_ref,day_ref,
     44     .          itau_dyn,itau_phy,day_ini,jD_ref,jH_ref,day_end,
     45     .          dt,hour_ini,itaufin
    4146      IMPLICIT NONE
    4247
    … …  
    7378#include "dimensions.h"
    7479#include "paramet.h"
    75 #include "comconst.h"
    7680#include "comdissnew.h"
    77 #include "comvert.h"
    7881#include "comgeom.h"
    79 #include "logic.h"
    80 #include "temps.h"
    8182!!!!!!!!!!!#include "control.h"
    82 #include "ener.h"
    83 #include "description.h"
    84 #include "serre.h"
    8583!#include "com_io_dyn.h"
    8684#include "iniprint.h"
    … …  
    166164      abort_message = 'last timestep reached'
    167165      modname = 'gcm'
    168       descript = 'Run GCM LMDZ'
    169166      lafin    = .FALSE.
    170167      dynhist_file = 'dyn_hist'
    … …  
    608605!variable temps no longer exists
    609606c$OMP PARALLEL DEFAULT(SHARED)
    610 c$OMP1 COPYIN(/temps_r/,/temps_i/,/temps_c/,/logici/,/logicl/)
     607c       Copy all threadprivate variables from temps_mod
     608c$OMP1 COPYIN(dt,jD_ref,jH_ref,start_time,hour_ini,day_ini,day_end)
     609c$OMP1 COPYIN(annee_ref,day_ref,itau_dyn,itau_phy,itaufin,calend)
     610c       Copy all threadprivate variables from logic_mod
     611c$OMP1 COPYIN(purmats,forward,leapf,apphys,statcl,conser,apdiss,apdelq)
     612c$OMP1 COPYIN(saison,ecripar,fxyhypb,ysinus,read_start,ok_guide)
     613c$OMP1 COPYIN(ok_strato,tidal,ok_gradsfile,ok_limit,ok_etat0,physic)
     614c$OMP1 COPYIN(grireg,iflag_phys,iflag_trac)
     615
     616
    611617      CALL leapfrog_p(ucov,vcov,teta,ps,masse,phis,q,
    612618     .              time_0)

  • trunk/LMDZ.COMMON/libf/dyn3dpar/geopot_p.F

    r1019 r1422  
    2828#include "dimensions.h"
    2929#include "paramet.h"
    30 #include "comvert.h"
    3130
    3231c   Arguments:

  • trunk/LMDZ.COMMON/libf/dyn3dpar/gradiv_p.F

    r1019 r1422  
    2121#include "paramet.h"
    2222#include "comdissipn.h"
    23 #include "logic.h"
    2423
    2524      INTEGER klevel

  • trunk/LMDZ.COMMON/libf/dyn3dpar/groupe_p.F

    r1019 r1422  
    1616#include "dimensions.h"
    1717#include "paramet.h"
    18 #include "comconst.h"
    1918#include "comgeom2.h"
    20 #include "comvert.h"
    2119
    2220      integer ngroup

  • trunk/LMDZ.COMMON/libf/dyn3dpar/groupeun_p.F

    r1019 r1422  
    66#include "dimensions.h"
    77#include "paramet.h"
    8 #include "comconst.h"
    98#include "comgeom2.h"
    109
    … …  
    140139#include "dimensions.h"
    141140#include "paramet.h"
    142 #include "comconst.h"
    143141#include "comgeom2.h"
    144142

  • trunk/LMDZ.COMMON/libf/dyn3dpar/guide_p_mod.F90

    r1391 r1422  
    6969
    7070    USE control_mod
     71    USE serre_mod, ONLY: grossismx
    7172
    7273    IMPLICIT NONE
    … …  
    7576    INCLUDE "paramet.h"
    7677    INCLUDE "netcdf.inc"
    77 
    78     ! For grossismx:
    79     include "serre.h"
    8078
    8179    INTEGER                :: error,ncidpl,rid,rcod
    … …  
    341339    USE parallel_lmdz
    342340    USE control_mod
     341    USE comvert_mod, ONLY: ap,bp,preff,presnivs,pressure_exner
     342    USE comconst_mod, ONLY: daysec,dtvr,kappa,cpp
    343343   
    344344    IMPLICIT NONE
    … …  
    346346    INCLUDE "dimensions.h"
    347347    INCLUDE "paramet.h"
    348     INCLUDE "comconst.h"
    349     INCLUDE "comvert.h"
    350348
    351349    ! Variables entree
    … …  
    619617  SUBROUTINE guide_zonave(typ,hsize,vsize,field)
    620618
     619    USE comconst_mod, ONLY: pi
     620
    621621    IMPLICIT NONE
    622622
    … …  
    624624    INCLUDE "paramet.h"
    625625    INCLUDE "comgeom.h"
    626     INCLUDE "comconst.h"
    627626   
    628627    ! input/output variables
    … …  
    707706  USE mod_hallo
    708707  USE Bands
     708  USE comvert_mod, ONLY: ap,bp,preff,pressure_exner
     709  USE comconst_mod, ONLY: kappa,cpp
    709710  IMPLICIT NONE
    710711
    711712  include "dimensions.h"
    712713  include "paramet.h"
    713   include "comvert.h"
    714714  include "comgeom2.h"
    715   include "comconst.h"
    716715
    717716  REAL, DIMENSION (iip1,jjp1),     INTENT(IN) :: psi ! Psol gcm
    … …  
    10991098! Calcul des constantes de rappel alpha (=1/tau)
    11001099
     1100    USE comconst_mod, ONLY: pi
     1101    USE serre_mod, ONLY: clon,clat,grossismx,grossismy
     1102
    11011103    implicit none
    11021104
    11031105    include "dimensions.h"
    11041106    include "paramet.h"
    1105     include "comconst.h"
    11061107    include "comgeom2.h"
    1107     include "serre.h"
    11081108
    11091109! input arguments :
    … …  
    18131813  SUBROUTINE guide_out(varname,hsize,vsize,field,factt)
    18141814    USE parallel_lmdz
     1815    USE comvert_mod, ONLY: presnivs
     1816    USE comconst_mod, ONLY: pi
    18151817    IMPLICIT NONE
    18161818
    … …  
    18191821    INCLUDE "netcdf.inc"
    18201822    INCLUDE "comgeom2.h"
    1821     INCLUDE "comconst.h"
    1822     INCLUDE "comvert.h"
    18231823   
    18241824    ! Variables entree

  • trunk/LMDZ.COMMON/libf/dyn3dpar/initdynav_p.F

    r1019 r1422  
    1212       use misc_mod
    1313       USE infotrac
     14       USE comvert_mod, ONLY: nivsigs
     15       USE comconst_mod, ONLY: pi
     16       USE temps_mod, ONLY: itau_dyn
    1417
    1518      implicit none
    … …  
    4346#include "dimensions.h"
    4447#include "paramet.h"
    45 #include "comconst.h"
    46 #include "comvert.h"
    4748#include "comgeom.h"
    48 #include "temps.h"
    49 #include "ener.h"
    50 #include "logic.h"
    51 #include "description.h"
    52 #include "serre.h"
    5349#include "iniprint.h"
    5450

  • trunk/LMDZ.COMMON/libf/dyn3dpar/initfluxsto_p.F

    r1019 r1422  
    1313       use Write_field
    1414       use misc_mod
     15       USE comvert_mod, ONLY: nivsigs
     16       USE comconst_mod, ONLY: pi
     17       USE temps_mod, ONLY: annee_ref,day_ref,itau_dyn
    1518       
    1619      implicit none
    … …  
    4548#include "dimensions.h"
    4649#include "paramet.h"
    47 #include "comconst.h"
    48 #include "comvert.h"
    4950#include "comgeom.h"
    50 #include "temps.h"
    51 #include "ener.h"
    52 #include "logic.h"
    53 #include "description.h"
    54 #include "serre.h"
    5551#include "iniprint.h"
    5652

  • trunk/LMDZ.COMMON/libf/dyn3dpar/inithist_p.F

    r1019 r1422  
    1313       use misc_mod
    1414       USE infotrac
     15       USE comvert_mod, ONLY: nivsigs
     16       USE comconst_mod, ONLY: pi
     17       USE temps_mod, ONLY: itau_dyn
    1518
    1619      implicit none
    … …  
    4548#include "dimensions.h"
    4649#include "paramet.h"
    47 #include "comconst.h"
    48 #include "comvert.h"
    4950#include "comgeom.h"
    50 #include "temps.h"
    51 #include "ener.h"
    52 #include "logic.h"
    53 #include "description.h"
    54 #include "serre.h"
    5551#include "iniprint.h"
    5652

  • trunk/LMDZ.COMMON/libf/dyn3dpar/integrd_p.F

    r1391 r1422  
    77      USE parallel_lmdz
    88      USE control_mod, only : planet_type
     9      USE comvert_mod, ONLY: ap,bp
     10      USE comconst_mod, ONLY: pi
     11      USE logic_mod, ONLY: leapf
     12      USE temps_mod, ONLY: dt
    913      IMPLICIT NONE
    1014
    … …  
    2731#include "dimensions.h"
    2832#include "paramet.h"
    29 #include "comconst.h"
    3033#include "comgeom.h"
    31 #include "comvert.h"
    32 #include "logic.h"
    33 #include "temps.h"
    34 #include "serre.h"
    3534#include "iniprint.h"
    3635

  • trunk/LMDZ.COMMON/libf/dyn3dpar/leapfrog_p.F

    r1403 r1422  
    3333       use sponge_mod_p, only: callsponge,mode_sponge,sponge_p
    3434       use comuforc_h
     35       USE comvert_mod, ONLY: ap,bp,pressure_exner,presnivs
     36       USE comconst_mod, ONLY: jmp1,daysec,dtvr,dtphys,dtdiss,
     37     .                  cpp,ihf,iflag_top_bound,pi
     38       USE logic_mod, ONLY: iflag_phys,ok_guide,forward,leapf,apphys,
     39     .                  statcl,conser,apdiss,purmats,tidal,ok_strato
     40       USE temps_mod, ONLY: itaufin,jD_ref,jH_ref,day_ini,
     41     .                  day_ref,start_time,dt
     42
    3543
    3644      IMPLICIT NONE
    … …  
    6977#include "dimensions.h"
    7078#include "paramet.h"
    71 #include "comconst.h"
    7279#include "comdissnew.h"
    73 #include "comvert.h"
    7480#include "comgeom.h"
    75 #include "logic.h"
    76 #include "temps.h"
    77 #include "ener.h"
    78 #include "description.h"
    79 #include "serre.h"
    8081!#include "com_io_dyn.h"
    8182#include "iniprint.h"

  • trunk/LMDZ.COMMON/libf/dyn3dpar/massbar_p.F

    r1019 r1422  
    1818#include "dimensions.h"
    1919#include "paramet.h"
    20 #include "comconst.h"
    2120#include "comgeom.h"
    2221c

  • trunk/LMDZ.COMMON/libf/dyn3dpar/massbarxy_p.F

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

  • trunk/LMDZ.COMMON/libf/dyn3dpar/massdair_p.F

    r1019 r1422  
    1818#include "dimensions.h"
    1919#include "paramet.h"
    20 #include "comconst.h"
    2120#include "comgeom.h"
    2221c

  • trunk/LMDZ.COMMON/libf/dyn3dpar/nxgrarot_p.F

    r1019 r1422  
    2222#include "paramet.h"
    2323#include "comdissipn.h"
    24 #include "logic.h"
    2524c
    2625      INTEGER klevel

  • trunk/LMDZ.COMMON/libf/dyn3dpar/qminimum_p.F

    r1019 r1422  
    11      SUBROUTINE qminimum_p( q,nq,deltap )
    22      USE parallel_lmdz
     3      USE comvert_mod, ONLY: presnivs
    34      IMPLICIT none
    45c
    … …  
    89#include "dimensions.h"
    910#include "paramet.h"
    10 #include "comvert.h"
    1111c
    1212      INTEGER nq

  • trunk/LMDZ.COMMON/libf/dyn3dpar/sponge_mod_p.F90

    r1315 r1422  
    11module sponge_mod_p
     2
     3USE comvert_mod, ONLY: ap,bp,preff,scaleheight
    24
    35implicit none
    … …  
    3638#include "paramet.h"
    3739#include "comdissip.h"
    38 #include "comvert.h"
    3940#include "comgeom2.h"
    4041#include "iniprint.h"

  • trunk/LMDZ.COMMON/libf/dyn3dpar/sw_case_williamson91_6.F

    r1 r1422  
    2626c
    2727c=======================================================================
     28      USE comvert_mod, ONLY: ap,bp,preff
     29      USE comconst_mod, ONLY: cpp,omeg,rad
     30
    2831      IMPLICIT NONE
    2932c-----------------------------------------------------------------------
    … …  
    3336#include "dimensions.h"
    3437#include "paramet.h"
    35 #include "comvert.h"
    36 #include "comconst.h"
    3738#include "comgeom.h"
    3839#include "iniprint.h"

  • trunk/LMDZ.COMMON/libf/dyn3dpar/top_bound_p.F

    r1019 r1422  
    44      SUBROUTINE top_bound_p(vcov,ucov,teta,masse,dt,ducov)
    55      USE parallel_lmdz
     6      USE comvert_mod, ONLY: presnivs,preff,scaleheight
     7      USE comconst_mod, ONLY: iflag_top_bound,tau_top_bound,
     8     .                  mode_top_bound
    69      IMPLICIT NONE
    710c
    811#include "dimensions.h"
    912#include "paramet.h"
    10 #include "comconst.h"
    11 #include "comvert.h"
    1213#include "comgeom2.h"
    1314

  • trunk/LMDZ.COMMON/libf/dyn3dpar/tourpot_p.F

    r1019 r1422  
    2323#include "paramet.h"
    2424#include "comgeom.h"
    25 #include "logic.h"
    2625
    2726      REAL  rot( ip1jm,llm )

  • trunk/LMDZ.COMMON/libf/dyn3dpar/vitvert_p.F

    r1019 r1422  
    22c
    33      USE parallel_lmdz
     4      USE comvert_mod, ONLY: bp
    45      IMPLICIT NONE
    56
    … …  
    2829#include "dimensions.h"
    2930#include "paramet.h"
    30 #include "comvert.h"
    3131
    3232      REAL w(ip1jmp1,llm),convm(ip1jmp1,llm)

  • trunk/LMDZ.COMMON/libf/dyn3dpar/vlsplt_p.F

    r1019 r1422  
    2121#include "dimensions.h"
    2222#include "paramet.h"
    23 #include "logic.h"
    24 #include "comvert.h"
    25 #include "comconst.h"
    2623
    2724c
    … …  
    204201#include "dimensions.h"
    205202#include "paramet.h"
    206 #include "logic.h"
    207 #include "comvert.h"
    208 #include "comconst.h"
    209203c
    210204c
    … …  
    535529c   --------------------------------------------------------------------
    536530      USE parallel_lmdz
     531      USE comconst_mod, ONLY: pi
     532
    537533      IMPLICIT NONE
    538534c
    539535#include "dimensions.h"
    540536#include "paramet.h"
    541 #include "logic.h"
    542 #include "comvert.h"
    543 #include "comconst.h"
    544537#include "comgeom.h"
    545538c
    … …  
    928921#include "dimensions.h"
    929922#include "paramet.h"
    930 #include "logic.h"
    931 #include "comvert.h"
    932 #include "comconst.h"
    933923c
    934924c

  • trunk/LMDZ.COMMON/libf/dyn3dpar/vlspltgen_p.F

    r1019 r1422  
    2727      USE VAMPIR
    2828      USE infotrac, ONLY : nqtot
     29      USE comconst_mod, ONLY: cpp
    2930      IMPLICIT NONE
    3031
    … …  
    3233#include "dimensions.h"
    3334#include "paramet.h"
    34 #include "logic.h"
    35 #include "comvert.h"
    36 #include "comconst.h"
    3735
    3836c

  • trunk/LMDZ.COMMON/libf/dyn3dpar/vlspltqs_p.F

    r1086 r1422  
    3131#include "dimensions.h"
    3232#include "paramet.h"
    33 #include "logic.h"
    34 #include "comvert.h"
    35 #include "comconst.h"
    3633
    3734c
    … …  
    245242#include "dimensions.h"
    246243#include "paramet.h"
    247 #include "logic.h"
    248 #include "comvert.h"
    249 #include "comconst.h"
    250244c
    251245c
    … …  
    593587c   --------------------------------------------------------------------
    594588      USE parallel_lmdz
     589      USE comconst_mod, ONLY: pi
    595590      IMPLICIT NONE
    596591c
    597592#include "dimensions.h"
    598593#include "paramet.h"
    599 #include "logic.h"
    600 #include "comvert.h"
    601 #include "comconst.h"
    602594#include "comgeom.h"
    603595c

  • trunk/LMDZ.COMMON/libf/dyn3dpar/writedynav_p.F

    r1019 r1422  
    1212      USE misc_mod
    1313      USE infotrac
     14      USE comconst_mod, ONLY: cpp
     15      USE temps_mod, ONLY: itau_dyn
    1416      implicit none
    1517
    … …  
    4244#include "dimensions.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 "description.h"
    51 #include "serre.h"
    5247#include "iniprint.h"
    5348

  • trunk/LMDZ.COMMON/libf/dyn3dpar/writehist_p.F

    r1019 r1422  
    1212      USE misc_mod
    1313      USE infotrac
     14      USE temps_mod, ONLY: itau_dyn
    1415      implicit none
    1516
    … …  
    4344#include "dimensions.h"
    4445#include "paramet.h"
    45 #include "comconst.h"
    46 #include "comvert.h"
    4746#include "comgeom.h"
    48 #include "temps.h"
    49 #include "ener.h"
    50 #include "logic.h"
    51 #include "description.h"
    52 #include "serre.h"
    5347#include "iniprint.h"
    5448
Note: See TracChangeset for help on using the changeset viewer.