Changeset 9489

Timestamp:

2018-04-20T17:24:29+02:00 (5 years ago)

Author:

andmirek

Message:

Fix restart reading with XIOS when land points are suppressed

File:

• branches/2017/dev_r8600_xios_read/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90 (modified) (3 diffs)

branches/2017/dev_r8600_xios_read/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

@@ -1125 +1125 @@
           CALL iom_swap( TRIM(crxios_context) ) 
           IF( PRESENT(pv_r3d) ) THEN
+             pv_r3d(:, :, :) = 0._wp
              if(lwp) write(numout,*) 'XIOS RST READ (3D): ',trim(cdvar)
              CALL xios_recv_field( trim(cdvar), pv_r3d)
@@ -1131 +1132 @@
              ENDIF
           ELSEIF( PRESENT(pv_r2d) ) THEN
+             pv_r2d(:, :) = 0._wp 
              if(lwp) write(numout,*) 'XIOS RST READ (2D): ', trim(cdvar)
              CALL xios_recv_field( trim(cdvar), pv_r2d)
@@ -1137 +1139 @@
              ENDIF
           ELSEIF( PRESENT(pv_r1d) ) THEN
+             pv_r1d(:) = 0._wp
              if(lwp) write(numout,*) 'XIOS RST READ (1D): ', trim(cdvar)
              CALL xios_recv_field( trim(cdvar), pv_r1d)