Changeset 2346 for LMDZ5/trunk/libf/phylmd/add_pbl_tend.F90

Timestamp:

Aug 21, 2015, 5:13:46 PM (9 years ago)

Author:

Ehouarn Millour

Message:

Physics/dynamics separation:

• remove all references to dimensions.h from physics. nbp_lon (==iim) , nbp_lat (==jjm+1) and nbp_lev (==llm) from mod_grid_phy_lmdz should be used instead.
• added module regular_lonlat_mod in phy_common to store information about the global (lon-lat) grid cell boundaries and centers.

EM

File:

• LMDZ5/trunk/libf/phylmd/add_pbl_tend.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/add_pbl_tend.F90

@@ -15 +15 @@
   USE phys_local_var_mod
   USE phys_state_var_mod
+  USE mod_grid_phy_lmdz, ONLY: nbp_lev
   IMPLICIT NONE
-  include "dimensions.h"
-  REAL hthturb_gcssold(llm)
-  REAL hqturb_gcssold(llm)
-  REAL dtime_frcg
+  REAL,SAVE,ALLOCATABLE :: hthturb_gcssold(:)
+  REAL,SAVE,ALLOCATABLE :: hqturb_gcssold(:)
+!$OMP THREADPRIVATE(hthturb_gcssold,hqturb_gcssold)
+  REAL,SAVE :: dtime_frcg
+  LOGICAL,SAVE :: turb_fcg_gcssold
+  LOGICAL,SAVE :: firstcall=.true.
+!$OMP THREADPRIVATE(firstcall,turb_fcg_gcssold,dtime_frcg)
   INTEGER abortphy
-  LOGICAL turb_fcg_gcssold
-  COMMON /turb_forcing/dtime_frcg, hthturb_gcssold, hqturb_gcssold, &
-    turb_fcg_gcssold
+!  COMMON /turb_forcing/dtime_frcg, hthturb_gcssold, hqturb_gcssold, &
+!    turb_fcg_gcssold
 
   ! Arguments :
@@ -36 +39 @@
   REAL zzdt(klon, klev), zzdq(klon, klev)
   INTEGER i, k
+
+  IF (firstcall) THEN
+    ALLOCATE(hthturb_gcssold(nbp_lev))
+    ALLOCATE(hqturb_gcssold(nbp_lev))
+    firstcall=.false.
+  ENDIF
 
   IF (turb_fcg_gcssold) THEN