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 4998 for trunk/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90 – NEMO

Ignore:
Timestamp:
2014-12-22T17:16:45+01:00 (9 years ago)
Author:
mocavero
Message:

bug fix, see ticket #1392

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90

    r4990 r4998  
    5656    LOGICAL, PUBLIC, PARAMETER :: lk_asminc = .FALSE.  !: No assimilation increments 
    5757#endif 
    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 
     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             !: No sea ice concentration increment 
     65   LOGICAL, PUBLIC :: ln_salfix = .FALSE.      !: Apply minimum salinity check 
    6666   LOGICAL, PUBLIC :: ln_temnofreeze = .FALSE. !: Don't allow the temperature to drop below freezing 
    67    INTEGER, PUBLIC :: nn_divdmp     !: 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 
Note: See TracChangeset for help on using the changeset viewer.