Changeset 10346 for NEMO/branches/UKMO/2018_NEMO4_beta_mirror_10037_Benchmark/src

Timestamp:

2018-11-21T11:42:41+01:00 (5 years ago)

Author:

andmirek

Message:

iom for intel compiler

File:

• NEMO/branches/UKMO/2018_NEMO4_beta_mirror_10037_Benchmark/src/OCE/IOM/iom.F90 (modified) (4 diffs)

NEMO/branches/UKMO/2018_NEMO4_beta_mirror_10037_Benchmark/src/OCE/IOM/iom.F90

@@ -1098 +1098 @@
       idvar = iom_varid( kiomid, cdvar ) 
       idom = kdom
+      ! set output to 0
+      IF( PRESENT(pv_r3d) ) pv_r3d(:, :, :) = 0.
+      IF( PRESENT(pv_r2d) ) pv_r2d(:, :)    = 0.
+      IF( PRESENT(pv_r1d) ) pv_r1d(:)       = 0.
       !
       IF(.NOT.llxios) THEN
@@ -1332 +1336 @@
          CALL iom_swap( TRIM(crxios_context) ) 
          IF( PRESENT(pv_r3d) ) THEN
-            pv_r3d(:, :, :) = 0.
             if(lwp) write(numout,*) 'XIOS RST READ (3D): ',trim(cdvar)
             CALL xios_recv_field( trim(cdvar), pv_r3d)
@@ -1339 +1342 @@
             ENDIF
          ELSEIF( PRESENT(pv_r2d) ) THEN
-            pv_r2d(:, :) = 0.
             if(lwp) write(numout,*) 'XIOS RST READ (2D): ', trim(cdvar)
             CALL xios_recv_field( trim(cdvar), pv_r2d)
@@ -1346 +1348 @@
             ENDIF
          ELSEIF( PRESENT(pv_r1d) ) THEN
-            pv_r1d(:) = 0.
             if(lwp) write(numout,*) 'XIOS RST READ (1D): ', trim(cdvar)
             CALL xios_recv_field( trim(cdvar), pv_r1d)