Changeset 5063 for branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/SAO_SRC/sao_intp.F90

Timestamp:

2015-02-05T17:29:55+01:00 (9 years ago)

Author:

andrewryan

Message:

gross simplification of stand alone observation operator

File:

• branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/SAO_SRC/sao_intp.F90 (modified) (1 diff)

branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/SAO_SRC/sao_intp.F90

@@ -27 +27 @@
          !!             2. Call dia_obs at appropriate time steps
          !!----------------------------------------------------------------------
-         INTEGER :: istp ! time step index
-         !! Loop over entire run
+         INTEGER :: &
+            & istp, & ! time step index
+            & ifile   ! file index
          istp = nit000 - 1
          nstop = 0
+         ifile = 1
+         CALL sao_rea_dri(ifile)
          DO WHILE ( istp <= nitend .AND. nstop == 0 )
-            IF (jifile <= n_files + 1) THEN
+            IF (ifile <= n_files + 1) THEN
                IF ( MOD(istp, nn_sao_freq) == nit000 ) THEN
-                  !! Read next model counterpart
-                  CALL sao_rea_dri(jifile)
-                  jifile = jifile + 1
+                  CALL sao_rea_dri(ifile)
+                  ifile = ifile + 1
                ENDIF
-               !! Interpolate single time step
                CALL dia_obs(istp)
             ENDIF
-            !! Increment model step
             istp = istp + 1
          END DO