Changeset 3197

Timestamp:

Feb 9, 2018, 11:22:06 AM (6 years ago)

Author:

jyg

Message:

small bug in cv3_yield in cv3_routines.F90

Location:

LMDZ6/trunk/libf/phylmd

Files:

• concvl.F90 (modified) (1 diff)
• cv3_routines.F90 (modified) (1 diff)
• cva_driver.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/concvl.F90

@@ -444 +444 @@
   END IF
 ! ------------------------------------------------------------------
-  IF (prt_level>=10) WRITE (lunout, *) ' cva_driver -> cbmf,plcl,plfc,wbeff ', &
-                                         cbmf(1), plcl(1), plfc(1), wbeff(1)
+  IF (prt_level>=10) WRITE (lunout, *) ' cva_driver -> cbmf,plcl,plfc,wbeff, d_t, d_q ', &
+                                         cbmf(1), plcl(1), plfc(1), wbeff(1), d_t(1,1), d_q(1,1)
 
   DO i = 1, klon

LMDZ6/trunk/libf/phylmd/cv3_routines.F90

@@ -3405 +3405 @@
 DO i = 2, nlp
   DO il = 1, ncum
-    upwd(il,i) = max(0., upwd(il,i-1) - up_to(il,i-1) + up_from(il,i-1))
+    IF (i<=inb(il)+1) THEN
+      upwd(il,i) = max(0., upwd(il,i-1) - up_to(il,i-1) + up_from(il,i-1))
+    ENDIF
   ENDDO
 ENDDO

LMDZ6/trunk/libf/phylmd/cva_driver.F90

@@ -1200 +1200 @@
                            wdtrainA1, wdtrainM1,                       & ! RomP
                            qtc1, sigt1, epmax_diag1) ! epmax_cape
+!   
+      IF (prt_level >= 10) THEN
+        Print *, 'cva_driver after cv3_uncompress:ft1(1) , ftd1(1) ', &
+                    ft1(igout,1), ftd1(igout,1)
+        Print *, 'cva_driver after cv3_uncompress:fq1(1) , fqd1(1) ', &
+                    fq1(igout,1), fqd1(igout,1)
+      ENDIF
+!   
     END IF