Changeset 4027 for trunk/LMDZ.PLUTO/libf/phypluto/writediagspecVI.F

Timestamp:

Jan 20, 2026, 10:46:15 AM (2 days ago)

Author:

debatzbr

Message:

Pluto PCM: Adding a slow_diagfi flag for 1D model from Generic PCM (revision 3928).
BBT

File:

• trunk/LMDZ.PLUTO/libf/phypluto/writediagspecVI.F (modified) (3 diffs)

trunk/LMDZ.PLUTO/libf/phypluto/writediagspecVI.F

@@ -179 +179 @@
            call iniwrite_specVI(nid,day_ini,areafi_glo(1),1,1)
          ENDIF
+         ! Close the NetCDF file
+               ierr= NF_CLOSE(nid)
          endif ! of if (is_master)
 
          zitau = -1 ! initialize zitau
-      else
-         if (is_master) then
-           ! Open the NetCDF file
-           ierr = NF_OPEN(fichnom,NF_WRITE,nid)
-         endif
       endif ! if (firstnom.eq.'1234567890')
 
@@ -207 +204 @@
 !       (like the 'histoire' outputs)
 !--------------------------------------------------------
+
+        if (is_master) then
+                ! Open the NetCDF file
+                ierr = NF_OPEN(fichnom,NF_WRITE,nid)
+              endif
 
         if (nom.eq.firstnom) then
@@ -333 +335 @@
         endif ! of if (dimpx.eq.3)
 
+        ! Close the NetCDF file
+              if (is_master) then
+                ierr= NF_CLOSE(nid)
+              endif
+
       endif ! of if ( MOD(zitau+1,irythme) .eq.0.)
 
-      ! Close the NetCDF file
-      if (is_master) then
-        ierr= NF_CLOSE(nid)
-      endif
-
       end