- Timestamp:
- 2017-11-23T13:02:23+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r8770 r8793 58 58 59 59 USE diurnal_bulk, ONLY: ln_diurnal_only ! diurnal SST diagnostic 60 USE iom_def, ONLY : l xios_read, lwxios60 USE iom_def, ONLY : lrxios, lwxios 61 61 62 62 IMPLICIT NONE … … 468 468 & iom_varid( numror, 'utau_b', ldstop = .FALSE. ) > 0 ) THEN 469 469 IF(lwp) WRITE(numout,*) ' nit000-1 surface forcing fields red in the restart file' 470 CALL iom_get( numror, jpdom_autoglo, 'utau_b', utau_b, ldxios = l xios_read) ! before i-stress (U-point)471 CALL iom_get( numror, jpdom_autoglo, 'vtau_b', vtau_b, ldxios = l xios_read) ! before j-stress (V-point)472 CALL iom_get( numror, jpdom_autoglo, 'qns_b' , qns_b, ldxios = l xios_read) ! before non solar heat flux (T-point)470 CALL iom_get( numror, jpdom_autoglo, 'utau_b', utau_b, ldxios = lrxios ) ! before i-stress (U-point) 471 CALL iom_get( numror, jpdom_autoglo, 'vtau_b', vtau_b, ldxios = lrxios ) ! before j-stress (V-point) 472 CALL iom_get( numror, jpdom_autoglo, 'qns_b' , qns_b, ldxios = lrxios ) ! before non solar heat flux (T-point) 473 473 ! The 3D heat content due to qsr forcing is treated in traqsr 474 ! CALL iom_get( numror, jpdom_autoglo, 'qsr_b' , qsr_b, ldxios = l xios_read) ! before solar heat flux (T-point)475 CALL iom_get( numror, jpdom_autoglo, 'emp_b', emp_b, ldxios = l xios_read) ! before freshwater flux (T-point)474 ! CALL iom_get( numror, jpdom_autoglo, 'qsr_b' , qsr_b, ldxios = lrxios ) ! before solar heat flux (T-point) 475 CALL iom_get( numror, jpdom_autoglo, 'emp_b', emp_b, ldxios = lrxios ) ! before freshwater flux (T-point) 476 476 ! To ensure restart capability with 3.3x/3.4 restart files !! to be removed in v3.6 477 477 IF( iom_varid( numror, 'sfx_b', ldstop = .FALSE. ) > 0 ) THEN 478 CALL iom_get( numror, jpdom_autoglo, 'sfx_b', sfx_b, ldxios = l xios_read) ! before salt flux (T-point)478 CALL iom_get( numror, jpdom_autoglo, 'sfx_b', sfx_b, ldxios = lrxios ) ! before salt flux (T-point) 479 479 ELSE 480 480 sfx_b (:,:) = sfx(:,:)
Note: See TracChangeset
for help on using the changeset viewer.