Fix for FI station numbers for the set "70*"

carra_obsoul.main.f90

@@ -183,18 +183,21 @@
   CASE ('FI')
 
   if (rval_station.lt.1000.) then
-  write(indic(1:2),'(i2.2)') INT(rval_block)
-  write(indic(3:5),'(i3.3)') INT(rval_station)
+      write(indic(1:2),'(i2.2)') INT(rval_block)
+      write(indic(3:5),'(i3.3)') INT(rval_station)
+  else if ((rval_station.ge.1000.).and.(rval_station.lt.2000.)) then
+      write(indic(1:2),'(i2.2)') INT(rval_block)
+      write(indic(3:6),'(i4.4)') INT(rval_station)
   else if ((rval_station.ge.2000.).and.(rval_station.lt.3000.)) then
-  i_stn=INT(rval_station)
-  i_stn=i_stn-2000
-  write(indic(1:2),'(i2.2)') INT(rval_block)
-  write(indic(3:5),'(i3.3)') i_stn
+      i_stn=INT(rval_station)
+      i_stn=i_stn-2000
+      write(indic(1:2),'(i2.2)') INT(rval_block)
+      write(indic(3:5),'(i3.3)') i_stn
   else if (rval_station.ge.700000.) then
-  indic='2       '
-  write(indic(2:7),'(i6.6)') INT(rval_station)
+      indic='2       '
+      write(indic(2:7),'(i6.6)') INT(rval_station)
   else
-  write(*,*) 'ERROR : Something wrong with FI stn nr = ',INT(rval_station)
+      write(*,*) 'ERROR : Something wrong with FI stn nr = ',INT(rval_station)
   endif
 
   CASE ('IS')