source:
NEMO/trunk/src/SAO/sao_intp.F90
@
10069
| Last change on this file since 10069 was 10069, checked in by nicolasmartin, 6 years ago | |
|---|---|
|
|
| File size: 2.0 KB | |
| Rev | Line | |
|---|---|---|
| [4847] | 1 | MODULE sao_intp |
| [4110] | 2 | !!====================================================================== |
| [4847] | 3 | !! *** MODULE sao_intp *** |
| [4030] | 4 | !! ** Purpose : Run NEMO observation operator in offline mode |
| [4110] | 5 | !!====================================================================== |
| [7646] | 6 | !! History : 3.6 ! 2015-12 (A. Ryan) Original code |
| 7 | !!---------------------------------------------------------------------- | |
| 8 | ! ! NEMO modules | |
| [4120] | 9 | USE in_out_manager |
| [4030] | 10 | USE diaobs |
| [7646] | 11 | ! ! Stand Alone Observation operator modules |
| [4848] | 12 | USE sao_read |
| [4849] | 13 | USE sao_data |
| [4110] | 14 | |
| 15 | IMPLICIT NONE | |
| 16 | PRIVATE | |
| 17 | ||
| [4847] | 18 | PUBLIC sao_interp |
| [4110] | 19 | |
| [7646] | 20 | !!---------------------------------------------------------------------- |
| [9598] | 21 | !! NEMO/OCE 4.0 , NEMO Consortium (2018) |
| [10069] | 22 | !! $Id$ |
| [10068] | 23 | !! Software governed by the CeCILL license (see ./LICENSE) |
| [7646] | 24 | !!---------------------------------------------------------------------- |
| 25 | CONTAINS | |
| [4030] | 26 | |
| [7646] | 27 | SUBROUTINE sao_interp |
| 28 | !!---------------------------------------------------------------------- | |
| 29 | !! *** SUBROUTINE sao_interp *** | |
| 30 | !! | |
| 31 | !! ** Purpose : To interpolate the model as if it were running online. | |
| 32 | !! | |
| 33 | !! ** Method : 1. Populate model counterparts | |
| 34 | !! 2. Call dia_obs at appropriate time steps | |
| 35 | !!---------------------------------------------------------------------- | |
| 36 | INTEGER :: istp ! time step index | |
| 37 | INTEGER :: ifile ! file index | |
| 38 | !!---------------------------------------------------------------------- | |
| 39 | istp = nit000 - 1 | |
| 40 | nstop = 0 | |
| 41 | ifile = 1 | |
| 42 | CALL sao_rea_dri(ifile) | |
| 43 | ! | |
| 44 | DO WHILE ( istp <= nitend .AND. nstop == 0 ) | |
| 45 | IF (ifile <= n_files + 1) THEN | |
| 46 | IF ( MOD(istp, nn_sao_freq) == nit000 ) THEN | |
| 47 | CALL sao_rea_dri(ifile) | |
| 48 | ifile = ifile + 1 | |
| [4048] | 49 | ENDIF |
| [7646] | 50 | CALL dia_obs(istp) |
| 51 | ENDIF | |
| 52 | istp = istp + 1 | |
| 53 | END DO | |
| 54 | ! | |
| 55 | END SUBROUTINE sao_interp | |
| [4030] | 56 | |
| [7646] | 57 | !!====================================================================== |
| [4847] | 58 | END MODULE sao_intp |
Note: See TracBrowser
for help on using the repository browser.
