Changeset 258 in lmdz_wrf for trunk

Timestamp:

Feb 16, 2015, 3:42:51 PM (10 years ago)

Author:

lfita

Message:

Activating moisture evolutions even for mp_physics=0

File:

• trunk/WRFV3/dyn_em/solve_em.F (modified) (4 diffs)

trunk/WRFV3/dyn_em/solve_em.F

@@ -919 +919 @@
 !!        &        WRF_TTEND=t_tend,                                                   &
         &        WRF_UTEND=ru_tendf, WRF_VTEND=rv_tendf,                     &
-        &        WRF_TTEND=t_tendf,                                                   &
+        &        WRF_TTEND=t_tendf,                                                  &
         &        WRF_MOISTTEND=moist_tend, WRF_PSFCTEND=grid%dpsdt,                  &
         &        WRF_QVID=P_QV, WRF_QCID=P_QC, WRF_QRID=P_QR,                        &
@@ -3703 +3703 @@
    ENDIF
 
+#ifdef LMDZ
 !!L. Fita, January 2105, LMD. We have mp_physics == 0, thus, WRF is not doing
 !  this...
+   PRINT *,'  Lluis: num_3d_m: ',num_3d_m,' PARAM_FIRST_SCALAR: ',        &
+     PARAM_FIRST_SCALAR,' p_qv: ',p_qv,' p_qc: ',p_qc,' p_qr: ',p_qr,     &
+     ' p_qi: ',p_qi,' p_qs: ',p_qs,' p_qg: ',p_qg, ' p_qh: ',p_qh
+   IF (config_flags%mp_physics >= 0)  then
+#else
    IF (config_flags%mp_physics /= 0)  then
-!   IF (config_flags%mp_physics /= 0)  then
-
+#endif
      !$OMP PARALLEL DO   &
      !$OMP PRIVATE ( ij, its, ite, jts, jte )
@@ -3747 +3752 @@
 BENCH_START(micro_driver_tim)
 
+#ifdef LMDZ
+! L. Fita, LMD February 2015. No moisture mircophysics!!
+! No microphyics_driver
+#else
      CALL microphysics_driver(                                            &
       &         DT=dtm             ,DX=grid%dx              ,DY=grid%dy   &
@@ -3819 +3828 @@
       &        , RI_CURR=grid%rimi                                          &
                                                                           )
+#endif
 BENCH_END(micro_driver_tim)
 
 #ifdef LMDZ
-  grid%h_diabatic = 0.
+!  grid%h_diabatic = 0.
 #endif