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

Last change on this file since 5088 was 5081, checked in by abarral, 4 months ago

Commit linked to correcting relevant warnings during gfortran compilation

[minor]
Correct remnants of fixed-form "+" in massbarxy.F90
Correct COMMON alignment in clesphys.h, flux_arp.h, cv*param.h, YOECUMF.h, alpale.h
Correct obsolete logical operators
Restrict use of iso_fortran_env in nf95_abort.f90
Remove redundant save in module declarations
Remove <continue> without labels
Fix nonstandard kind selectors
  • 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 $
[3780]3! Modif EV, 10/2020
[1887]4!
5      logical :: ok_flux_surf
[2126]6      logical :: ok_prescr_ust !for prescribed ustar
[3780]7      logical :: ok_prescr_beta
8      logical :: ok_forc_tsurf
9
10
[1887]11      real :: fsens
12      real :: flat
[3780]13      real :: betaevap
[2126]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.