Ignore:
Timestamp:
Jul 29, 2024, 11:01:04 PM (3 months ago)
Author:
abarral
Message:

Put YOMCST.h into modules

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r5143 r5144  
    2020          t_2m, q_2m, t_10m, q_10m, u_10m, ustar, s_pblh, prain, tsol)
    2121    USE lmdz_flux_arp, ONLY: fsens, flat, betaevap, ust, tg, ok_flux_surf, ok_prescr_ust, ok_prescr_beta, ok_forc_tsurf
    22     USE lmdz_YOETHF
     22    USE lmdz_yoethf
     23    USE lmdz_yomcst
    2324
    2425    IMPLICIT NONE
    … …  
    7374    REAL, DIMENSION(klon), INTENT(IN) :: tsol
    7475    !-------------------------------------------------------------------------
    75     include "YOMCST.h"
    7676
    7777    ! Quelques constantes et options:
    … …  
    319319    USE lmdz_ioipsl_getin_p, ONLY: getin_p
    320320    USE lmdz_flux_arp, ONLY: fsens, flat, betaevap, ust, tg, ok_flux_surf, ok_prescr_ust, ok_prescr_beta, ok_forc_tsurf
    321     USE lmdz_YOETHF
     321    USE lmdz_yoethf
     322    USE lmdz_yomcst
    322323
    323324    IMPLICIT NONE
    … …  
    381382    REAL, DIMENSION(klon) :: tsol
    382383    !-------------------------------------------------------------------------
    383     include "YOMCST.h"
    384384
    385385    ! Quelques constantes et options:
Note: See TracChangeset for help on using the changeset viewer.