Changeset 5136 for LMDZ6/branches/Amaury_dev/libf/phylmdiso/cva_driver.F90

Timestamp:

Jul 28, 2024, 4:17:54 PM (4 months ago)

Author:

abarral

Message:

Put comgeom.h, comgeom2.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmdiso/cva_driver.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmdiso/cva_driver.F90

@@ -1484 +1484 @@
         Print *, 'cva_driver after cv3_unsat:mp , water, ice, evap, fondue '
         DO k = 1,nd
-        write (6, '(i4,5(1x,e13.6))'), &
+        write (6, '(i4,5(1x,e13.6))') &
           k, mp(igout,k), water(igout,k), ice(igout,k), &
            evap(igout,k), fondue(igout,k)
@@ -1490 +1490 @@
         Print *, 'cva_driver after cv3_unsat: wdtrainA, wdtrainS, wdtrainM '     !!jygprl
         DO k = 1,nd
-        write (6, '(i4,3(1x,e13.6))'), &
+        write (6, '(i4,3(1x,e13.6))') &
            k, wdtrainA(igout,k), wdtrainS(igout,k), wdtrainM(igout,k)            !!jygprl
         ENDDO