Ignore:
Timestamp:
Jul 22, 2016, 8:44:47 AM (9 years ago)
Author:
Ehouarn Millour
Message:

Cleanup in the dynamics: get rid of comconst.h, make it a module comconst_mod.
EM

Location:
LMDZ5/trunk/libf/dynphy_lonlat
Files:
10 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dynphy_lonlat/calfis.F

    r2418 r2597  
    3434      USE callphysiq_mod, ONLY: call_physiq
    3535#endif
    36 
     36      USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, kappa, pi
     37     
    3738      IMPLICIT NONE
    3839c=======================================================================
    … …  
    9697      PARAMETER( ngridmx = 2+(jjm-1)*iim - 1/jjm   )
    9798
    98 #include "comconst.h"
    9999#include "comvert.h"
    100100#include "comgeom2.h"

  • LMDZ5/trunk/libf/dynphy_lonlat/calfis_loc.F

    r2429 r2597  
    5050      USE callphysiq_mod, ONLY: call_physiq
    5151#endif
     52      USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, kappa, pi
    5253
    5354#ifdef CPP_PARA
    … …  
    107108c    ------------------
    108109
    109 #include "dimensions.h"
    110 #include "paramet.h"
    111 #include "temps.h"
     110      include "dimensions.h"
     111      include "paramet.h"
     112      include "temps.h"
    112113
    113114      INTEGER ngridmx
    114115      PARAMETER( ngridmx = 2+(jjm-1)*iim - 1/jjm   )
    115116
    116 #include "comconst.h"
    117 #include "comvert.h"
    118 #include "comgeom2.h"
    119 #include "iniprint.h"
     117      include "comvert.h"
     118      include "comgeom2.h"
     119      include "iniprint.h"
    120120#ifdef CPP_MPI
    121121      include 'mpif.h'

  • LMDZ5/trunk/libf/dynphy_lonlat/calfis_p.F

    r2429 r2597  
    4747      USE callphysiq_mod, ONLY: call_physiq
    4848#endif
     49      USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, kappa, pi
    4950
    5051      IMPLICIT NONE
    … …  
    110111      PARAMETER( ngridmx = 2+(jjm-1)*iim - 1/jjm   )
    111112
    112 #include "comconst.h"
    113113#include "comvert.h"
    114114#include "comgeom2.h"
    … …  
    159159      REAL,ALLOCATABLE,SAVE :: zphi(:,:),zphis(:)
    160160c
    161       REAL zrot(iip1,jjb_v:jje_v,llm) ! AdlC May 2014
     161!      REAL zrot(iip1,jjb_v:jje_v,llm) ! AdlC May 2014
     162      REAL :: zrot(iip1,jjm,llm)
    162163      REAL,ALLOCATABLE,SAVE :: zufi(:,:), zvfi(:,:), zrfi(:,:)
    163164      REAL,ALLOCATABLE,SAVE :: ztfi(:,:),zqfi(:,:,:)

  • LMDZ5/trunk/libf/dynphy_lonlat/phylmd/ce0l.F90

    r2457 r2597  
    3434  USE mod_interface_dyn_phys, ONLY: init_interface_dyn_phys
    3535#endif
     36  USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, g, kappa, omeg, r, rad, &
     37                          pi, jmp1
    3638
    3739  IMPLICIT NONE
    … …  
    4244  include "paramet.h"
    4345  include "comgeom2.h"
    44   include "comconst.h"
    4546  include "comvert.h"
    4647  include "iniprint.h"

  • LMDZ5/trunk/libf/dynphy_lonlat/phylmd/etat0dyn_netcdf.F90

    r2361 r2597  
    3636  USE ioipsl,         ONLY: flininfo, flinopen, flinget, flinclo, histclo
    3737  USE assert_eq_m,    ONLY: assert_eq
     38  USE comconst_mod, ONLY: pi, cpp, kappa
    3839  IMPLICIT NONE
    3940
    … …  
    4647  include "comgeom2.h"
    4748  include "comvert.h"
    48   include "comconst.h"
    4949  include "temps.h"
    5050  include "comdissnew.h"

  • LMDZ5/trunk/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.F90

    r2531 r2597  
    4444    zmax0,fevap, rnebcon,falb_dir, wake_fip,    agesno,  detr_therm, pbl_tke,  &
    4545    phys_state_var_init
     46  USE comconst_mod, ONLY: pi, dtvr
    4647
    4748  PRIVATE
    … …  
    5253  include "paramet.h"
    5354  include "comgeom2.h"
    54   include "comconst.h"
    5555  include "dimsoil.h"
    5656  include "temps.h"

  • LMDZ5/trunk/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

    r2588 r2597  
    5151  include "dimensions.h"
    5252  include "comvert.h"
    53   include "comconst.h"
    5453  include "iniprint.h"
    5554  include "temps.h"

  • LMDZ5/trunk/libf/dynphy_lonlat/phylmd/init_ssrf_m.F90

    r2399 r2597  
    99  USE grid_atob_m,        ONLY: grille_m
    1010  USE ioipsl,             ONLY: flininfo, flinopen, flinget, flinclo
     11  USE comconst_mod, ONLY: im, pi
    1112
    1213  CHARACTER(LEN=256), PARAMETER :: icefname="landiceref.nc", icevar="landice"
    … …  
    1718  include "paramet.h"
    1819  include "comgeom2.h"
    19   include "comconst.h"
    2020
    2121CONTAINS

  • LMDZ5/trunk/libf/dynphy_lonlat/phylmd/limit_netcdf.F90

    r2576 r2597  
    7070  USE inter_barxy_m,      ONLY: inter_barxy
    7171  USE netcdf95,           ONLY: nf95_def_var, nf95_put_att, nf95_put_var
     72  USE comconst_mod, ONLY: pi
    7273  IMPLICIT NONE
    7374!-------------------------------------------------------------------------------
    … …  
    8384  include "logic.h"
    8485  include "comgeom2.h"
    85   include "comconst.h"
    8686
    8787!--- INPUT NETCDF FILES NAMES --------------------------------------------------

  • LMDZ5/trunk/libf/dynphy_lonlat/phylmd/test_disvert_m.F90

    r2345 r2597  
    1515    use exner_hyb_m, only: exner_hyb
    1616    use vertical_layers_mod, only: ap,bp,preff
     17    use comconst_mod, only: kappa, cpp
    1718
    1819    ! For llm:
    1920    include "dimensions.h"
    20 
    21     ! For kappa, cpp:
    22     include "comconst.h"
    2321
    2422    ! Local:
Note: See TracChangeset for help on using the changeset viewer.