Changeset 4027 for trunk/LMDZ.PLUTO/libf/phypluto/writediagspecIR.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/writediagspecIR.F (modified) (3 diffs)

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

@@ -180 +180 @@
            call iniwrite_specIR(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')
 
@@ -202 +199 @@
 
       if ( MOD(zitau+1,isample) .eq.0.) then
+
+        if (is_master) then
+                ! Open the NetCDF file
+                ierr = NF_OPEN(fichnom,NF_WRITE,nid)
+              endif
 
 ! Compute/write/extend 'Time' coordinate (date given in days)
@@ -334 +336 @@
         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,isample) .eq.0.)
 
-      ! Close the NetCDF file
-      if (is_master) then
-        ierr= NF_CLOSE(nid)
-      endif
-
       end