- 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/TRP/trcsbc.F90
r12489 r12961 86 86 IF(lwp) WRITE(numout,*) ' nittrc000-1 surface tracer content forcing fields read in the restart file' 87 87 zfact = 0.5_wp 88 IF(lrxios) CALL iom_swap(crtxios_context) 88 89 DO jn = 1, jptra 89 CALL iom_get( numrtr, jpdom_autoglo, 'sbc_'//TRIM(ctrcnm(jn))//'_b', sbc_trc_b(:,:,jn) ) ! before tracer content sbc90 CALL iom_get( numrtr, jpdom_autoglo, 'sbc_'//TRIM(ctrcnm(jn))//'_b', sbc_trc_b(:,:,jn), ldxios = lrxios ) ! before tracer content sbc 90 91 END DO 92 IF(lrxios) CALL iom_swap(cxios_context) 91 93 ELSE ! No restart or restart not found: Euler forward time stepping 92 94 zfact = 1._wp … … 180 182 & 'at it= ', kt,' date= ', ndastp 181 183 IF(lwp) WRITE(numout,*) '~~~~' 182 DO jn = 1, jptra 183 CALL iom_rstput( kt, nitrst, numrtw, 'sbc_'//TRIM(ctrcnm(jn))//'_b', sbc_trc(:,:,jn) ) 184 END DO 184 IF( lwxios ) CALL iom_swap( cwtxios_context ) 185 DO jn = 1, jptra 186 CALL iom_rstput( kt, nitrst, numrtw, 'sbc_'//TRIM(ctrcnm(jn))//'_b', sbc_trc(:,:,jn), ldxios = lwxios ) 187 END DO 188 IF( lwxios ) CALL iom_swap( cxios_context ) 185 189 ENDIF 186 190 !
Note: See TracChangeset
for help on using the changeset viewer.