Changeset 12957 for NEMO/branches/2020/dev_12905_xios_restart/src/ICE/iceupdate.F90

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:

• NEMO/branches/2020/dev_12905_xios_restart/src/ICE/iceupdate.F90 (modified) (2 diffs)

NEMO/branches/2020/dev_12905_xios_restart/src/ICE/iceupdate.F90

@@ -417 +417 @@
             !
             IF( id1 > 0 ) THEN                       ! fields exist
-               CALL iom_get( numrir, jpdom_autoglo, 'snwice_mass'  , snwice_mass   )
-               CALL iom_get( numrir, jpdom_autoglo, 'snwice_mass_b', snwice_mass_b )
+               IF(lrxios) CALL iom_swap(crixios_context) 
+               CALL iom_get( numrir, jpdom_autoglo, 'snwice_mass'  , snwice_mass,   ldxios = lrxios )
+               CALL iom_get( numrir, jpdom_autoglo, 'snwice_mass_b', snwice_mass_b, ldxios = lrxios )
+               IF(lrxios) CALL iom_swap(cxios_context)
             ELSE                                     ! start from rest
                IF(lwp) WRITE(numout,*) '   ==>>   previous run without snow-ice mass output then set it'
@@ -435 +437 @@
          iter = kt + nn_fsbc - 1             ! ice restarts are written at kt == nitrst - nn_fsbc + 1
          !
-         CALL iom_rstput( iter, nitrst, numriw, 'snwice_mass'  , snwice_mass   )
-         CALL iom_rstput( iter, nitrst, numriw, 'snwice_mass_b', snwice_mass_b )
+         IF( lwxios ) CALL iom_swap(      cwixios_context         )
+         CALL iom_rstput( iter, nitrst, numriw, 'snwice_mass'  , snwice_mass,   ldxios = lwxios )
+         CALL iom_rstput( iter, nitrst, numriw, 'snwice_mass_b', snwice_mass_b, ldxios = lwxios )
+         IF( lwxios ) CALL iom_swap(      cxios_context         )
          !
       ENDIF