S. Riette 30/06/2022 Enable unlimited number of files in testprogs

src/testprogs/ice_adjust/getdata_ice_adjust_mod.F90

@@ -107,7 +107,7 @@ KRR=6
 NGPTOT = NPROMA * NGPBLKS
 
 IBL = 1
-WRITE (CLFILE, '("data/",I3.3,".dat")') IBL
+WRITE (CLFILE, '("data/",I8.8,".dat")') IBL
 OPEN (IFILE, FILE=TRIM (CLFILE), FORM='UNFORMATTED') 
 READ (IFILE) KLON, KDUM, KLEV
 CLOSE (IFILE)
@@ -190,10 +190,12 @@ PHLC_HRC_B     = ZNAN
 
 
 IOFF = 0
-IBL = 1
+IBL = 0
+LLEXIST = .TRUE.
 
-DO IBL = 1, 296
-  WRITE (CLFILE, '("data/",I3.3,".dat")') IBL
+DO WHILE(LLEXIST)
+  IBL = IBL + 1
+  WRITE (CLFILE, '("data/",I8.8,".dat")') IBL
 
   INQUIRE (FILE=TRIM (CLFILE), EXIST=LLEXIST)
 

src/testprogs/rain_ice/getdata_rain_ice_mod.F90

@@ -132,7 +132,7 @@ KRR=6
 NGPTOT = NPROMA * NGPBLKS
 
 IBL = 1
-WRITE (CLFILE, '("data/",I3.3,".dat")') IBL
+WRITE (CLFILE, '("data/",I8.8,".dat")') IBL
 OPEN (IFILE, FILE=TRIM (CLFILE), FORM='UNFORMATTED') 
 READ (IFILE) IPROMA, ISIZE
 READ (IFILE) KLON, KDUM, KLEV, KRR
@@ -224,10 +224,12 @@ ZRAINFR_OUT_B =     ZNAN
 PFPR_OUT_B    =     ZNAN
 
 IOFF = 0
-IBL = 1
+IBL = 0
+LLEXIST = .TRUE.
 
-DO IBL = 1, 150
-  WRITE (CLFILE, '("data/",I3.3,".dat")') IBL
+DO WHILE(LLEXIST)
+  IBL = IBL + 1
+  WRITE (CLFILE, '("data/",I8.8,".dat")') IBL
 
   INQUIRE (FILE=TRIM (CLFILE), EXIST=LLEXIST)