LMDZ
flux_arp.h
Go to the documentation of this file.
1 !
2 ! $Id: flux_arp.h 2010-08-04 17:02:56Z lahellec $
3 !
4  logical :: ok_flux_surf
5  logical :: ok_prescr_ust !for prescribed ustar
6  real :: fsens
7  real :: flat
8  real :: ust
9  real :: tg
10 
11  common /flux_arp/fsens,flat,ust,tg,ok_flux_surf,ok_prescr_ust
12 
13 !$OMP THREADPRIVATE(/flux_arp/)
14 
15 
16 
17 
THREADPRIVATE
!IM for NMC files!real nfiles!real nfiles!real nfiles!real nlevSTD3 real nlevSTD3 real nlevSTD3 real nlevSTD3 real nlevSTD8 real nlevSTD8 real nlevSTD8 real nlevSTD8!$OMP THREADPRIVATE(rlevstd) CHARACTER *4
$Id
c c $Id
Definition: ini_bilKP_ave.h:11
ust
!$Id ust
Definition: flux_arp.h:11
tg
!$Id tg
Definition: flux_arp.h:11
ok_flux_surf
!$Id ok_flux_surf
Definition: flux_arp.h:11
phys_state_var_mod::ustar
real, dimension(:,:), allocatable, save ustar
Definition: phys_state_var_mod.F90:370
flat
!$Id flat
Definition: flux_arp.h:11