source: branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OOO_SRC/ooo_intp.F90 @ 4317

MODULE ooo_intp
   !!======================================================================
   !!                    ***  MODULE ooo_intp ***
   !! ** Purpose : Run NEMO observation operator in offline mode
   !!======================================================================
   !! NEMO modules
   USE in_out_manager
   USE diaobs
   !! Offline obs_oper modules
   USE ooo_read
   USE ooo_data

   IMPLICIT NONE
   PRIVATE

   PUBLIC ooo_interp

   CONTAINS

      SUBROUTINE ooo_interp
         !!----------------------------------------------------------------------
         !!                    ***  SUBROUTINE ooo_interp ***
         !!
         !! ** Purpose : To interpolate the model as if it were running online.
         !!
         !! ** Method : 1. Populate model counterparts
         !!             2. Call dia_obs at appropriate time steps
         !!----------------------------------------------------------------------
         INTEGER :: istp ! time step index
         !! Loop over entire run
         istp = nit000
         nstop = 0
         DO WHILE ( istp <= nitend .AND. nstop == 0 )
            IF (jifile <= n_files + 1) THEN
               IF ( MOD(istp, nn_ooo_freq) == nit000 ) THEN
                  !! Read next model counterpart
                  CALL ooo_rea_dri(jifile)
                  jifile = jifile + 1
               ENDIF
               !! Interpolate single time step
               CALL dia_obs(istp)
            ENDIF
            !! Increment model step
            istp = istp + 1
         END DO
      END SUBROUTINE ooo_interp

END MODULE ooo_intp