Changeset 9424 for branches/UKMO

Timestamp:

2018-03-23T09:57:45+01:00 (6 years ago)

Author:

andmirek

Message:

#1881 initialize multidimensional array to 0 for XIOS read in iom_get_123d

File:

• branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90 (modified) (3 diffs)

branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

@@ -1131 +1131 @@
           CALL iom_swap( TRIM(rxios_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)
@@ -1137 +1138 @@
              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)
@@ -1143 +1145 @@
              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)