Changeset 15739

Timestamp:

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

Author:

jpalmier

Message:

trc var in output.abort -- fix 1

File:

• NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals_GC5/src/TOP/trcwri.F90 (modified) (3 diffs)

NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals_GC5/src/TOP/trcwri.F90

@@ -28 +28 @@
 
    PUBLIC trc_wri      
+   PUBLIC trc_wri_state
 
 CONTAINS
@@ -77 +78 @@
    END SUBROUTINE trc_wri
 
+   SUBROUTINE trc_wri_state( kid )
+      !!---------------------------------------------------------------------
+      !!                     ***  ROUTINE trc_wri_state  ***
+      !! 
+      !! ** Purpose :   create a NetCDF file named cdfile_name which contains 
+      !!      the instantaneous ice state and forcing fields for passive tracer model
+      !!        Used to find errors in the initial state or save the last
+      !!      ocean state in case of abnormal end of a simulation
+      !!
+      !!---------------------------------------------------------------------
+      INTEGER, INTENT( in ) ::   kid 
+      INTEGER :: jn
+      CHARACTER (len=20)   :: cltra
+      
+      DO jn = 1, jptra
+         cltra = trim(ctrcnm(jn))
+         CALL iom_rstput( 0, 0, kid, cltra, trn(:,:,:,jn) )
+      END DO
+      
+   END SUBROUTINE trc_wri_state   
+   
 #else
    !!----------------------------------------------------------------------
@@ -86 +108 @@
    INTEGER, INTENT(in) :: kt
    END SUBROUTINE trc_wri
+  !!
+   SUBROUTINE trc_wri_state( kid )
+      INTEGER, INTENT( in ) ::   kid 
+   END SUBROUTINE trc_wri_state
+   !!    
 #endif