Changeset 11355 for NEMO/branches/UKMO/NEMO_4.0_GO8_coupled_iodef/src/OCE/stpctl.F90

Timestamp:

2019-07-26T11:32:13+02:00 (5 years ago)

Author:

dancopsey

Message:

Add lots of print statements printing out values of files throughout the ocean_ice timestep.. New output will be in files crash_stats_419.out and crash_stats_68.out.

File:

• NEMO/branches/UKMO/NEMO_4.0_GO8_coupled_iodef/src/OCE/stpctl.F90 (modified) (2 diffs)

NEMO/branches/UKMO/NEMO_4.0_GO8_coupled_iodef/src/OCE/stpctl.F90

@@ -108 +108 @@
          REWIND( numstp )
       ENDIF
+
+      IF(narea == 419) THEN
+         WRITE(9419,*) 'max sshn stpctl before crash = ',MAXVAL(  ABS( sshn(:,:) )  )
+      ENDIF
       !
       !                                   !==  test of extrema  ==!
@@ -174 +178 @@
          
          CALL dia_wri_state( 'output.abort' )     ! create an output.abort file
+
+         CLOSE(unit=9419)
+         CLOSE(unit=968)
          
          IF( .NOT. ln_ctl ) THEN