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 12957 for NEMO/branches/2020/dev_12905_xios_restart/src/ICE/icedyn_rhg_evp.F90 – NEMO

Ignore:
Timestamp:
2020-05-20T18:53:27+02:00 (4 years ago)
Author:
andmirek
Message:

Ticket #2462: write/read SI3 restart with XIOS (has debug print statements)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_12905_xios_restart/src/ICE/icedyn_rhg_evp.F90

    r12489 r12957  
    839839         IF( ln_rstart ) THEN                   !* Read the restart file 
    840840            ! 
     841            IF(lrxios) CALL iom_swap(crixios_context) 
    841842            id1 = iom_varid( numrir, 'stress1_i' , ldstop = .FALSE. ) 
    842843            id2 = iom_varid( numrir, 'stress2_i' , ldstop = .FALSE. ) 
     
    844845            ! 
    845846            IF( MIN( id1, id2, id3 ) > 0 ) THEN      ! fields exist 
    846                CALL iom_get( numrir, jpdom_autoglo, 'stress1_i' , stress1_i  ) 
    847                CALL iom_get( numrir, jpdom_autoglo, 'stress2_i' , stress2_i  ) 
    848                CALL iom_get( numrir, jpdom_autoglo, 'stress12_i', stress12_i ) 
     847               CALL iom_get( numrir, jpdom_autoglo, 'stress1_i' , stress1_i,  ldxios = lrxios ) 
     848               CALL iom_get( numrir, jpdom_autoglo, 'stress2_i' , stress2_i,  ldxios = lrxios ) 
     849               CALL iom_get( numrir, jpdom_autoglo, 'stress12_i', stress12_i, ldxios = lrxios ) 
    849850            ELSE                                     ! start rheology from rest 
    850851               IF(lwp) WRITE(numout,*) 
     
    854855               stress12_i(:,:) = 0._wp 
    855856            ENDIF 
     857            IF(lrxios) CALL iom_swap(cxios_context) 
    856858         ELSE                                   !* Start from rest 
    857859            IF(lwp) WRITE(numout,*) 
     
    867869         iter = kt + nn_fsbc - 1             ! ice restarts are written at kt == nitrst - nn_fsbc + 1 
    868870         ! 
    869          CALL iom_rstput( iter, nitrst, numriw, 'stress1_i' , stress1_i  ) 
    870          CALL iom_rstput( iter, nitrst, numriw, 'stress2_i' , stress2_i  ) 
    871          CALL iom_rstput( iter, nitrst, numriw, 'stress12_i', stress12_i ) 
     871         IF( lwxios ) CALL iom_swap(      cwixios_context         ) 
     872         CALL iom_rstput( iter, nitrst, numriw, 'stress1_i' , stress1_i,  ldxios = lwxios ) 
     873         CALL iom_rstput( iter, nitrst, numriw, 'stress2_i' , stress2_i,  ldxios = lwxios ) 
     874         CALL iom_rstput( iter, nitrst, numriw, 'stress12_i', stress12_i, ldxios = lwxios ) 
     875         IF( lwxios ) CALL iom_swap(      cxios_context         ) 
    872876         ! 
    873877      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.