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

Last change on this file since 4291 was 4120, checked in by andrewryan, 8 years ago

Refactored offline_obs_oper to be nemo_gcm. Renamed ooomod.F90 to ooo_intp.F90 since it now contains the interpolation steps only. Renamed namelist to ooo.nml since it contains settings for the offline obs_oper only.

File size: 1.6 KB
RevLine 
[4120]1MODULE ooo_intp
[4110]2   !!======================================================================
[4120]3   !!                    ***  MODULE ooo_intp ***
[4030]4   !! ** Purpose : Run NEMO observation operator in offline mode
[4110]5   !!======================================================================
[4030]6   !! NEMO modules
[4120]7   USE in_out_manager
[4030]8   USE diaobs
9   !! Offline obs_oper modules
[4120]10   USE ooo_read
[4106]11   USE ooo_data
[4110]12
13   IMPLICIT NONE
14   PRIVATE
15
[4120]16   PUBLIC ooo_interp
[4110]17
[4030]18   CONTAINS
19
[4106]20      SUBROUTINE ooo_interp
[4030]21         !!----------------------------------------------------------------------
[4106]22         !!                    ***  SUBROUTINE ooo_interp ***
[4030]23         !!
24         !! ** Purpose : To interpolate the model as if it were running online.
25         !!
[4048]26         !! ** Method : 1. Populate model counterparts
27         !!             2. Call dia_obs at appropriate time steps
[4030]28         !!----------------------------------------------------------------------
29         INTEGER :: istp ! time step index
[4048]30         !! Loop over entire run
[4030]31         istp = nit000
32         nstop = 0
33         DO WHILE ( istp <= nitend .AND. nstop == 0 )
[4048]34            IF (jifile <= n_files + 1) THEN
[4117]35               IF ( MOD(istp, nn_ooo_freq) == nit000 ) THEN
[4048]36                  !! Read next model counterpart
[4106]37                  CALL ooo_rea_dri(jifile)
[4048]38                  jifile = jifile + 1
39               ENDIF
40               !! Interpolate single time step
41               CALL dia_obs(istp)
42            ENDIF
43            !! Increment model step
[4030]44            istp = istp + 1
45         END DO
[4106]46      END SUBROUTINE ooo_interp
[4030]47
[4120]48END MODULE ooo_intp
Note: See TracBrowser for help on using the repository browser.