Changeset 5378 for branches/2015/dev_r5204_CNRS_PISCES_dcy
- Timestamp:
- 2015-06-08T17:03:24+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/TOP_SRC/TRP/trcsbc.F90
r5375 r5378 107 107 zfact = 0.5_wp 108 108 DO jn = 1, jptra 109 CALL iom_get( numr or, jpdom_autoglo, 'sbc_'//TRIM(ctrcnm(jn))//'_b', sbc_trc_b(:,:,jn) ) ! before tracer content sbc109 CALL iom_get( numrtr, jpdom_autoglo, 'sbc_'//TRIM(ctrcnm(jn))//'_b', sbc_trc_b(:,:,jn) ) ! before tracer content sbc 110 110 END DO 111 111 ELSE ! No restart or restart not found: Euler forward time stepping … … 194 194 IF(lwp) WRITE(numout,*) '~~~~' 195 195 DO jn = 1, jptra 196 CALL iom_rstput( kt, nitrst, numrtw, 'sbc_'//TRIM(ctrcnm(jn))//'_b', sbc_trc _b(:,:,jn) )196 CALL iom_rstput( kt, nitrst, numrtw, 'sbc_'//TRIM(ctrcnm(jn))//'_b', sbc_trc(:,:,jn) ) 197 197 END DO 198 198 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.