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.
Changeset 4147 for branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90 – NEMO

Ignore:
Timestamp:
2013-11-04T12:51:55+01:00 (10 years ago)
Author:
cetlod
Message:

merge in dev_LOCEAN_2013, the 1st development branch dev_r3853_CNRS9_Confsetting, from its starting point ( r3853 ) on the trunk: see ticket #1169

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90

    r3785 r4147  
    5656    LOGICAL, PUBLIC, PARAMETER :: lk_asminc = .FALSE.  !: No assimilation increments 
    5757#endif 
    58    LOGICAL, PUBLIC :: ln_bkgwri = .FALSE. !: No output of the background state fields 
    59    LOGICAL, PUBLIC :: ln_asmiau = .FALSE. !: No applying forcing with an assimilation increment 
    60    LOGICAL, PUBLIC :: ln_asmdin = .FALSE. !: No direct initialization 
    61    LOGICAL, PUBLIC :: ln_trainc = .FALSE. !: No tracer (T and S) assimilation increments 
    62    LOGICAL, PUBLIC :: ln_dyninc = .FALSE. !: No dynamics (u and v) assimilation increments 
    63    LOGICAL, PUBLIC :: ln_sshinc = .FALSE. !: No sea surface height assimilation increment 
    64    LOGICAL, PUBLIC :: ln_seaiceinc = .FALSE. !: No sea ice concentration increment 
    65    LOGICAL, PUBLIC :: ln_salfix = .FALSE. !: Apply minimum salinity check 
     58   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 
    6666   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 times 
     67   INTEGER, PUBLIC :: nn_divdmp     !: Apply divergence damping filter nn_divdmp times 
    6868 
    6969   REAL(wp), PUBLIC, DIMENSION(:,:,:), ALLOCATABLE ::   t_bkg   , s_bkg      !: Background temperature and salinity 
     
    120120      INTEGER :: iitiaustr_date  ! Date YYYYMMDD of IAU interval start time step 
    121121      INTEGER :: iitiaufin_date  ! Date YYYYMMDD of IAU interval final time step 
     122      INTEGER :: ios             ! Local integer output status for namelist read 
    122123 
    123124      REAL(wp) :: znorm        ! Normalization factor for IAU weights 
     
    143144      !----------------------------------------------------------------------- 
    144145 
    145       ! Set default values 
    146       ln_bkgwri = .FALSE. 
    147       ln_trainc = .FALSE. 
    148       ln_dyninc = .FALSE. 
    149       ln_sshinc = .FALSE. 
    150146      ln_seaiceinc = .FALSE. 
    151       ln_asmdin = .FALSE. 
    152       ln_asmiau = .TRUE. 
    153       ln_salfix = .FALSE. 
    154147      ln_temnofreeze = .FALSE. 
    155       salfixmin = -9999 
    156       nitbkg    = 0 
    157       nitdin    = 0       
    158       nitiaustr = 1 
    159       nitiaufin = 150      ! = 10 days with ORCA2 
    160       niaufn    = 0 
    161  
    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) 
     151901   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 ) 
     155902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_asminc in configuration namelist', lwp ) 
     156      WRITE ( numond, nam_asminc ) 
    164157 
    165158      ! Control print 
Note: See TracChangeset for help on using the changeset viewer.