Changeset 5378


Ignore:
Timestamp:
2015-06-08T17:03:24+02:00 (5 years ago)
Author:
cetlod
Message:

dev_r5204_CNRS_PISCES_dcy : bugfix to ensure restartability

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/TOP_SRC/TRP/trcsbc.F90

    r5375 r5378  
    107107            zfact = 0.5_wp 
    108108            DO jn = 1, jptra 
    109                CALL iom_get( numror, jpdom_autoglo, 'sbc_'//TRIM(ctrcnm(jn))//'_b', sbc_trc_b(:,:,jn) )   ! before tracer content sbc 
     109               CALL iom_get( numrtr, jpdom_autoglo, 'sbc_'//TRIM(ctrcnm(jn))//'_b', sbc_trc_b(:,:,jn) )   ! before tracer content sbc 
    110110            END DO 
    111111         ELSE                                         ! No restart or restart not found: Euler forward time stepping 
     
    194194         IF(lwp) WRITE(numout,*) '~~~~' 
    195195         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) ) 
    197197         END DO 
    198198      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.