source:
branches/dev_1784_ASM/NEMO/OPA_SRC/ASM/asmpar.F90
@
2002
| Last change on this file since 2002 was 2002, checked in by djlea, 14 years ago | |
|---|---|
| File size: 1.6 KB | |
| Line | |
|---|---|
| 1 | MODULE asmpar |
| 2 | !!====================================================================== |
| 3 | !! *** MODULE asmpar *** |
| 4 | !! Assimilation increment : Parameters for assimilation interface |
| 5 | !!====================================================================== |
| 6 | |
| 7 | IMPLICIT NONE |
| 8 | |
| 9 | !! * Routine accessibility |
| 10 | PRIVATE |
| 11 | |
| 12 | !! * Shared Modules variables |
| 13 | CHARACTER (LEN=40), PUBLIC, PARAMETER :: & |
| 14 | & c_asmbkg = 'assim_background_state_Jb', & !: Filename for storing the |
| 15 | !: background state for use |
| 16 | !: in the Jb term |
| 17 | & c_asmdin = 'assim_background_state_DI', & !: Filename for storing the |
| 18 | !: background state for direct |
| 19 | !: initialization |
| 20 | & c_asmtrj = 'assim_trj', & !: Filename for storing the |
| 21 | !: reference trajectory |
| 22 | & c_asminc = 'assim_background_increments' !: Filename for storing the |
| 23 | !: increments to the background |
| 24 | !: state |
| 25 | |
| 26 | INTEGER, PUBLIC :: & |
| 27 | & nitbkg_r, & !: Background time step referenced to nit000 |
| 28 | & nitdin_r, & !: Direct Initialization time step referenced to nit000 |
| 29 | & nitiaustr_r, & !: IAU starting time step referenced to nit000 |
| 30 | & nitiaufin_r, & !: IAU final time step referenced to nit000 |
| 31 | & nittrjfrq !: Frequency of trajectory output for 4D-VAR |
| 32 | |
| 33 | END MODULE asmpar |
Note: See TracBrowser
for help on using the repository browser.
