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 10001 for NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/ASM/asminc.F90 – NEMO

Ignore:
Timestamp:
2018-07-26T09:50:51+02:00 (6 years ago)
Author:
gm
Message:

#1911 (ENHANCE-04): RK3 branch - step I.1 and I.2 (see wiki page)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/ASM/asminc.F90

    r9939 r10001  
    5858    LOGICAL, PUBLIC, PARAMETER :: lk_asminc = .FALSE.  !: No assimilation increments 
    5959#endif 
    60    LOGICAL, PUBLIC :: ln_bkgwri     !: No output of the background state fields 
    61    LOGICAL, PUBLIC :: ln_asmiau     !: No applying forcing with an assimilation increment 
    62    LOGICAL, PUBLIC :: ln_asmdin     !: No direct initialization 
    63    LOGICAL, PUBLIC :: ln_trainc     !: No tracer (T and S) assimilation increments 
    64    LOGICAL, PUBLIC :: ln_dyninc     !: No dynamics (u and v) assimilation increments 
    65    LOGICAL, PUBLIC :: ln_sshinc     !: No sea surface height assimilation increment 
    66    LOGICAL, PUBLIC :: ln_seaiceinc  !: No sea ice concentration increment 
    67    LOGICAL, PUBLIC :: ln_salfix     !: Apply minimum salinity check 
    68    LOGICAL, PUBLIC :: ln_temnofreeze = .FALSE. !: Don't allow the temperature to drop below freezing 
    69    INTEGER, PUBLIC :: nn_divdmp     !: Apply divergence damping filter nn_divdmp times 
    70  
     60   LOGICAL, PUBLIC ::   ln_bkgwri     !: No output of the background state fields 
     61   LOGICAL, PUBLIC ::   ln_asmiau     !: No applying forcing with an assimilation increment 
     62   LOGICAL, PUBLIC ::   ln_asmdin     !: No direct initialization 
     63   LOGICAL, PUBLIC ::   ln_trainc     !: No tracer (T and S) assimilation increments 
     64   LOGICAL, PUBLIC ::   ln_dyninc     !: No dynamics (u and v) assimilation increments 
     65   LOGICAL, PUBLIC ::   ln_sshinc     !: No sea surface height assimilation increment 
     66   LOGICAL, PUBLIC ::   ln_seaiceinc  !: No sea ice concentration increment 
     67   LOGICAL, PUBLIC ::   ln_salfix     !: Apply minimum salinity check 
     68   LOGICAL, PUBLIC ::   ln_temnofreeze = .FALSE. !: Don't allow the temperature to drop below freezing 
     69   INTEGER, PUBLIC ::   nn_divdmp     !: Apply divergence damping filter nn_divdmp times 
     70 
     71   LOGICAL, PUBLIC ::   l_dynasm      !: flag derived from ln_asm... flags for calling  
     72   LOGICAL, PUBLIC ::   l_traasm      !: dyn_asm_inc and tra_asm_inc routines in step.F90 
     73    
    7174   REAL(wp), PUBLIC, DIMENSION(:,:,:), ALLOCATABLE ::   t_bkg   , s_bkg      !: Background temperature and salinity 
    7275   REAL(wp), PUBLIC, DIMENSION(:,:,:), ALLOCATABLE ::   u_bkg   , v_bkg      !: Background u- & v- velocity components 
Note: See TracChangeset for help on using the changeset viewer.