- Timestamp:
- 2017-05-26T12:09:41+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r7573_xios_write/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90
r6793 r8079 33 33 USE timing ! Timing 34 34 USE eosbn2 35 USE iom_def, ONLY : lwxios 35 36 36 37 IMPLICIT NONE … … 209 210 & 'at it= ', kt,' date= ', ndastp 210 211 IF(lwp) WRITE(numout,*) '~~~~' 211 CALL iom_rstput( kt, nitrst, numrow, 'sbc_hc_b', sbc_tsc(:,:,jp_tem) ) 212 CALL iom_rstput( kt, nitrst, numrow, 'sbc_sc_b', sbc_tsc(:,:,jp_sal) ) 212 IF( lwxios ) CALL iom_swap( wxios_context ) 213 CALL iom_rstput( kt, nitrst, numrow, 'sbc_hc_b', sbc_tsc(:,:,jp_tem), lxios = lwxios ) 214 CALL iom_rstput( kt, nitrst, numrow, 'sbc_sc_b', sbc_tsc(:,:,jp_sal), lxios = lwxios ) 215 IF( lwxios ) CALL iom_swap( cxios_context ) 213 216 ENDIF 214 217 ! … … 253 256 & 'at it= ', kt,' date= ', ndastp 254 257 IF(lwp) WRITE(numout,*) '~~~~' 255 CALL iom_rstput( kt, nitrst, numrow, 'fwf_isf_b', fwfisf(:,:) ) 256 CALL iom_rstput( kt, nitrst, numrow, 'isf_hc_b' , risf_tsc(:,:,jp_tem) ) 257 CALL iom_rstput( kt, nitrst, numrow, 'isf_sc_b' , risf_tsc(:,:,jp_sal) ) 258 IF( lwxios ) CALL iom_swap( wxios_context ) 259 CALL iom_rstput( kt, nitrst, numrow, 'fwf_isf_b', fwfisf(:,:) , lxios = lwxios) 260 CALL iom_rstput( kt, nitrst, numrow, 'isf_hc_b' , risf_tsc(:,:,jp_tem), lxios = lwxios) 261 CALL iom_rstput( kt, nitrst, numrow, 'isf_sc_b' , risf_tsc(:,:,jp_sal), lxios = lwxios) 262 IF( lwxios ) CALL iom_swap( cxios_context ) 258 263 ENDIF 259 264 END IF
Note: See TracChangeset
for help on using the changeset viewer.