Changeset 3594 for branches/2012/dev_r3452_UKMO9_RESTART/NEMOGCM/NEMO/OPA_SRC/step.F90

Timestamp:

2012-11-19T13:28:55+01:00 (11 years ago)

Author:

rfurner

Message:

code not tested through SETTEE, builds and runs, but has not been thoroughly tested, so will not be included in 2012 merge, however submitted back to keep record of work done for 2013 developments

File:

• branches/2012/dev_r3452_UKMO9_RESTART/NEMOGCM/NEMO/OPA_SRC/step.F90 (modified) (1 diff)

branches/2012/dev_r3452_UKMO9_RESTART/NEMOGCM/NEMO/OPA_SRC/step.F90

@@ -245 +245 @@
                                CALL dia_wri_state( 'output.abort', kstp )
       ENDIF
-      IF( kstp == nit000   )   CALL iom_close( numror )     ! close input  ocean restart file
-      IF( lrst_oce         )   CALL rst_write    ( kstp )   ! write output ocean restart file
-      IF( lk_obc           )   CALL obc_rst_write( kstp )   ! write open boundary restart file
+      IF( kstp == nit000   )      CALL iom_close( numror )     ! close input  ocean restart file
+      IF( lrst_oce         )      CALL rst_write    ( kstp )   ! write output ocean restart file
+      IF( lrst_oce .and. lk_obc ) CALL obc_rst_write( kstp )   ! write open boundary restart file
 
       !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>