Changeset 15361 for NEMO/branches

Timestamp:

2021-10-13T17:38:35+02:00 (3 years ago)

Author:

jpalmier

Message:

Add passive tracers in output.abort if key_top active

Location:

NEMO/branches/NERC/dev_r4.0.5_NERC/src

Files:

• OCE/DIA/diawri.F90 (modified) (1 diff)
• TOP/trcwri.F90 (modified) (3 diffs)

NEMO/branches/NERC/dev_r4.0.5_NERC/src/OCE/DIA/diawri.F90

@@ -937 +937 @@
 #endif
       !
+#if defined key_top
+      ! Add passive tracers to abort file
+      CALL trc_wri_state( inum )
+#endif
+      !
       CALL iom_close( inum )
       ! 

NEMO/branches/NERC/dev_r4.0.5_NERC/src/TOP/trcwri.F90

@@ -27 +27 @@
 
    PUBLIC trc_wri      
-
+   PUBLIC trc_wri_state
+   
 CONTAINS
 
@@ -75 +76 @@
    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
+   
 #else
    !!----------------------------------------------------------------------
@@ -84 +106 @@
    INTEGER, INTENT(in) :: kt
    END SUBROUTINE trc_wri
+   !!
+   SUBROUTINE trc_wri_state( kid )
+      INTEGER, INTENT( in ) ::   kid 
+   END SUBROUTINE trc_wri
+   !! 
 #endif