source:
branches/UKMO/dev_r5518_ciceiau/NEMOGCM/NEMO/OOO_SRC/ooo_intp.F90
@
6299
Last change on this file since 6299 was 6298, checked in by drew, 8 years ago | |
---|---|
File size: 1.6 KB |
Rev | Line | |
---|---|---|
[4120] | 1 | MODULE 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 | |
[5215] | 18 | !! $Id$ |
[4030] | 19 | CONTAINS |
20 | ||
[4106] | 21 | SUBROUTINE ooo_interp |
[4030] | 22 | !!---------------------------------------------------------------------- |
[4106] | 23 | !! *** SUBROUTINE ooo_interp *** |
[4030] | 24 | !! |
25 | !! ** Purpose : To interpolate the model as if it were running online. | |
26 | !! | |
[4048] | 27 | !! ** Method : 1. Populate model counterparts |
28 | !! 2. Call dia_obs at appropriate time steps | |
[4030] | 29 | !!---------------------------------------------------------------------- |
30 | INTEGER :: istp ! time step index | |
[4048] | 31 | !! Loop over entire run |
[4030] | 32 | istp = nit000 |
33 | nstop = 0 | |
34 | DO WHILE ( istp <= nitend .AND. nstop == 0 ) | |
[4048] | 35 | IF (jifile <= n_files + 1) THEN |
[4117] | 36 | IF ( MOD(istp, nn_ooo_freq) == nit000 ) THEN |
[4048] | 37 | !! Read next model counterpart |
[4106] | 38 | CALL ooo_rea_dri(jifile) |
[4048] | 39 | jifile = jifile + 1 |
40 | ENDIF | |
41 | !! Interpolate single time step | |
42 | CALL dia_obs(istp) | |
43 | ENDIF | |
44 | !! Increment model step | |
[4030] | 45 | istp = istp + 1 |
46 | END DO | |
[4106] | 47 | END SUBROUTINE ooo_interp |
[4030] | 48 | |
[4120] | 49 | END MODULE ooo_intp |
Note: See TracBrowser
for help on using the repository browser.