Ignore:
Timestamp:
Jul 28, 2024, 10:25:12 PM (6 months ago)
Author:
abarral
Message:

Put gradsdef.h, tracstoke.h, clesphys.h into modules

Location:
LMDZ6/branches/Amaury_dev/libf/phylmdiso
Files:
8 edited
1 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/add_phys_tend_mod.F90

    r5134 r5137  
    152152USE phys_output_var_mod, ONLY: d_qw_col, d_ql_col, d_qs_col, d_qbs_col, d_qt_col, d_ek_col, d_h_dair_col &
    153153              , d_h_qw_col, d_h_ql_col, d_h_qs_col, d_h_qbs_col, d_h_col
     154USE lmdz_clesphys
    154155
    155156#ifdef ISO
    … …  
    162163IMPLICIT NONE
    163164  include "YOMCST.h"
    164   include "clesphys.h"
    165165
    166166! Arguments :
    … …  
    684684USE phys_output_var_mod, ONLY: d_qw_col, d_ql_col, d_qs_col, d_qbs_col, d_qt_col, d_ek_col, d_h_dair_col &
    685685              , d_h_qw_col, d_h_ql_col, d_h_qs_col, d_h_qbs_col, d_h_col
     686USE lmdz_clesphys
     687
    686688IMPLICIT NONE
    687689  include "YOMCST.h"
    688   include "clesphys.h"
    689690
    690691! Arguments :

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/change_srf_frac_mod.F90

    r5132 r5137  
    3737  USE infotrac_phy, ONLY: ntiso   
    3838#endif
     39  USE lmdz_clesphys ! albedo SB
    3940   
    4041    INCLUDE "YOMCST.h"
    41 !albedo SB >>>
    42     include "clesphys.h"
    43 !albedo SB <<<
    4442
    4543

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/concvl.F90

    r5117 r5137  
    6363  USE phys_local_var_mod, ONLY: omega
    6464  USE lmdz_print_control, ONLY: prt_level, lunout
     65  USE lmdz_clesphys
     66
    6567  IMPLICIT NONE
    6668! ======================================================================
    … …  
    113115! wght-------output-R
    114116! ======================================================================
    115 
    116 
    117   include "clesphys.h"
    118117
    119118  INTEGER, INTENT(IN)                           :: iflag_clos

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/isotopes_routines_mod.F90

    r5135 r5137  
    1571915719        ridicule_qsol,tnat, P_veg,iso_O18,ridicule, ridicule_snow,iso_O17, &
    1572015720        iso_HTO
     15721        USE lmdz_clesphys
    1572115722#ifdef ISOVERIF
    1572215723  USE isotopes_verif_mod
    … …  
    1572715728
    1572815729 include "dimsoil.h"
    15729  include "clesphys.h"
    1573015730 include "compbl.h"
    1573115731
    … …  
    1589315893  USE isotopes_mod, ONLY: tnat,iso_HDO,iso_O18,iso_HTO, iso_eau,toce, &
    1589415894&       Rdefault,iso_O17,ridicule,ridicule_qsol
     15895USE lmdz_clesphys
    1589515896#ifdef ISOVERIF
    1589615897  USE isotopes_verif_mod
    … …  
    1590215903
    1590315904 include "dimsoil.h"
    15904  include "clesphys.h"
    1590515905 include "compbl.h"
    1590615906
    … …  
    1627416274   USE isotrac_mod, ONLY: strtrac, initialisation_isotrac, index_iso, index_zone, izone_init
    1627516275#endif
     16276USE lmdz_clesphys
    1627616277   IMPLICIT NONE
    1627716278
    1627816279 include "dimsoil.h"
    16279  include "clesphys.h"
    1628016280 include "compbl.h"
    1628116281

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/lmdz_clesphys.f90

    r5136 r5137  
    1 link ../phylmd/clesphys.h
     1link ../phylmd/lmdz_clesphys.f90

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/phyaqua_mod.F90

    r5132 r5137  
    4242    USE lmdz_grid_phy
    4343    USE lmdz_ioipsl_getin_p, ONLY: getin_p
    44     USE phys_cal_mod , ONLY: calend, year_len_phy => year_len
     44    USE phys_cal_mod , ONLY: calend, year_len_phy => year_len
     45    USE lmdz_clesphys
    4546#ifdef ISO
    4647  USE infotrac_phy, ONLY: niso
    … …  
    5051
    5152    include "YOMCST.h"
    52     include "clesphys.h"
    5353    include "dimsoil.h"
    5454

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/phyetat0_mod.F90

    r5134 r5137  
    5252  USE config_ocean_skin_m, ONLY: activate_ocean_skin
    5353  USE lmdz_alpale
     54  USE lmdz_clesphys
    5455#ifdef ISO
    5556  USE infotrac_phy, ONLY: niso
    … …  
    6768  !======================================================================
    6869  include "dimsoil.h"
    69   include "clesphys.h"
    7070  include "compbl.h"
    7171  include "YOMCST.h"

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/phyredem.F90

    r5134 r5137  
    5353  USE lmdz_abort_physic, ONLY: abort_physic
    5454  USE lmdz_alpale
     55  USE lmdz_clesphys
    5556
    5657  IMPLICIT NONE
    5758
    5859  include "dimsoil.h"
    59   include "clesphys.h"
    6060  include "compbl.h"
    6161  !======================================================================
    … …  
    510510      !USE phyredem, ONLY: put_field_srf1
    511511      USE lmdz_alpale
     512      USE lmdz_clesphys
    512513
    513514        IMPLICIT NONE
    … …  
    516517
    517518 include "dimsoil.h"
    518  include "clesphys.h"
    519519 include "compbl.h"
    520520      ! inputs

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/physiq_mod.F90

    r5134 r5137  
    419419       USE lmdz_simu_airs, ONLY: simu_airs
    420420       USE lmdz_alpale
    421 
     421       USE lmdz_clesphys
    422422
    423423    IMPLICIT NONE
    … …  
    474474    include "regdim.h"
    475475    include "dimsoil.h"
    476     include "clesphys.h"
    477476    include "dimpft.h"
    478477    !======================================================================
Note: See TracChangeset for help on using the changeset viewer.