Changeset 5388 for branches/2014/dev_r5134_UKMO4_CF_compliance/NEMOGCM/NEMO/OPA_SRC/C1D/step_c1d.F90

Timestamp:

2015-06-09T18:52:06+02:00 (9 years ago)

Author:

hadcv

Message:

Add fix for XIOS initialization in server mode for non-MPP NEMO (and include a related XIOS finalize fix for C1D).

File:

• branches/2014/dev_r5134_UKMO4_CF_compliance/NEMOGCM/NEMO/OPA_SRC/C1D/step_c1d.F90 (modified) (1 diff)

branches/2014/dev_r5134_UKMO4_CF_compliance/NEMOGCM/NEMO/OPA_SRC/C1D/step_c1d.F90

@@ -154 +154 @@
       IF( lrst_oce       )   CALL rst_write( kstp )        ! write output ocean restart file
       !
+#if defined key_iomput
+      IF( kstp == nitend .OR. indic < 0 )   CALL xios_context_finalize()   ! needed for XIOS 
+      ! 
+#endif
    END SUBROUTINE stp_c1d