corrected a var name

couplage/MAR/make_clim_files.f90

@@ -25,7 +25,7 @@
 ! +---General and local variables
 ! +   ---------------------------
 
-      INTEGER  i,j,iostat, daynbr
+      INTEGER  i,j,iostat, daynbrm1
 
       REAL to_read(368)
       REAL var(mx,my)
@@ -55,7 +55,7 @@
 
       write (yyyy,'(I4)') iyrrGE
 
-      daynbr=njyrGE(mmarGE)+njybGE(mmarGE)*max(0,1-mod(iyrrGE,4))+previous_day-1          
+      daynbrm1=njyrGE(mmarGE)+njybGE(mmarGE)*max(0,1-mod(iyrrGE,4))+previous_day-1          
       
       climatology =  trim(filename) // trim(varname) // "yyyy.dat"
 
@@ -104,7 +104,7 @@
                               
                               read(1082,  *)  to_read
 
-                              to_read(daynbr+3) = var(i,j)
+                              to_read(daynbrm1+3) = var(i,j)
                               write(9981,123) to_read
 
                   123   format(f8.3,1x,f8.3,366(1x,f6.2)) 
@@ -126,7 +126,7 @@
 
                         read(9981,  *)  to_read
                         
-                        to_read(daynbr+3)= var(i,j)
+                        to_read(daynbrm1+3)= var(i,j)
                         write(1081,123) to_read
 
             enddo