New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
ooo_intp.F90 in branches/UKMO/dev_r5518_25hr_mean_assim_bkg/NEMOGCM/NEMO/OOO_SRC – NEMO

source: branches/UKMO/dev_r5518_25hr_mean_assim_bkg/NEMOGCM/NEMO/OOO_SRC/ooo_intp.F90 @ 6757

Last change on this file since 6757 was 6757, checked in by kingr, 8 years ago

Cleared SVN keywords.

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