Changeset 2299 for trunk/LMDZ.GENERIC/libf/phystd/callkeys_mod.F90

Timestamp:

Apr 27, 2020, 4:39:37 PM (5 years ago)

Author:

dbardet

Message:

27/04/2017 (r2299) == DB

Add non-orographic gravity waves drag parameterization (Flott scheme adpated from the Earth GCM)

It can be called using 'calllott_nonoro=.true.' in callphys.def, and set the maximum value of the Eliassen-Plam flux 'epflux_max'.
Cumulated output fields are du_nonoro, dv_nonoro (winds tendency due to GW drag), east_gwstress and west_gwstress (stress profile in esatward and westward direction due to GW drag)
These variables are added in Xhisitns and start files.

File:

• trunk/LMDZ.GENERIC/libf/phystd/callkeys_mod.F90 (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/callkeys_mod.F90

@@ -61 +61 @@
       logical,save :: haze
 !$OMP THREADPRIVATE(photochem)
+      logical,save :: calllott_nonoro
+      logical,save :: gwd_convective_source
+!$OMP THREADPRIVATE(calllott_nonoro,gwd_convective_source)
 
       integer,save :: iddist
@@ -135 +138 @@
       real,save :: surfemis
 !$OMP THREADPRIVATE(surfalbedo,surfemis)
+      real,save :: epflux_max
+!$OMP THREADPRIVATE(epflux_max)
 
       logical,save :: iscallphys=.false.!existence of callphys.def