Ignore:
Timestamp:
2020-12-11T13:57:22+01:00 (12 months ago)
Author:
kingr
Message:

Allow heat/salt conservation when assimilating SSH to be namelist controlled.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_FOAMv14_sshiau/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90

    r12613 r14161  
    7070   LOGICAL, PUBLIC :: ln_trainc = .FALSE.      !: No tracer (T and S) assimilation increments 
    7171   LOGICAL, PUBLIC :: ln_dyninc = .FALSE.      !: No dynamics (u and v) assimilation increments 
     72   LOGICAL, PUBLIC :: ln_ssh_hs_cons = .FALSE. !: Conserve heat and salt when adding SSH increment 
    7273   LOGICAL, PUBLIC :: ln_sshinc = .FALSE.      !: No sea surface height assimilation increment 
    7374   LOGICAL, PUBLIC :: ln_seaiceinc = .FALSE.   !: No sea ice concentration increment 
     
    149150         &                 ln_pno3inc, ln_psi4inc, ln_pdicinc, ln_palkinc, & 
    150151         &                 ln_pphinc, ln_po2inc,                           & 
    151          &                 ln_asmdin, ln_asmiau,                           & 
     152         &                 ln_asmdin, ln_asmiau, ln_ssh_hs_cons,           & 
    152153         &                 nitbkg, nitdin, nitiaustr, nitiaufin, niaufn,   & 
    153154         &                 ln_salfix, salfixmin, nn_divdmp,                & 
     
    159160      ! Read Namelist nam_asminc : assimilation increment interface 
    160161      !----------------------------------------------------------------------- 
     162      ln_ssh_hs_cons = .FALSE. 
    161163      ln_seaiceinc = .FALSE. 
    162164      ln_sitinc = .FALSE. 
     
    183185         WRITE(numout,*) '      Logical switch for applying tracer increments            ln_trainc = ', ln_trainc 
    184186         WRITE(numout,*) '      Logical switch for applying velocity increments          ln_dyninc = ', ln_dyninc 
     187         WRITE(numout,*) '      Logical switch for conserving heat/salt when applying SSH increments ln_ssh_hs_cons = ', ln_ssh_hs_cons 
    185188         WRITE(numout,*) '      Logical switch for applying SSH increments               ln_sshinc = ', ln_sshinc 
    186189         WRITE(numout,*) '      Logical switch for applying SIC increments               ln_seaiceinc = ', ln_seaiceinc 
Note: See TracChangeset for help on using the changeset viewer.