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/2013/dev_MERGE_2013/NEMOGCM/NEMO/OOO_SRC – NEMO

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

Last change on this file since 4317 was 4120, checked in by andrewryan, 10 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
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   CONTAINS
19
20      SUBROUTINE ooo_interp
21         !!----------------------------------------------------------------------
22         !!                    ***  SUBROUTINE ooo_interp ***
23         !!
24         !! ** Purpose : To interpolate the model as if it were running online.
25         !!
26         !! ** Method : 1. Populate model counterparts
27         !!             2. Call dia_obs at appropriate time steps
28         !!----------------------------------------------------------------------
29         INTEGER :: istp ! time step index
30         !! Loop over entire run
31         istp = nit000
32         nstop = 0
33         DO WHILE ( istp <= nitend .AND. nstop == 0 )
34            IF (jifile <= n_files + 1) THEN
35               IF ( MOD(istp, nn_ooo_freq) == nit000 ) THEN
36                  !! Read next model counterpart
37                  CALL ooo_rea_dri(jifile)
38                  jifile = jifile + 1
39               ENDIF
40               !! Interpolate single time step
41               CALL dia_obs(istp)
42            ENDIF
43            !! Increment model step
44            istp = istp + 1
45         END DO
46      END SUBROUTINE ooo_interp
47
48END MODULE ooo_intp
Note: See TracBrowser for help on using the repository browser.