Changeset 2654 for LMDZ5/trunk/libf

Timestamp:

Oct 7, 2016, 12:51:08 PM (8 years ago)

Author:

jyg

Message:

small bug in cva_driver.F90

File:

• LMDZ5/trunk/libf/phylmd/cva_driver.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/cva_driver.F90

@@ -1077 +1077 @@
         DO k = 1,nd
         write (6, '(i4,5(1x,e13.6))'), &
-          k, mp(idcum(igout),k), water(idcum(igout),k), ice(idcum(igout),k), &
-           evap(idcum(igout),k), fondue(idcum(igout),k)
+          k, mp(igout,k), water(igout,k), ice(igout,k), &
+           evap(igout,k), fondue(igout,k)
         ENDDO
         Print *, 'cva_driver after cv3_unsat: wdtrainA, wdtrainM '
         DO k = 1,nd
         write (6, '(i4,2(1x,e13.6))'), &
-           k, wdtrainA(idcum(igout),k), wdtrainM(idcum(igout),k)
+           k, wdtrainA(igout,k), wdtrainM(igout,k)
         ENDDO
       ENDIF
@@ -1129 +1129 @@
 !
       IF (debut) THEN
-        PRINT *, ' cv3_yield -> fqd(1) = ', fqd(idcum(igout), 1)
+        PRINT *, ' cv3_yield -> fqd(1) = ', fqd(igout, 1)
       END IF !(debut) THEN
 !   
       IF (prt_level >= 10) THEN
         Print *, 'cva_driver after cv3_yield:ft(1) , ftd(1) ', &
-                    ft(idcum(igout),1), ftd(idcum(igout),1)
+                    ft(igout,1), ftd(igout,1)
         Print *, 'cva_driver after cv3_yield:fq(1) , fqd(1) ', &
-                    fq(idcum(igout),1), fqd(idcum(igout),1)
+                    fq(igout,1), fqd(igout,1)
       ENDIF
 !