source: LMDZ6/branches/Ocean_skin/libf/phylmd/flux_arp.h @ 4190

Last change on this file since 4190 was 3798, checked in by lguez, 4 years ago

Sync latest trunk changes to Ocean_skin
  • 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: 469 bytes
RevLine 
[1887]1!
2! $Id: flux_arp.h 2010-08-04 17:02:56Z lahellec $
[3798]3! Modif EV, 10/2020
[1887]4!
5      logical :: ok_flux_surf
[2126]6      logical :: ok_prescr_ust !for prescribed ustar
[3798]7      logical :: ok_prescr_beta
8      logical :: ok_forc_tsurf
9
10
[1887]11      real :: fsens
12      real :: flat
[3798]13      real :: betaevap
[2126]14      real :: ust
15      real :: tg
[1887]16
[3798]17      common /flux_arp/fsens,flat,ust,tg,ok_flux_surf,ok_prescr_ust,ok_prescr_beta,betaevap,ok_forc_tsurf
[1887]18
19!$OMP THREADPRIVATE(/flux_arp/)
20
21
[3798]22     
[1887]23
Note: See TracBrowser for help on using the repository browser.