Changeset 1938 for LMDZ5/trunk/libf/phylmd/phys_state_var_mod.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/phys_state_var_mod.F90 (modified) (5 diffs)

LMDZ5/trunk/libf/phylmd/phys_state_var_mod.F90

@@ -357 +357 @@
 !!! fin nrlmd le 10/04/2012
 
+      REAL, ALLOCATABLE, SAVE:: du_gwd_rando(:, :), dv_gwd_rando(:, :)
+      !$OMP THREADPRIVATE(du_gwd_rando, dv_gwd_rando)
+      ! tendencies on wind due to gravity waves
+
 CONTAINS
 
@@ -376 +380 @@
 ! climatology and the daylight climatology
 
+include "clesphys.h"
       ALLOCATE(rlat(klon), rlon(klon))
       ALLOCATE(pctsrf(klon,nbsrf))
@@ -517 +522 @@
       ALLOCATE(ale_bl_trig(klon))
 !!! fin nrlmd le 10/04/2012
+      if (ok_gwd_rando) allocate(du_gwd_rando(klon, klev), &
+           dv_gwd_rando(klon, klev))
 
 END SUBROUTINE phys_state_var_init
@@ -526 +533 @@
 USE indice_sol_mod
 IMPLICIT NONE
+include "clesphys.h"
 
       deallocate(rlat, rlon, pctsrf, ftsol, falb1, falb2)
@@ -624 +632 @@
       deallocate(tau_aero,piz_aero,cg_aero)
       deallocate(ccm)
+      if (ok_gwd_rando) deallocate(du_gwd_rando, dv_gwd_rando)
        
 !!! nrlmd le 10/04/2012