Changeset 11930 for NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/tests/STATION_ASF/MY_SRC/step_c1d.F90

Timestamp:

2019-11-19T17:41:22+01:00 (4 years ago)

Author:

laurent

Message:

New functional "stp_ctl" for STATION_ASF, test-case launch script and python diagnostics...

File:

• NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/tests/STATION_ASF/MY_SRC/step_c1d.F90 (modified) (2 diffs)

NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/tests/STATION_ASF/MY_SRC/step_c1d.F90

@@ -67 +67 @@
       ! Control
       !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
-      !LOLO:                       
-                            ! LOLO: should write a stp_ctl, who checks on flux realism (current SAS version checks ice fields...)
-                            ! CALL stp_ctl( kstp, indic )
-      !IF( indic < 0  )  THEN
-      !                       CALL ctl_stop( 'step: indic < 0' )
-      !                       CALL dia_wri_state( 'output.abort' )
-      !ENDIF
-      !LOLO.
+                             CALL stp_ctl( kstp, indic )
+      IF( indic < 0  )  THEN
+                             CALL ctl_stop( 'step: indic < 0' )
+                             CALL dia_wri_state( 'output.abort' )
+      ENDIF
                              
       IF( kstp == nit000   ) CALL iom_close( numror )     ! close input  ocean restart file
 
-      !LOLO: from C1D:
+      !#LB: from C1D:
       IF( lrst_oce       )   CALL rst_write( kstp )        ! write output ocean restart file
       !
@@ -85 +82 @@
 #endif
 
-      !LOLO: from SAS"
+      !#LB: from SAS"
 !#if defined key_iomput
 !      IF( kstp == nitrst ) THEN