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

Put YOEGWD.h, FCTTRE.h into modules

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/wx_pbl_mod.F90

    r5137 r5143  
    3535    USE indice_sol_mod, ONLY: is_oce
    3636    USE lmdz_clesphys
     37    USE lmdz_YOETHF
     38    USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
    3739
    3840    INCLUDE "YOMCST.h"
    39     INCLUDE "FCTTRE.h"
    40     INCLUDE "YOETHF.h"
    4141
    4242    INTEGER,                      INTENT(IN)        :: knon    ! number of grid cells
    … …  
    169169
    170170    USE lmdz_print_control, ONLY: prt_level,lunout
     171    USE lmdz_YOETHF
     172    USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
    171173
    172174    INCLUDE "YOMCST.h"
    173     INCLUDE "FCTTRE.h"
    174     INCLUDE "YOETHF.h"
    175175
    176176    INTEGER,                      INTENT(IN)        :: knon    ! number of grid cells
    … …  
    721721
    722722    USE lmdz_print_control, ONLY: prt_level,lunout
     723    USE lmdz_YOETHF
     724    USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
    723725
    724726    INCLUDE "YOMCST.h"
    725     INCLUDE "FCTTRE.h"
    726     INCLUDE "YOETHF.h"
    727727
    728728    INTEGER,                      INTENT(IN)        :: knon         ! number of grid cells
    … …  
    964964
    965965    USE lmdz_print_control, ONLY: prt_level,lunout
     966    USE lmdz_YOETHF
     967    USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
    966968
    967969    INCLUDE "YOMCST.h"
    968     INCLUDE "FCTTRE.h"
    969     INCLUDE "YOETHF.h"
    970970
    971971    INTEGER,                      INTENT(IN)        :: knon         ! number of grid cells
Note: See TracChangeset for help on using the changeset viewer.