Changeset 3605 for LMDZ6/branches/Ocean_skin/libf/phylmd/wake.F90

Timestamp:

Nov 21, 2019, 4:43:45 PM (5 years ago)

Author:

lguez

Message:

Merge revisions 3427:3600 of trunk into branch Ocean_skin

Location:

LMDZ6/branches/Ocean_skin

Files:

• . (modified) (1 prop)
• libf/phylmd/wake.F90 (modified) (2 diffs)

LMDZ6/branches/Ocean_skin/libf/phylmd/wake.F90

@@ -196 +196 @@
   INTEGER                                               :: nsub
   REAL                                                  :: dtimesub
-  REAL                                                  :: wdensmin
+  REAL, SAVE                                            :: wdensmin
+  !$OMP THREADPRIVATE(wdensmin)
   REAL, SAVE                                            :: sigmad, hwmin, wapecut, cstart
   !$OMP THREADPRIVATE(sigmad, hwmin, wapecut, cstart)
-  REAL                                                  :: sigmaw_max
-  REAL                                                  :: dens_rate
+  REAL, SAVE                                            :: sigmaw_max
+  !$OMP THREADPRIVATE(sigmaw_max)  
+  REAL, SAVE                                            :: dens_rate
+  !$OMP THREADPRIVATE(dens_rate)
   REAL                                                  :: wdens0
   ! IM 080208
@@ -1015 +1018 @@
 
     IF (iflag_wk_pop_dyn >= 1) THEN
+!    The variable "death_rate" is significant only when iflag_wk_pop_dyn = 0.
+!    Here, it has to be set to zero.
+      death_rate(:) = 0.
 
       IF (iflag_wk_act ==2) THEN