Ignore:
Timestamp:
Jul 29, 2024, 9:59:33 AM (8 weeks ago)
Author:
abarral
Message:

Put nuage.h, flux_arp.h, compbl.h into modules
Move unused phylmd/ini_hist* to obsolete

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r5117 r5139  
    2020                           ts1, qsurf, z0m, z0h, psol, pat1, &
    2121                           t_2m, q_2m, t_10m, q_10m, u_10m, ustar, s_pblh, prain, tsol)
     22        USE lmdz_flux_arp, ONLY: fsens, flat, betaevap, ust, tg, ok_flux_surf, ok_prescr_ust, ok_prescr_beta, ok_forc_tsurf
     23
    2224      IMPLICIT NONE
    2325!-------------------------------------------------------------------------
    … …  
    7173      REAL, DIMENSION(klon), INTENT(IN) :: tsol
    7274!-------------------------------------------------------------------------
    73       include "flux_arp.h"
    7475      include "YOMCST.h"
    7576!IM PLUS
    … …  
    320321
    321322      USE lmdz_ioipsl_getin_p, ONLY: getin_p
     323      USE lmdz_flux_arp, ONLY: fsens, flat, betaevap, ust, tg, ok_flux_surf, ok_prescr_ust, ok_prescr_beta, ok_forc_tsurf
     324
    322325      IMPLICIT NONE
    323326!-------------------------------------------------------------------------
    … …  
    380383      REAL, DIMENSION(klon) :: tsol
    381384!-------------------------------------------------------------------------
    382       include "flux_arp.h"
    383385      include "YOMCST.h"
    384386!IM PLUS
Note: See TracChangeset for help on using the changeset viewer.