- Timestamp:
- 2020-12-02T18:22:24+01:00 (3 years ago)
- Location:
- NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3
- Property svn:externals
-
old new 8 8 9 9 # SETTE 10 ^/utils/CI/sette@13 559sette10 ^/utils/CI/sette@13795 sette
-
- Property svn:externals
-
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/SBC/sbcmod.F90
r13998 r14018 359 359 IF( ln_wave ) CALL sbc_wave_init ! surface wave initialisation 360 360 ! 361 IF( lwxios ) THEN362 CALL iom_set_rstw_var_active('utau_b')363 CALL iom_set_rstw_var_active('vtau_b')364 CALL iom_set_rstw_var_active('qns_b')365 ! The 3D heat content due to qsr forcing is treated in traqsr366 ! CALL iom_set_rstw_var_active('qsr_b')367 CALL iom_set_rstw_var_active('emp_b')368 CALL iom_set_rstw_var_active('sfx_b')369 ENDIF370 371 361 END SUBROUTINE sbc_init 372 362 … … 509 499 IF( ln_rstart .AND. .NOT.l_1st_euler ) THEN !* Restart: read in restart file 510 500 IF(lwp) WRITE(numout,*) ' nit000-1 surface forcing fields read in the restart file' 511 CALL iom_get( numror, jpdom_auto, 'utau_b', utau_b , ldxios = lrxios, cd_type = 'U', psgn = -1._wp) ! i-stress512 CALL iom_get( numror, jpdom_auto, 'vtau_b', vtau_b , ldxios = lrxios, cd_type = 'V', psgn = -1._wp) ! j-stress513 CALL iom_get( numror, jpdom_auto, 'qns_b', qns_b , ldxios = lrxios) ! non solar heat flux514 CALL iom_get( numror, jpdom_auto, 'emp_b', emp_b , ldxios = lrxios) ! freshwater flux501 CALL iom_get( numror, jpdom_auto, 'utau_b', utau_b ) ! i-stress 502 CALL iom_get( numror, jpdom_auto, 'vtau_b', vtau_b ) ! j-stress 503 CALL iom_get( numror, jpdom_auto, 'qns_b', qns_b ) ! non solar heat flux 504 CALL iom_get( numror, jpdom_auto, 'emp_b', emp_b ) ! freshwater flux 515 505 ! NB: The 3D heat content due to qsr forcing (qsr_hc_b) is treated in traqsr 516 506 ! To ensure restart capability with 3.3x/3.4 restart files !! to be removed in v3.6 517 507 IF( iom_varid( numror, 'sfx_b', ldstop = .FALSE. ) > 0 ) THEN 518 CALL iom_get( numror, jpdom_auto, 'sfx_b', sfx_b , ldxios = lrxios) ! before salt flux (T-point)508 CALL iom_get( numror, jpdom_auto, 'sfx_b', sfx_b ) ! before salt flux (T-point) 519 509 ELSE 520 510 sfx_b (:,:) = sfx(:,:) … … 536 526 & 'at it= ', kt,' date= ', ndastp 537 527 IF(lwp) WRITE(numout,*) '~~~~' 538 IF( lwxios ) CALL iom_swap( cwxios_context ) 539 CALL iom_rstput( kt, nitrst, numrow, 'utau_b' , utau, ldxios = lwxios ) 540 CALL iom_rstput( kt, nitrst, numrow, 'vtau_b' , vtau, ldxios = lwxios ) 541 CALL iom_rstput( kt, nitrst, numrow, 'qns_b' , qns, ldxios = lwxios ) 528 CALL iom_rstput( kt, nitrst, numrow, 'utau_b' , utau ) 529 CALL iom_rstput( kt, nitrst, numrow, 'vtau_b' , vtau ) 530 CALL iom_rstput( kt, nitrst, numrow, 'qns_b' , qns ) 542 531 ! The 3D heat content due to qsr forcing is treated in traqsr 543 532 ! CALL iom_rstput( kt, nitrst, numrow, 'qsr_b' , qsr ) 544 CALL iom_rstput( kt, nitrst, numrow, 'emp_b' , emp, ldxios = lwxios ) 545 CALL iom_rstput( kt, nitrst, numrow, 'sfx_b' , sfx, ldxios = lwxios ) 546 IF( lwxios ) CALL iom_swap( cxios_context ) 533 CALL iom_rstput( kt, nitrst, numrow, 'emp_b' , emp ) 534 CALL iom_rstput( kt, nitrst, numrow, 'sfx_b' , sfx ) 547 535 ENDIF 548 536 ! ! ---------------------------------------- !
Note: See TracChangeset
for help on using the changeset viewer.