Changeset 12961 for NEMO/branches/2020/dev_12905_xios_restart/src/TOP/CFC
- Timestamp:
- 2020-05-22T13:51:12+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_12905_xios_restart/src/TOP/CFC/trcsms_cfc.F90
r12489 r12961 178 178 IF(lwp) WRITE(numout,*) '~~~~' 179 179 jl = 0 180 IF( lwxios ) CALL iom_swap( cwtxios_context ) 180 181 DO jn = jp_cfc0, jp_cfc1 181 182 jl = jl + 1 182 CALL iom_rstput( kt, nitrst, numrtw, 'qint_'//ctrcnm(jn), qint_cfc(:,:,jl) )183 CALL iom_rstput( kt, nitrst, numrtw, 'qint_'//ctrcnm(jn), qint_cfc(:,:,jl), ldxios = lwxios ) 183 184 END DO 185 IF( lwxios ) CALL iom_swap( cxios_context ) 184 186 ENDIF 185 187 ! … … 295 297 ! 296 298 jl = 0 299 IF(lrxios) CALL iom_swap(crtxios_context) 297 300 DO jn = jp_cfc0, jp_cfc1 298 301 jl = jl + 1 299 CALL iom_get( numrtr, jpdom_autoglo, 'qint_'//ctrcnm(jn), qint_cfc(:,:,jl) )302 CALL iom_get( numrtr, jpdom_autoglo, 'qint_'//ctrcnm(jn), qint_cfc(:,:,jl), ldxios = lrxios ) 300 303 END DO 304 IF(lrxios) CALL iom_swap(cxios_context) 301 305 ENDIF 302 306 IF(lwp) WRITE(numout,*)
Note: See TracChangeset
for help on using the changeset viewer.