New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5374 for branches – NEMO

Changeset 5374 for branches


Ignore:
Timestamp:
2015-06-08T12:57:52+02:00 (9 years ago)
Author:
cetlod
Message:

dev_r5204_CNRS_PISCES_dcy : minor bugfix

File:
1 edited

Legend:

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

    r5373 r5374  
    103103 
    104104         IF( ln_rsttr .AND.    &                     ! Restart: read in restart  file 
    105             iom_varid( numrtr, 'sbc_trc_b', ldstop = .FALSE. ) > 0 ) THEN 
     105            iom_varid( numrtr, 'sbc_'//ctrcnm(1)//'_b', ldstop = .FALSE. ) > 0 ) THEN 
    106106            IF(lwp) WRITE(numout,*) '          nittrc000-nn_dttrc surface tracer content forcing fields red in the restart file' 
    107107            zfact = 0.5_wp 
    108108            DO jn = 1, jptra 
    109                CALL iom_get( numror, jpdom_autoglo, 'sbc_trc_b', sbc_trc_b(:,:,jn) )   ! before tracer content sbc 
     109               CALL iom_get( numror, jpdom_autoglo, 'sbc_'//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_trc_b', sbc_trc_b(:,:,jn) ) 
     196            CALL iom_rstput( kt, nitrst, numrtw, 'sbc_'//ctrcnm(jn)//'_b', sbc_trc_b(:,:,jn) ) 
    197197         END DO 
    198198      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.