Changeset 14002 for NEMO/branches/2020/dev_r12702_ASINTER-02_emanuelaclementi_Waves/src/OCE/SBC/sbcmod.F90
- Timestamp:
- 2020-12-02T15:08:53+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_r12702_ASINTER-02_emanuelaclementi_Waves
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12702_ASINTER-02_emanuelaclementi_Waves
- Property svn:externals
-
old new 8 8 9 9 # SETTE 10 ^/utils/CI/sette @13559sette10 ^/utils/CI/sette_MPI3_LoopFusion@13943 sette
-
- Property svn:externals
-
NEMO/branches/2020/dev_r12702_ASINTER-02_emanuelaclementi_Waves/src/OCE/SBC/sbcmod.F90
r13947 r14002 352 352 ENDIF 353 353 ! 354 IF( lwxios ) THEN355 CALL iom_set_rstw_var_active('utau_b')356 CALL iom_set_rstw_var_active('vtau_b')357 CALL iom_set_rstw_var_active('qns_b')358 ! The 3D heat content due to qsr forcing is treated in traqsr359 ! CALL iom_set_rstw_var_active('qsr_b')360 CALL iom_set_rstw_var_active('emp_b')361 CALL iom_set_rstw_var_active('sfx_b')362 ENDIF363 364 354 END SUBROUTINE sbc_init 365 355 … … 536 526 & iom_varid( numror, 'utau_b', ldstop = .FALSE. ) > 0 ) THEN 537 527 IF(lwp) WRITE(numout,*) ' nit000-1 surface forcing fields red in the restart file' 538 CALL iom_get( numror, jpdom_auto, 'utau_b', utau_b , ldxios = lrxios, cd_type = 'U', psgn = -1._wp) ! before i-stress (U-point)539 CALL iom_get( numror, jpdom_auto, 'vtau_b', vtau_b , ldxios = lrxios, cd_type = 'V', psgn = -1._wp) ! before j-stress (V-point)540 CALL iom_get( numror, jpdom_auto, 'qns_b', qns_b , ldxios = lrxios) ! before non solar heat flux (T-point)528 CALL iom_get( numror, jpdom_auto, 'utau_b', utau_b ) ! before i-stress (U-point) 529 CALL iom_get( numror, jpdom_auto, 'vtau_b', vtau_b ) ! before j-stress (V-point) 530 CALL iom_get( numror, jpdom_auto, 'qns_b', qns_b ) ! before non solar heat flux (T-point) 541 531 ! The 3D heat content due to qsr forcing is treated in traqsr 542 ! CALL iom_get( numror, jpdom_auto, 'qsr_b' , qsr_b , ldxios = lrxios) ! before solar heat flux (T-point)543 CALL iom_get( numror, jpdom_auto, 'emp_b', emp_b , ldxios = lrxios) ! before freshwater flux (T-point)532 ! CALL iom_get( numror, jpdom_auto, 'qsr_b' , qsr_b ) ! before solar heat flux (T-point) 533 CALL iom_get( numror, jpdom_auto, 'emp_b', emp_b ) ! before freshwater flux (T-point) 544 534 ! To ensure restart capability with 3.3x/3.4 restart files !! to be removed in v3.6 545 535 IF( iom_varid( numror, 'sfx_b', ldstop = .FALSE. ) > 0 ) THEN 546 CALL iom_get( numror, jpdom_auto, 'sfx_b', sfx_b , ldxios = lrxios) ! before salt flux (T-point)536 CALL iom_get( numror, jpdom_auto, 'sfx_b', sfx_b ) ! before salt flux (T-point) 547 537 ELSE 548 538 sfx_b (:,:) = sfx(:,:) … … 564 554 & 'at it= ', kt,' date= ', ndastp 565 555 IF(lwp) WRITE(numout,*) '~~~~' 566 IF( lwxios ) CALL iom_swap( cwxios_context ) 567 CALL iom_rstput( kt, nitrst, numrow, 'utau_b' , utau, ldxios = lwxios ) 568 CALL iom_rstput( kt, nitrst, numrow, 'vtau_b' , vtau, ldxios = lwxios ) 569 CALL iom_rstput( kt, nitrst, numrow, 'qns_b' , qns, ldxios = lwxios ) 556 CALL iom_rstput( kt, nitrst, numrow, 'utau_b' , utau ) 557 CALL iom_rstput( kt, nitrst, numrow, 'vtau_b' , vtau ) 558 CALL iom_rstput( kt, nitrst, numrow, 'qns_b' , qns ) 570 559 ! The 3D heat content due to qsr forcing is treated in traqsr 571 560 ! CALL iom_rstput( kt, nitrst, numrow, 'qsr_b' , qsr ) 572 CALL iom_rstput( kt, nitrst, numrow, 'emp_b' , emp, ldxios = lwxios ) 573 CALL iom_rstput( kt, nitrst, numrow, 'sfx_b' , sfx, ldxios = lwxios ) 574 IF( lwxios ) CALL iom_swap( cxios_context ) 561 CALL iom_rstput( kt, nitrst, numrow, 'emp_b' , emp ) 562 CALL iom_rstput( kt, nitrst, numrow, 'sfx_b' , sfx ) 575 563 ENDIF 576 564 ! ! ---------------------------------------- !
Note: See TracChangeset
for help on using the changeset viewer.