Changeset 15700

Timestamp:

2022-02-15T18:41:29+01:00 (2 years ago)

Author:

edblockley

Message:

Fix to rheology convergence time-series diagnostics to ensure that all iterations on last time-step are output and that the time-axis only includes point from the current run cycle.
Back-porting from 4.0-HEAD (changeset:15518)

File:

• NEMO/branches/UKMO/NEMO_4.0.4_GO8_package/src/ICE/icedyn_rhg_evp.F90 (modified) (2 diffs)

NEMO/branches/UKMO/NEMO_4.0.4_GO8_package/src/ICE/icedyn_rhg_evp.F90

@@ -1006 +1006 @@
 
       ! time
-      it = ( kt - 1 ) * kitermax + kiter
+      it = ( kt - nit000 ) * kitermax + kiter
       
       ! convergence
@@ -1026 +1026 @@
          istatus = NF90_PUT_VAR( ncvgid, nvarid, (/zresm/), (/it/), (/1/) )
          ! close file
-         IF( kt == nitend - nn_fsbc + 1 )   istatus = NF90_CLOSE(ncvgid)
+         IF( kt == nitend - nn_fsbc + 1 .AND. kiter == kitermax )   istatus = NF90_CLOSE(ncvgid)
       ENDIF