Changeset 5279 for LMDZ6/trunk/libf/phylmd

Timestamp:

Oct 25, 2024, 6:35:18 PM (2 months ago)

Author:

abarral

Message:

fix: comma before i/o item

Location:

LMDZ6/trunk/libf/phylmd

Files:

• Dust/dustemission_mod.f90 (modified) (1 diff)
• cva_driver.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/Dust/dustemission_mod.f90

@@ -1087 +1087 @@
       DO k=1,ndistb
         DO nb=1,nbins
-            write(15001,*),k,nb,massfrac(k,nb)
+            write(15001,*) k,nb,massfrac(k,nb)
         ENDDO
       ENDDO

LMDZ6/trunk/libf/phylmd/cva_driver.f90

@@ -1100 +1100 @@
         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)
@@ -1106 +1106 @@
         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