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 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_flux_arp.f90

    r5138 r5139  
    1 
    21! $Id: flux_arp.h 2010-08-04 17:02:56Z lahellec $
     2! Replaces flux_arh.h
    33! Modif EV, 10/2020
    44
    5       LOGICAL :: ok_flux_surf
    6       LOGICAL :: ok_prescr_ust !for prescribed ustar
    7       LOGICAL :: ok_prescr_beta
    8       LOGICAL :: ok_forc_tsurf
     5MODULE lmdz_flux_arp
     6  PRIVATE NONE; PRIVATE
     7  PUBLIC fsens, flat, betaevap, ust, tg, ok_flux_surf, ok_prescr_ust, ok_prescr_beta, ok_forc_tsurf
    98
     9  LOGICAL :: ok_flux_surf
     10  LOGICAL :: ok_prescr_ust !for prescribed ustar
     11  LOGICAL :: ok_prescr_beta
     12  LOGICAL :: ok_forc_tsurf
    1013
    11       REAL :: fsens
    12       REAL :: flat
    13       REAL :: betaevap
    14       REAL :: ust
    15       REAL :: tg
     14  REAL :: fsens
     15  REAL :: flat
     16  REAL :: betaevap
     17  REAL :: ust
     18  REAL :: tg
    1619
    17       common /flux_arp/fsens,flat,betaevap,ust,tg,ok_flux_surf,ok_prescr_ust,ok_prescr_beta,ok_forc_tsurf
    18 
    19 !$OMP THREADPRIVATE(/flux_arp/)
     20  !$OMP THREADPRIVATE(fsens,flat,betaevap,ust,tg,ok_flux_surf,ok_prescr_ust,ok_prescr_beta,ok_forc_tsurf)
     21END MODULE lmdz_flux_arp
    2022
    2123
Note: See TracChangeset for help on using the changeset viewer.