Changeset 5951 for branches/2014/dev_r4650_UKMO14.4_OBS_GENERAL_VINTERP/NEMOGCM/NEMO/OPA_SRC/ASM/asmpar.F90
- Timestamp:
- 2015-11-30T12:48:01+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO14.4_OBS_GENERAL_VINTERP/NEMOGCM/NEMO/OPA_SRC/ASM/asmpar.F90
r5950 r5951 6 6 7 7 IMPLICIT NONE 8 9 !! * Routine accessibility10 8 PRIVATE 11 9 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 10 CHARACTER(LEN=40), PUBLIC, PARAMETER :: c_asmbkg = 'assim_background_state_Jb' !: Filename for storing the background state 11 ! ! for use in the Jb term 12 CHARACTER(LEN=40), PUBLIC, PARAMETER :: c_asmdin = 'assim_background_state_DI' !: Filename for storing the background state 13 ! ! for direct initialization 14 CHARACTER(LEN=40), PUBLIC, PARAMETER :: c_asmtrj = 'assim_trj' !: Filename for storing the reference trajectory 15 CHARACTER(LEN=40), PUBLIC, PARAMETER :: c_asminc = 'assim_background_increments' !: Filename for storing the increments 16 ! ! to the background state 25 17 26 INTEGER, PUBLIC :: nitbkg_r !: Background time step referenced to nit00027 INTEGER, PUBLIC :: nitdin_r !: Direct Initialization time step referenced to nit00028 INTEGER, PUBLIC :: nitiaustr_r !: IAU starting time step referenced to nit00029 INTEGER, PUBLIC :: nitiaufin_r !: IAU final time step referenced to nit00030 INTEGER, PUBLIC :: nittrjfrq !: Frequency of trajectory output for 4D-VAR18 INTEGER, PUBLIC :: nitbkg_r !: Background time step referenced to nit000 19 INTEGER, PUBLIC :: nitdin_r !: Direct Initialization time step referenced to nit000 20 INTEGER, PUBLIC :: nitiaustr_r !: IAU starting time step referenced to nit000 21 INTEGER, PUBLIC :: nitiaufin_r !: IAU final time step referenced to nit000 22 INTEGER, PUBLIC :: nittrjfrq !: Frequency of trajectory output for 4D-VAR 31 23 32 24 !!---------------------------------------------------------------------- … … 34 26 !! $Id$ 35 27 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 36 !!---------------------------------------------------------------------- 37 28 !!====================================================================== 38 29 END MODULE asmpar
Note: See TracChangeset
for help on using the changeset viewer.