Changeset 6299 for branches/UKMO/dev_r5518_ciceiau/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90

Timestamp:

2016-02-09T11:41:04+01:00 (8 years ago)

Author:

drew

Message:

UKMO CICE Ticket#68. Commit NEMO changes require to run CICE-IAU.

File:

• branches/UKMO/dev_r5518_ciceiau/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90 (modified) (3 diffs)

branches/UKMO/dev_r5518_ciceiau/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90

@@ -62 +62 @@
    LOGICAL, PUBLIC :: ln_dyninc = .FALSE.      !: No dynamics (u and v) assimilation increments
    LOGICAL, PUBLIC :: ln_sshinc = .FALSE.      !: No sea surface height assimilation increment
-   LOGICAL, PUBLIC :: ln_seaiceinc             !: No sea ice concentration increment
+   LOGICAL, PUBLIC :: ln_seaiceinc = .FALSE.   !: No sea ice concentration increment
    LOGICAL, PUBLIC :: ln_salfix = .FALSE.      !: Apply minimum salinity check
    LOGICAL, PUBLIC :: ln_temnofreeze = .FALSE. !: Don't allow the temperature to drop below freezing
@@ -130 +130 @@
       !!
       NAMELIST/nam_asminc/ ln_bkgwri,                                      &
-         &                 ln_trainc, ln_dyninc, ln_sshinc,                &
+         &                 ln_trainc, ln_dyninc, ln_sshinc, ln_seaiceinc, &
          &                 ln_asmdin, ln_asmiau,                           &
          &                 nitbkg, nitdin, nitiaustr, nitiaufin, niaufn,   &
@@ -139 +139 @@
       ! Read Namelist nam_asminc : assimilation increment interface
       !-----------------------------------------------------------------------
-      ln_seaiceinc = .FALSE.
+      !ln_seaiceinc = .FALSE.
       ln_temnofreeze = .FALSE.