- Timestamp:
- 2013-11-04T12:51:55+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90
r3785 r4147 56 56 LOGICAL, PUBLIC, PARAMETER :: lk_asminc = .FALSE. !: No assimilation increments 57 57 #endif 58 LOGICAL, PUBLIC :: ln_bkgwri = .FALSE.!: No output of the background state fields59 LOGICAL, PUBLIC :: ln_asmiau = .FALSE.!: No applying forcing with an assimilation increment60 LOGICAL, PUBLIC :: ln_asmdin = .FALSE.!: No direct initialization61 LOGICAL, PUBLIC :: ln_trainc = .FALSE.!: No tracer (T and S) assimilation increments62 LOGICAL, PUBLIC :: ln_dyninc = .FALSE.!: No dynamics (u and v) assimilation increments63 LOGICAL, PUBLIC :: ln_sshinc = .FALSE.!: No sea surface height assimilation increment64 LOGICAL, PUBLIC :: ln_seaiceinc = .FALSE.!: No sea ice concentration increment65 LOGICAL, PUBLIC :: ln_salfix = .FALSE.!: Apply minimum salinity check58 LOGICAL, PUBLIC :: ln_bkgwri !: No output of the background state fields 59 LOGICAL, PUBLIC :: ln_asmiau !: No applying forcing with an assimilation increment 60 LOGICAL, PUBLIC :: ln_asmdin !: No direct initialization 61 LOGICAL, PUBLIC :: ln_trainc !: No tracer (T and S) assimilation increments 62 LOGICAL, PUBLIC :: ln_dyninc !: No dynamics (u and v) assimilation increments 63 LOGICAL, PUBLIC :: ln_sshinc !: No sea surface height assimilation increment 64 LOGICAL, PUBLIC :: ln_seaiceinc !: No sea ice concentration increment 65 LOGICAL, PUBLIC :: ln_salfix !: Apply minimum salinity check 66 66 LOGICAL, PUBLIC :: ln_temnofreeze = .FALSE. !: Don't allow the temperature to drop below freezing 67 INTEGER, PUBLIC :: nn_divdmp = 0!: Apply divergence damping filter nn_divdmp times67 INTEGER, PUBLIC :: nn_divdmp !: Apply divergence damping filter nn_divdmp times 68 68 69 69 REAL(wp), PUBLIC, DIMENSION(:,:,:), ALLOCATABLE :: t_bkg , s_bkg !: Background temperature and salinity … … 120 120 INTEGER :: iitiaustr_date ! Date YYYYMMDD of IAU interval start time step 121 121 INTEGER :: iitiaufin_date ! Date YYYYMMDD of IAU interval final time step 122 INTEGER :: ios ! Local integer output status for namelist read 122 123 123 124 REAL(wp) :: znorm ! Normalization factor for IAU weights … … 143 144 !----------------------------------------------------------------------- 144 145 145 ! Set default values146 ln_bkgwri = .FALSE.147 ln_trainc = .FALSE.148 ln_dyninc = .FALSE.149 ln_sshinc = .FALSE.150 146 ln_seaiceinc = .FALSE. 151 ln_asmdin = .FALSE.152 ln_asmiau = .TRUE.153 ln_salfix = .FALSE.154 147 ln_temnofreeze = .FALSE. 155 salfixmin = -9999 156 nitbkg = 0157 nitdin = 0158 nitiaustr = 1 159 nitiaufin = 150 ! = 10 days with ORCA2 160 niaufn = 0161 162 REWIND ( numnam)163 READ ( numnam, nam_asminc )148 149 REWIND( numnam_ref ) ! Namelist nam_asminc in reference namelist : Assimilation increment 150 READ ( numnam_ref, nam_asminc, IOSTAT = ios, ERR = 901) 151 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_asminc in reference namelist', lwp ) 152 153 REWIND( numnam_cfg ) ! Namelist nam_asminc in configuration namelist : Assimilation increment 154 READ ( numnam_cfg, nam_asminc, IOSTAT = ios, ERR = 902 ) 155 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_asminc in configuration namelist', lwp ) 156 WRITE ( numond, nam_asminc ) 164 157 165 158 ! Control print
Note: See TracChangeset
for help on using the changeset viewer.