Changeset 14219 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/SBC/sbcmod.F90
- Timestamp:
- 2020-12-18T18:52:57+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/SBC/sbcmod.F90
r14072 r14219 75 75 !! * Substitutions 76 76 # include "do_loop_substitute.h90" 77 # include "single_precision_substitute.h90" 77 78 !!---------------------------------------------------------------------- 78 79 !! NEMO/OCE 4.0 , NEMO Consortium (2018) … … 441 442 END_2D 442 443 ! 443 CALL lbc_lnk( 'sbcwave', utau, 'U', -1. ) 444 CALL lbc_lnk( 'sbcwave', vtau, 'V', -1. ) 444 CALL lbc_lnk_multi( 'sbcwave', utau, 'U', -1._wp , vtau, 'V', -1._wp ) 445 445 ! 446 446 taum(:,:) = taum(:,:)*tauoc_wave(:,:) … … 452 452 utau(:,:) = utau(:,:) - tawx(:,:) + twox(:,:) 453 453 vtau(:,:) = vtau(:,:) - tawy(:,:) + twoy(:,:) 454 CALL lbc_lnk( 'sbcwave', utau, 'U', -1. ) 455 CALL lbc_lnk( 'sbcwave', vtau, 'V', -1. ) 454 CALL lbc_lnk_multi( 'sbcwave', utau, 'U', -1._wp, vtau, 'V', -1._wp ) 456 455 ! 457 456 DO_2D( 0, 0, 0, 0) … … 463 462 ! 464 463 ENDIF 465 CALL lbc_lnk( 'sbcmod', taum(:,:), 'T', 1. )464 CALL lbc_lnk( 'sbcmod', taum(:,:), 'T', 1._wp ) 466 465 ! 467 466 ! !== Misc. Options ==! … … 586 585 CALL prt_ctl(tab2d_1=qsr , clinfo1=' qsr - : ', mask1=tmask ) 587 586 CALL prt_ctl(tab3d_1=tmask , clinfo1=' tmask - : ', mask1=tmask, kdim=jpk ) 588 CALL prt_ctl(tab3d_1= ts(:,:,:,jp_tem,Kmm), clinfo1=' sst - : ', mask1=tmask, kdim=1 )589 CALL prt_ctl(tab3d_1= ts(:,:,:,jp_sal,Kmm), clinfo1=' sss - : ', mask1=tmask, kdim=1 )587 CALL prt_ctl(tab3d_1=CASTWP(ts(:,:,:,jp_tem,Kmm)), clinfo1=' sst - : ', mask1=tmask, kdim=1 ) 588 CALL prt_ctl(tab3d_1=CASTWP(ts(:,:,:,jp_sal,Kmm)), clinfo1=' sss - : ', mask1=tmask, kdim=1 ) 590 589 CALL prt_ctl(tab2d_1=utau , clinfo1=' utau - : ', mask1=umask, & 591 590 & tab2d_2=vtau , clinfo2=' vtau - : ', mask2=vmask )
Note: See TracChangeset
for help on using the changeset viewer.