Changeset 3197 for LMDZ6/trunk/libf/phylmd/cva_driver.F90

Timestamp:

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

Author:

jyg

Message:

small bug in cv3_yield in cv3_routines.F90

File:

• LMDZ6/trunk/libf/phylmd/cva_driver.F90 (modified) (1 diff)

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