- Timestamp:
- 2018-03-23T09:57:45+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r8293 r9424 1131 1131 CALL iom_swap( TRIM(rxios_context) ) 1132 1132 IF( PRESENT(pv_r3d) ) THEN 1133 pv_r3d(:,:,:) = 0._wp 1133 1134 if(lwp) write(numout,*) 'XIOS RST READ (3D): ',trim(cdvar) 1134 1135 CALL xios_recv_field( trim(cdvar), pv_r3d) … … 1137 1138 ENDIF 1138 1139 ELSEIF( PRESENT(pv_r2d) ) THEN 1140 pv_r2d(:,:) = 0._wp 1139 1141 if(lwp) write(numout,*) 'XIOS RST READ (2D): ', trim(cdvar) 1140 1142 CALL xios_recv_field( trim(cdvar), pv_r2d) … … 1143 1145 ENDIF 1144 1146 ELSEIF( PRESENT(pv_r1d) ) THEN 1147 pv_r1d(:) = 0._wp 1145 1148 if(lwp) write(numout,*) 'XIOS RST READ (1D): ', trim(cdvar) 1146 1149 CALL xios_recv_field( trim(cdvar), pv_r1d)
Note: See TracChangeset
for help on using the changeset viewer.