Changeset 5279 for LMDZ6/trunk/libf/phylmdiso

Timestamp:

Oct 25, 2024, 6:35:18 PM (16 hours ago)

Author:

abarral

Message:

fix: comma before i/o item

File:

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

LMDZ6/trunk/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