Changeset 5502

Timestamp:

Jan 22, 2025, 7:40:40 PM (4 hours ago)

Author:

fhourdin

Message:

Flag moved to lmdz_cv_ini/cv3_param.

Location:

LMDZ6/trunk/libf/phylmd

Files:

• cv3_routines.f90 (modified) (6 diffs)
• lmdz_cv_ini.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/cv3_routines.f90

@@ -11 +11 @@
   use mod_phys_lmdz_para
   USE conema3_mod_h
-  USE lmdz_cv_ini, ONLY : alpha,alpha1,beta,betad,coef_peel,cv_flag_feed,delta,dpbase,dtcrit,dtovsh,dttrig,ejectice,ejectliq,elcrit,flag_epkeorig,flag_wb,minorig,nl,nlm,nlp,noconv_stop,noff,omtrain,pbcrit,ptcrit,sigdz,spfac,t_top_max,tau,tau_stop,tlcrit,wbmax
+  USE lmdz_cv_ini, ONLY : alpha,alpha1,beta,betad,coef_peel,cv_flag_feed,delta,dpbase,dtcrit,dtovsh,dttrig,ejectice,ejectliq,elcrit,flag_epkeorig,flag_wb,minorig,nl,nlm,nlp,noconv_stop,noff,omtrain,pbcrit,ptcrit,sigdz,spfac,t_top_max,tau,tau_stop,tlcrit,wbmax,keep_bug_indices_cv3_tracer
 
 
@@ -139 +139 @@
      keepbug_ice_frac = .TRUE.
      CALL getin_p('keepbug_ice_frac', keepbug_ice_frac)
+     keep_bug_indices_cv3_tracer = .FALSE.
+     CALL getin_p('keep_bug_indices_cv3_tracer', keep_bug_indices_cv3_tracer)
+
 
     WRITE (*, *) 't_top_max=', t_top_max
@@ -164 +167 @@
     WRITE (*, *) 'adiab_ascent_mass_flux_depends_on_ejectliq =', adiab_ascent_mass_flux_depends_on_ejectliq
     WRITE (*, *) 'keepbug_ice_frac =', keepbug_ice_frac 
+    WRITE (*, *) 'keep_bug_indices_cv3_tracer =', keep_bug_indices_cv3_tracer 
 
     first = .FALSE.
@@ -4936 +4940 @@
                       ep, Vprecip, elij, clw, epmlmMm, eplaMm, &
                       icb, inb)
-   USE lmdz_cv_ini, ONLY : nl
+  USE lmdz_cv_ini, ONLY : nl,keep_bug_indices_cv3_tracer
   USE cvflag_mod_h
   USE ioipsl_getin_p_mod, ONLY : getin_p
@@ -4961 +4965 @@
   REAL epm(nloc, na, na)
 !
-  LOGICAL,SAVE   ::  first=.TRUE.
-  LOGICAL,SAVE   ::  keep_bug_indices_cv3_tracer
-!$OMP THREADPRIVATE(first, keep_bug_indices_cv3_tracer)
-
 ! variables d'Emanuel : du second indice au troisieme
 ! --->    tab(i,k,j) -> de l origine k a l arrivee j
@@ -4972 +4972 @@
 ! phi, phi2, epm, epmlmMm
 
-  IF (first) THEN
-    keep_bug_indices_cv3_tracer = .FALSE.
-    CALL getin_p('keep_bug_indices_cv3_tracer', keep_bug_indices_cv3_tracer)
-    first = .FALSE.
-  ENDIF ! (first)
-! initialisations
 
   da(:, :) = 0.

LMDZ6/trunk/libf/phylmd/lmdz_cv_ini.f90

@@ -14 +14 @@
           nl, nlp, nlm
   PUBLIC cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
-          , clmci, eps, epsi, epsim1, ginv, hrd, grav
+          , clmci, eps, epsi, epsim1, ginv, hrd, grav, keep_bug_indices_cv3_tracer
 
 
@@ -69 +69 @@
   !$OMP          , dtmax, cu, damp)
 
+LOGICAL keep_bug_indices_cv3_tracer
+ !$OMP THREADPRIVATE( keep_bug_indices_cv3_tracer)
+
 END MODULE lmdz_cv_ini