- Timestamp:
- 2020-05-19T12:53:16+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_12905_xios_restart/src/OCE/SBC/sbcrnf.F90
r12489 r12950 156 156 IF( kt == nit000 ) THEN ! set the forcing field at nit000 - 1 ! 157 157 ! ! ---------------------------------------- ! 158 IF( lrxios ) CALL iom_swap( TRIM(crxios_context) ) 158 159 IF( ln_rstart .AND. & !* Restart: read in restart file 159 160 & iom_varid( numror, 'rnf_b', ldstop = .FALSE. ) > 0 ) THEN … … 167 168 rnf_tsc_b(:,:,:) = rnf_tsc(:,:,:) 168 169 ENDIF 170 IF( lrxios ) CALL iom_swap( TRIM(cxios_context) ) 169 171 ENDIF 170 172 ! ! ---------------------------------------- ! … … 479 481 ENDIF 480 482 ! 481 IF( lwxios ) THEN482 CALL iom_set_rstw_var_active('rnf_b')483 CALL iom_set_rstw_var_active('rnf_hc_b')484 CALL iom_set_rstw_var_active('rnf_sc_b')485 ENDIF486 487 483 END SUBROUTINE sbc_rnf_init 488 484
Note: See TracChangeset
for help on using the changeset viewer.