Ignore:
Timestamp:
Jul 29, 2024, 3:07:34 PM (6 months ago)
Author:
abarral
Message:

Put cvparam.h, fcg_gcssold.h, planete.h, tsoilnudge.h, YOECUMF.h into modules

Location:
LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_1dutils.f90

    r5139 r5142  
    6565    USE lmdz_print_control, ONLY: lunout
    6666    USE lmdz_flux_arp, ONLY: fsens, flat, betaevap, ust, tg, ok_flux_surf, ok_prescr_ust, ok_prescr_beta, ok_forc_tsurf
    67 
     67    USE lmdz_fcs_gcssold, ONLY: imp_fcg_gcssold, ts_fcg_gcssold, Tp_fcg_gcssold, Tp_ini_gcssold, xTurb_fcg_gcssold
     68    USE lmdz_tsoilnudge, ONLY: nudge_tsoil, isoil_nudge, Tsoil_nudge, tau_soil_nudge
    6869    !-----------------------------------------------------------------------
    6970    !     Auteurs :   A. Lahellec  .
    … …  
    7374
    7475    include "compar1d.h"
    75     include "tsoilnudge.h"
    76     include "fcg_gcssold.h"
    7776    include "fcg_racmo.h"
    7877

  • LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_old_lmdz1d.F90

    r5139 r5142  
    5454    USE lmdz_flux_arp, ONLY: fsens, flat, betaevap, ust, tg, ok_flux_surf, ok_prescr_ust, ok_prescr_beta, ok_forc_tsurf
    5555    USE lmdz_compbl, ONLY: iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree
     56    USE lmdz_fcs_gcssold, ONLY: imp_fcg_gcssold, ts_fcg_gcssold, Tp_fcg_gcssold, Tp_ini_gcssold, xTurb_fcg_gcssold
     57    USE lmdz_tsoilnudge, ONLY: nudge_tsoil, isoil_nudge, Tsoil_nudge, tau_soil_nudge
    5658
    5759    INCLUDE "dimensions.h"
    … …  
    6062    INCLUDE "compar1d.h"
    6163    INCLUDE "date_cas.h"
    62     INCLUDE "tsoilnudge.h"
    63     INCLUDE "fcg_gcssold.h"
    6464
    6565    !=====================================================================

  • LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_scm.F90

    r5139 r5142  
    4747    USE lmdz_flux_arp, ONLY: fsens, flat, betaevap, ust, tg, ok_flux_surf, ok_prescr_ust, ok_prescr_beta, ok_forc_tsurf
    4848    USE lmdz_compbl, ONLY: iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree
     49    USE lmdz_fcs_gcssold, ONLY: imp_fcg_gcssold, ts_fcg_gcssold, Tp_fcg_gcssold, Tp_ini_gcssold, xTurb_fcg_gcssold
     50    USE lmdz_tsoilnudge, ONLY: nudge_tsoil, isoil_nudge, Tsoil_nudge, tau_soil_nudge
    4951
    5052    INCLUDE "dimensions.h"
    … …  
    5355    INCLUDE "compar1d.h"
    5456    INCLUDE "date_cas.h"
    55     INCLUDE "tsoilnudge.h"
    56     INCLUDE "fcg_gcssold.h"
    5757
    5858    !=====================================================================
Note: See TracChangeset for help on using the changeset viewer.