source: LMDZ6/branches/Amaury_dev/libf/phylmd/flux_arp.h @ 5119

Last change on this file since 5119 was 5117, checked in by abarral, 4 months ago

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 467 bytes
RevLine 
[5099]1
[1887]2! $Id: flux_arp.h 2010-08-04 17:02:56Z lahellec $
[3780]3! Modif EV, 10/2020
[5099]4
[5117]5      LOGICAL :: ok_flux_surf
6      LOGICAL :: ok_prescr_ust !for prescribed ustar
7      LOGICAL :: ok_prescr_beta
8      LOGICAL :: ok_forc_tsurf
[3780]9
10
[5116]11      REAL :: fsens
12      REAL :: flat
13      REAL :: betaevap
14      REAL :: ust
15      REAL :: tg
[1887]16
[5081]17      common /flux_arp/fsens,flat,betaevap,ust,tg,ok_flux_surf,ok_prescr_ust,ok_prescr_beta,ok_forc_tsurf
[1887]18
19!$OMP THREADPRIVATE(/flux_arp/)
20
21
[3780]22     
[1887]23
Note: See TracBrowser for help on using the repository browser.