Changeset 183 in lmdz_wrf for trunk/WRFV3/phys

Timestamp:

Oct 14, 2014, 7:40:28 PM (10 years ago)

Author:

lfita

Message:

Removing check pritings
Removing nullification of MixingRatioValues?(:,:,2) = 0 and MixingTendRatioValues?(:,:,2)
NO plul related to te absence of oliq at the initial conditions. If one introduce fake ones it works!

File:

• trunk/WRFV3/phys/module_lmdz_phys.F (modified) (4 diffs)

trunk/WRFV3/phys/module_lmdz_phys.F

@@ -1094 +1094 @@
 
 ! Lluis Testing water species
-    MixingRatioValues(:,:,2)=0.
+!    MixingRatioValues(:,:,2)=MixingRatioValues(:,:,1)*0.2
 
     IF (wrf_dbg >= 200) THEN
@@ -1107 +1107 @@
 !      lmdzp=ddimx*(jlmdz-1)+ilmdz
 
-      PRINT *,'  WRF+LMDZ lmdzp: ',lmdzp,' : ',ilmdz,jlmdz
+      PRINT *,'  WRF+LMDZ before LMDZ physiq lmdzp: ',lmdzp,' : ',ilmdz,jlmdz
       PRINT *,'k wrf_T wrf_Temp TValues_______________'
       DO iz=1,dimz
@@ -1179 +1179 @@
 !!    MixingRatiotendValues(:,:,1)=1000.*MixingRatiotendValues(:,:,1)
 !!    MixingRatiotendValues(:,:,1)=MixingRatiotendValues(:,:,1)+MixingRatiotendValues(:,:,2)
-    MixingRatiotendValues(:,:,2)=0.
+!    MixingRatiotendValues(:,:,2)=0.
 
 !!    PRINT *,'  Lluis: outgoing from physiq'
@@ -1258 +1258 @@
 
     IF (wrf_dbg >= 200) THEN
-      PRINT *,'  WRF+LMDZ lmdzp: ',lmdzp
+      PRINT *,'  WRF+LMDZ after LMDZ physiq lmdzp: ',lmdzp
       PRINT *,'k T tendencies _______________'
       DO iz=1,dimz