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/sbcmod.F90

    r12489 r12950  
    366366      IF( ln_wave     )   CALL sbc_wave_init                     ! surface wave initialisation 
    367367      ! 
    368       IF( lwxios ) THEN 
    369          CALL iom_set_rstw_var_active('utau_b') 
    370          CALL iom_set_rstw_var_active('vtau_b') 
    371          CALL iom_set_rstw_var_active('qns_b') 
    372          ! The 3D heat content due to qsr forcing is treated in traqsr 
    373          ! CALL iom_set_rstw_var_active('qsr_b') 
    374          CALL iom_set_rstw_var_active('emp_b') 
    375          CALL iom_set_rstw_var_active('sfx_b') 
    376       ENDIF 
    377  
    378368   END SUBROUTINE sbc_init 
    379369 
     
    514504      IF( kt == nit000 ) THEN                          !   set the forcing field at nit000 - 1    ! 
    515505         !                                             ! ---------------------------------------- ! 
     506         IF( lrxios ) CALL iom_swap( TRIM(crxios_context) ) 
    516507         IF( ln_rstart .AND.    &                               !* Restart: read in restart file 
    517508            & iom_varid( numror, 'utau_b', ldstop = .FALSE. ) > 0 ) THEN 
     
    537528            sfx_b (:,:) = sfx (:,:) 
    538529         ENDIF 
     530         IF( lrxios ) CALL iom_swap( TRIM(cxios_context) ) 
    539531      ENDIF 
    540532      !                                                ! ---------------------------------------- ! 
Note: See TracChangeset for help on using the changeset viewer.