Ignore:
Timestamp:
Jul 29, 2024, 5:47:53 PM (5 months ago)
Author:
abarral
Message:

Put YOEGWD.h, FCTTRE.h into modules

Location:
LMDZ6/branches/Amaury_dev/libf/phylmdiso
Files:
7 edited
3 moved

Legend:

Unmodified
Added
Removed

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

    r5140 r5143  
    4343  USE dimphy
    4444  USE infotrac_phy, ONLY: nbtr
     45  USE lmdz_YOETHF
    4546#ifdef ISO
    4647  USE infotrac_phy, ONLY: ntraciso=>ntiso
    … …  
    6566  USE lmdz_clesphys
    6667  USE lmdz_conema3
     68  USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
    6769
    6870  IMPLICIT NONE
    … …  
    297299  include "YOMCST.h"
    298300  include "YOMCST2.h"
    299   include "YOETHF.h"
    300   include "FCTTRE.h"
    301301
    302302  IF (first) THEN

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

    r5141 r5143  
    1818  ! **************************************************************
    1919USE lmdz_cvthermo
     20USE lmdz_YOETHF
     21USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
    2022
    2123  IMPLICIT NONE
    … …  
    3032  ! ===============================================================
    3133
    32   include "YOETHF.h"
    3334  include "YOMCST.h"
    34   include "FCTTRE.h"
    3535!inputs:
    3636  INTEGER, INTENT (IN)                      :: nd, len

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

    r5141 r5143  
    1919  ! ****************************************************************
    2020USE lmdz_cvthermo
     21USE lmdz_YOETHF
     22USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
    2123
    2224  IMPLICIT NONE
    … …  
    3133  ! ===============================================================
    3234
    33   include "YOETHF.h"
    3435  include "YOMCST.h"
    35   include "FCTTRE.h"
    3636!inputs:
    3737  INTEGER, INTENT (IN)                      :: nd, len

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

    r5139 r5143  
    1284312843    USE isotrac_mod, ONLY: izone_cont,index_zone,index_iso
    1284412844#endif
     12845USE lmdz_YOETHF
     12846USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     12847
    1284512848        IMPLICIT NONE
    1284612849
    … …  
    1284812851        ! fond, etc...
    1284912852        ! commun aux dfférentes sous-surfaces.
    12850 
    12851  include "YOETHF.h"
    12852  include "FCTTRE.h"
    1285312853
    1285412854         ! inputs
    … …  
    1340713407&       bassin_map
    1340813408#endif
     13409USE lmdz_YOETHF
     13410USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     13411
    1340913412        IMPLICIT NONE
    13410 
    13411  include "YOETHF.h"
    13412  include "FCTTRE.h"
    1341313413
    1341413414        ! inputs
    … …  
    1431814318&       bassin_map
    1431914319#endif
     14320USE lmdz_YOETHF
     14321USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
    1432014322
    1432114323        IMPLICIT NONE
    1432214324
    14323  include "YOETHF.h"
    14324  include "FCTTRE.h"
    14325        
    1432614325        ! inputs
    1432714326        INTEGER klon,knon

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

    r5142 r5143  
    1 link ../phylmd/FCTTRE.h
     1link ../phylmd/lmdz_FCTTRE.f90

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

    r5142 r5143  
    1 link ../phylmd/YOEGWD.h
     1link ../phylmd/lmdz_YOEGWD.f90

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

    r5142 r5143  
    1 link ../phylmd/YOETHF.h
     1link ../phylmd/lmdz_YOETHF.f90

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

    r5134 r5143  
    6767#endif
    6868#endif
     69
     70USE lmdz_YOETHF
     71  USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
    6972
    7073  IMPLICIT NONE
    … …  
    312315  REAL zzz
    313316
    314   include "YOETHF.h"
    315   include "FCTTRE.h"
    316317  fallvc (zzz) = 3.29/2.0 * ((zzz)**0.16) * ffallv_con
    317318  fallvs (zzz) = 3.29/2.0 * ((zzz)**0.16) * ffallv_lsc

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

    r5142 r5143  
    424424    USE lmdz_conema3
    425425    USE lmdz_dimpft, ONLY: nvm_lmdz
     426    USE lmdz_YOETHF
     427    USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
    426428
    427429    IMPLICIT NONE
    … …  
    12681270
    12691271    include "YOMCST.h"
    1270     include "YOETHF.h"
    1271     include "FCTTRE.h"
    12721272
    12731273    ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

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

    r5134 r5143  
    1515#endif
    1616#endif
     17
     18    USE lmdz_YOETHF
     19    USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     20
    1721    IMPLICIT NONE
    1822    !>======================================================================
    … …  
    2731    INTEGER i,k,ixt,ivapcur,iliqcur,isolcur
    2832
    29 
    3033    !--------Stochastic Boundary Layer Triggering: ALE_BL--------
    3134    !---Propri\'et\'es du thermiques au LCL
    3235    include "YOMCST.h"
    33     include "YOETHF.h"
    34     include "FCTTRE.h"
    3536    !IM 100106 BEG : pouvoir sortir les ctes de la physique
    3637
Note: See TracChangeset for help on using the changeset viewer.