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/screenc_mod.F90

    r5117 r5139  
    1919                         ustar, testar, qstar, okri, ri1, &
    2020                         pref, delu, delte, delq, s_pblh, prain, tsol, pat1)
     21        USE lmdz_flux_arp, ONLY: fsens, flat, betaevap, ust, tg, ok_flux_surf, ok_prescr_ust, ok_prescr_beta, ok_forc_tsurf
     22
    2123      IMPLICIT NONE
    2224!-----------------------------------------------------------------------
    … …  
    7375!-----------------------------------------------------------------------
    7476      include "YOMCST.h"
    75       include "flux_arp.h"
    7677
    7778! Variables locales 
    … …  
    122123                         ri1, iri1, &
    123124                         pref, delm, delh, zri1, s_pblh, prain, tsol, pat1)
     125        USE lmdz_flux_arp, ONLY: fsens, flat, betaevap, ust, tg, ok_flux_surf, ok_prescr_ust, ok_prescr_beta, ok_forc_tsurf
     126
    124127      IMPLICIT NONE
    125128!-----------------------------------------------------------------------
    … …  
    177180!-----------------------------------------------------------------------
    178181      include "YOMCST.h"
    179       include "flux_arp.h"
    180182
    181183! Variables locales 
Note: See TracChangeset for help on using the changeset viewer.