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.
asmpar.F90 in branches/2015/dev_r5803_NOC_WAD/NEMOGCM/NEMO/OPA_SRC/ASM – NEMO

source: branches/2015/dev_r5803_NOC_WAD/NEMOGCM/NEMO/OPA_SRC/ASM/asmpar.F90 @ 5870

Last change on this file since 5870 was 5870, checked in by acc, 8 years ago

Branch 2015/dev_r5803_NOC_WAD. Merge in trunk changes from 5803 to 5869 in preparation for merge. Also tidied and reorganised some wetting and drying code. Renamed wadlmt.F90 to wetdry.F90. Wetting drying code changes restricted to domzgr.F90, domvvl.F90 nemogcm.F90 sshwzv.F90, dynspg_ts.F90, wetdry.F90 and dynhpg.F90. Code passes full SETTE tests with ln_wd=.false.. Still awaiting test case for checking with ln_wd=.false.

  • Property svn:keywords set to Id
File size: 1.9 KB
Line 
1MODULE asmpar
2   !!======================================================================
3   !!                       ***  MODULE asmpar  ***
4   !! Assimilation increment : Parameters for assimilation interface
5   !!======================================================================
6
7   IMPLICIT NONE
8   PRIVATE
9
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
17
18   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
23
24   !!----------------------------------------------------------------------
25   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
26   !! $Id$
27   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
28   !!======================================================================
29END MODULE asmpar
Note: See TracBrowser for help on using the repository browser.