Changeset 1999 for LMDZ5/branches/testing/libf/phylmd/phys_state_var_mod.F90

Timestamp:

Mar 20, 2014, 10:57:19 AM (10 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r1920:1997 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/phys_state_var_mod.F90 (modified) (5 diffs)

LMDZ5/branches/testing/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