Changeset 1938 for LMDZ5/trunk/libf/phylmd/phyredem.F90

Timestamp:

Jan 20, 2014, 5:20:05 PM (10 years ago)

Author:

lguez

Message:

New run-time parameters: ok_gwd_rando, ruwmax and sat. Logical
variable ok_gwd_rando activates the new stochastic parameterization of
the drag of non-orographic gravity waves, by F. Lott. Default value of
ok_gwd_rando is false. A run with ok_gwd_rando creates new variables
in restartphy.nc: du_gwd_rando and dv_gwd_rando. Possible output in
history files of new variables du_gwd_rando, dv_gwd_rando and
vstr_gwd_rando.

File:

• LMDZ5/trunk/libf/phylmd/phyredem.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/phyredem.F90

@@ -340 +340 @@
   END IF
 
+  if (ok_gwd_rando) then
+     call put_field("du_gwd_rando", &
+          "tendency on zonal wind due to gravity waves", &
+          du_gwd_rando)
+     call put_field("dv_gwd_rando", &
+          "tendency on meriodional wind due to gravity waves", &
+          dv_gwd_rando)
+  end if
+
   CALL close_restartphy
   !$OMP BARRIER