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/phylmd
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • 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.