Changeset 6337 for branches/UKMO/dev_r5518_pcbias/NEMOGCM/NEMO/OPA_SRC/ASM/bias.F90

Timestamp:

2016-02-19T17:15:08+01:00 (8 years ago)

Author:

jenniewaters

Message:

Removing lk_asminc from bias.F90.

File:

• branches/UKMO/dev_r5518_pcbias/NEMOGCM/NEMO/OPA_SRC/ASM/bias.F90 (modified) (3 diffs)

branches/UKMO/dev_r5518_pcbias/NEMOGCM/NEMO/OPA_SRC/ASM/bias.F90

@@ -539 +539 @@
        ztsday  = rday / real(rdt)
 
-            IF( lk_asminc ) THEN  ! nudge in increments and decay historical contribution
+            IF( ln_asmiau .and. ln_trainc ) THEN  ! nudge in increments and decay historical contribution
 
                
@@ -569 +569 @@
                   ENDDO
 
-                  IF ( ln_trainc .and. .not.ln_bsyncro ) THEN 
+                  IF ( .not.ln_bsyncro ) THEN 
                      IF ( kt == nn_bias_itwrt ) THEN
                         DO jk = 1, jpkm1
@@ -653 +653 @@
             END DO     
 
-            IF( lk_asminc .and. ln_trainc .and. .not.ln_bsyncro ) THEN   
-            ! if last outer loop (lk_asminc=true and ln_trainc=true). t/sbias_asm
+            IF( ln_asmiau .and. ln_trainc .and. .not.ln_bsyncro ) THEN   
+            ! if last outer loop (ln_asmiau=true and ln_trainc=true). t/sbias_asm
             ! is updated, only once (end of run) taking into account units.
                IF ( kt == nn_bias_itwrt ) THEN