- Timestamp:
- 2017-12-06T16:16:55+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_METO_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r8910 r8924 56 56 USE lib_mpp ! MPP library 57 57 USE timing ! Timing 58 58 59 USE diurnal_bulk, ONLY: ln_diurnal_only ! diurnal SST diagnostic 59 60 … … 355 356 IF( ln_wave ) CALL sbc_wave_init ! surface wave initialisation 356 357 ! 357 IF( lwxios ) THEN358 CALL iom_set_rstw_var_active('utau_b')359 CALL iom_set_rstw_var_active('vtau_b')360 CALL iom_set_rstw_var_active('qns_b')361 ! The 3D heat content due to qsr forcing is treated in traqsr362 ! CALL iom_set_rstw_var_active('qsr_b')363 CALL iom_set_rstw_var_active('emp_b')364 CALL iom_set_rstw_var_active('sfx_b')365 ENDIF366 367 358 END SUBROUTINE sbc_init 368 359 … … 471 462 & iom_varid( numror, 'utau_b', ldstop = .FALSE. ) > 0 ) THEN 472 463 IF(lwp) WRITE(numout,*) ' nit000-1 surface forcing fields red in the restart file' 473 CALL iom_get( numror, jpdom_autoglo, 'utau_b', utau_b , ldxios = lrxios) ! before i-stress (U-point)474 CALL iom_get( numror, jpdom_autoglo, 'vtau_b', vtau_b , ldxios = lrxios) ! before j-stress (V-point)475 CALL iom_get( numror, jpdom_autoglo, 'qns_b' , qns_b , ldxios = lrxios) ! before non solar heat flux (T-point)464 CALL iom_get( numror, jpdom_autoglo, 'utau_b', utau_b ) ! before i-stress (U-point) 465 CALL iom_get( numror, jpdom_autoglo, 'vtau_b', vtau_b ) ! before j-stress (V-point) 466 CALL iom_get( numror, jpdom_autoglo, 'qns_b' , qns_b ) ! before non solar heat flux (T-point) 476 467 ! The 3D heat content due to qsr forcing is treated in traqsr 477 ! CALL iom_get( numror, jpdom_autoglo, 'qsr_b' , qsr_b , ldxios = lrxios) ! before solar heat flux (T-point)478 CALL iom_get( numror, jpdom_autoglo, 'emp_b', emp_b , ldxios = lrxios) ! before freshwater flux (T-point)468 ! CALL iom_get( numror, jpdom_autoglo, 'qsr_b' , qsr_b ) ! before solar heat flux (T-point) 469 CALL iom_get( numror, jpdom_autoglo, 'emp_b', emp_b ) ! before freshwater flux (T-point) 479 470 ! To ensure restart capability with 3.3x/3.4 restart files !! to be removed in v3.6 480 471 IF( iom_varid( numror, 'sfx_b', ldstop = .FALSE. ) > 0 ) THEN 481 CALL iom_get( numror, jpdom_autoglo, 'sfx_b', sfx_b , ldxios = lrxios) ! before salt flux (T-point)472 CALL iom_get( numror, jpdom_autoglo, 'sfx_b', sfx_b ) ! before salt flux (T-point) 482 473 ELSE 483 474 sfx_b (:,:) = sfx(:,:) … … 499 490 & 'at it= ', kt,' date= ', ndastp 500 491 IF(lwp) WRITE(numout,*) '~~~~' 501 IF( lwxios ) CALL iom_swap( cwxios_context ) 502 CALL iom_rstput( kt, nitrst, numrow, 'utau_b' , utau, ldxios = lwxios ) 503 CALL iom_rstput( kt, nitrst, numrow, 'vtau_b' , vtau, ldxios = lwxios ) 504 CALL iom_rstput( kt, nitrst, numrow, 'qns_b' , qns, ldxios = lwxios ) 492 CALL iom_rstput( kt, nitrst, numrow, 'utau_b' , utau ) 493 CALL iom_rstput( kt, nitrst, numrow, 'vtau_b' , vtau ) 494 CALL iom_rstput( kt, nitrst, numrow, 'qns_b' , qns ) 505 495 ! The 3D heat content due to qsr forcing is treated in traqsr 506 496 ! CALL iom_rstput( kt, nitrst, numrow, 'qsr_b' , qsr ) 507 CALL iom_rstput( kt, nitrst, numrow, 'emp_b' , emp, ldxios = lwxios ) 508 CALL iom_rstput( kt, nitrst, numrow, 'sfx_b' , sfx, ldxios = lwxios ) 509 IF( lwxios ) CALL iom_swap( cxios_context ) 497 CALL iom_rstput( kt, nitrst, numrow, 'emp_b' , emp ) 498 CALL iom_rstput( kt, nitrst, numrow, 'sfx_b' , sfx ) 510 499 ENDIF 511 500 ! ! ---------------------------------------- !
Note: See TracChangeset
for help on using the changeset viewer.