Last change
on this file since 5451 was
5301,
checked in by abarral, 8 weeks ago
|
Turn tsoilnudge.h fcg_gcssold.h flux_arp.h into module
|
-
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:
542 bytes
|
Line | |
---|
1 | ! Replaces flux_arh.h |
---|
2 | ! Modif EV, 10/2020 |
---|
3 | |
---|
4 | MODULE flux_arp_mod_h |
---|
5 | IMPLICIT NONE; PRIVATE |
---|
6 | PUBLIC fsens, flat, betaevap, ust, tg, ok_flux_surf, ok_prescr_ust, ok_prescr_beta, ok_forc_tsurf |
---|
7 | |
---|
8 | LOGICAL :: ok_flux_surf |
---|
9 | LOGICAL :: ok_prescr_ust !for prescribed ustar |
---|
10 | LOGICAL :: ok_prescr_beta |
---|
11 | LOGICAL :: ok_forc_tsurf |
---|
12 | |
---|
13 | REAL :: fsens |
---|
14 | REAL :: flat |
---|
15 | REAL :: betaevap |
---|
16 | REAL :: ust |
---|
17 | REAL :: tg |
---|
18 | |
---|
19 | !$OMP THREADPRIVATE(fsens,flat,betaevap,ust,tg,ok_flux_surf,ok_prescr_ust,ok_prescr_beta,ok_forc_tsurf) |
---|
20 | END MODULE flux_arp_mod_h |
---|
21 | |
---|
22 | |
---|
23 | |
---|
24 | |
---|
Note: See
TracBrowser
for help on using the repository browser.