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 12961 for NEMO/branches/2020/dev_12905_xios_restart/src/TOP/TRP/trcsbc.F90 – NEMO

Ignore:
Timestamp:
2020-05-22T13:51:12+02:00 (4 years ago)
Author:
andmirek
Message:

Ticket #2462: read/write restart with XIOS in TOP (with debug print statements)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_12905_xios_restart/src/TOP/TRP/trcsbc.F90

    r12489 r12961  
    8686            IF(lwp) WRITE(numout,*) '          nittrc000-1 surface tracer content forcing fields read in the restart file' 
    8787            zfact = 0.5_wp 
     88            IF(lrxios) CALL iom_swap(crtxios_context) 
    8889            DO jn = 1, jptra 
    89                CALL iom_get( numrtr, jpdom_autoglo, 'sbc_'//TRIM(ctrcnm(jn))//'_b', sbc_trc_b(:,:,jn) )   ! before tracer content sbc 
     90               CALL iom_get( numrtr, jpdom_autoglo, 'sbc_'//TRIM(ctrcnm(jn))//'_b', sbc_trc_b(:,:,jn), ldxios = lrxios )   ! before tracer content sbc 
    9091            END DO 
     92            IF(lrxios) CALL iom_swap(cxios_context) 
    9193         ELSE                                         ! No restart or restart not found: Euler forward time stepping 
    9294           zfact = 1._wp 
     
    180182            &                    'at it= ', kt,' date= ', ndastp 
    181183         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         ) 
    185189      ENDIF 
    186190      ! 
Note: See TracChangeset for help on using the changeset viewer.