Changeset 15738

Timestamp:

2022-03-07T12:12:26+01:00 (2 years ago)

Author:

jpalmier

Message:

enable trc vars in output.abort

File:

• NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals_GC5/src/OCE/DIA/diawri.F90 (modified) (3 diffs)

NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals_GC5/src/OCE/DIA/diawri.F90

@@ -53 +53 @@
    USE ice 
    USE icewri 
+#endif
+#if defined key_top
+   USE trcwri,  ONLY: trc_wri_state ! add trc tracers in ocean.abort 
 #endif
    USE lib_mpp         ! MPP library
@@ -961 +964 @@
          CALL iom_rstput( 0, 0, inum, 'sdvecrtz', wsd            )    ! now StokesDrift k-velocity
       ENDIF
+      !
 #if defined key_si3
       IF( nn_ice == 2 ) THEN   ! condition needed in case agrif + ice-model but no-ice in child grid
@@ -967 +971 @@
 #endif
       !
+#if defined key_top
+      ! Add passive tracers to abort file
+      CALL trc_wri_state( inum )
+#endif
+      !
       CALL iom_close( inum )
       !