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 12950 for NEMO/branches/2020/dev_12905_xios_restart/src/OCE/DOM/domvvl.F90 – NEMO

Ignore:
Timestamp:
2020-05-19T12:53:16+02:00 (4 years ago)
Author:
andmirek
Message:

Ticket #2462: new XIOS restart read/write interfaces

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_12905_xios_restart/src/OCE/DOM/domvvl.F90

    r12740 r12950  
    270270      ENDIF 
    271271      ! 
    272       IF(lwxios) THEN 
    273 ! define variables in restart file when writing with XIOS 
    274          CALL iom_set_rstw_var_active('e3t_b') 
    275          CALL iom_set_rstw_var_active('e3t_n') 
    276          !                                           ! ----------------------- ! 
    277          IF( ln_vvl_ztilde .OR. ln_vvl_layer ) THEN  ! z_tilde and layer cases ! 
    278             !                                        ! ----------------------- ! 
    279             CALL iom_set_rstw_var_active('tilde_e3t_b') 
    280             CALL iom_set_rstw_var_active('tilde_e3t_n') 
    281          END IF 
    282          !                                           ! -------------!     
    283          IF( ln_vvl_ztilde ) THEN                    ! z_tilde case ! 
    284             !                                        ! ------------ ! 
    285             CALL iom_set_rstw_var_active('hdiv_lf') 
    286          ENDIF 
    287          ! 
    288       ENDIF 
    289       ! 
    290272   END SUBROUTINE dom_vvl_zgr 
    291273 
     
    793775         IF( ln_rstart ) THEN                   !* Read the restart file 
    794776            CALL rst_read_open                  !  open the restart file if necessary 
     777            IF( lrxios ) CALL iom_swap( TRIM(crxios_context) ) 
    795778            CALL iom_get( numror, jpdom_autoglo, 'sshn'   , ssh(:,:,Kmm), ldxios = lrxios    ) 
    796779            ! 
     
    869852               ENDIF 
    870853            ENDIF 
     854            IF( lrxios ) CALL iom_swap( TRIM(cxios_context) ) 
    871855            ! 
    872856         ELSE                                   !* Initialize at "rest" 
Note: See TracChangeset for help on using the changeset viewer.