Ignore:
Timestamp:
2020-05-19T12:53:16+02:00 (5 months 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/SBC/sbcssm.F90

    r12377 r12950  
    205205         IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~ ' 
    206206         ! 
     207         IF( lrxios ) CALL iom_swap( TRIM(crxios_context) ) 
    207208         IF( ln_rstart .AND. iom_varid( numror, 'nn_fsbc', ldstop = .FALSE. ) > 0 ) THEN 
    208209            l_ssm_mean = .TRUE. 
     
    235236            ENDIF 
    236237         ENDIF 
     238         IF( lrxios ) CALL iom_swap( TRIM(cxios_context) ) 
    237239      ENDIF 
    238240      ! 
     
    254256      IF( .NOT. ln_traqsr )   fraqsr_1lev(:,:) = 1._wp   ! default definition: qsr 100% in the fisrt level  
    255257      ! 
    256       IF( lwxios.AND.nn_fsbc > 1 ) THEN 
    257          CALL iom_set_rstw_var_active('nn_fsbc') 
    258          CALL iom_set_rstw_var_active('ssu_m') 
    259          CALL iom_set_rstw_var_active('ssv_m') 
    260          CALL iom_set_rstw_var_active('sst_m') 
    261          CALL iom_set_rstw_var_active('sss_m') 
    262          CALL iom_set_rstw_var_active('ssh_m') 
    263          CALL iom_set_rstw_var_active('e3t_m') 
    264          CALL iom_set_rstw_var_active('frq_m') 
    265       ENDIF 
    266  
    267258   END SUBROUTINE sbc_ssm_init 
    268259 
Note: See TracChangeset for help on using the changeset viewer.