Changeset 12546 for NEMO/branches/2020/dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation/src/OCE/SBC/sbcice_cice.F90
- Timestamp:
- 2020-03-13T11:06:44+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation/src/OCE/SBC/sbcice_cice.F90
r12489 r12546 218 218 END_2D 219 219 220 CALL lbc_lnk_multi( 'sbcice_cice', fr_iu , 'U', 1. , fr_iv , 'V', 1.)220 CALL lbc_lnk_multi( 'sbcice_cice', fr_iu , 'U', 1.0_wp, fr_iv , 'V', 1.0_wp ) 221 221 222 222 ! set the snow+ice mass … … 498 498 ss_iou(ji,jj) = 0.5 * ( ztmp1(ji,jj-1) + ztmp1(ji,jj) ) * umask(ji,jj,1) 499 499 END_2D 500 CALL lbc_lnk( 'sbcice_cice', ss_iou , 'U', -1. )500 CALL lbc_lnk( 'sbcice_cice', ss_iou , 'U', -1.0_wp ) 501 501 502 502 ! y comp of ocean-ice stress … … 508 508 ss_iov(ji,jj) = 0.5 * ( ztmp1(ji-1,jj) + ztmp1(ji,jj) ) * vmask(ji,jj,1) 509 509 END_2D 510 CALL lbc_lnk( 'sbcice_cice', ss_iov , 'V', -1. )510 CALL lbc_lnk( 'sbcice_cice', ss_iov , 'V', -1.0_wp ) 511 511 512 512 ! x and y comps of surface stress … … 561 561 fmmflx(:,:) = ztmp1(:,:) !!Joakim edit 562 562 563 CALL lbc_lnk_multi( 'sbcice_cice', emp , 'T', 1. , sfx , 'T', 1.)563 CALL lbc_lnk_multi( 'sbcice_cice', emp , 'T', 1.0_wp, sfx , 'T', 1.0_wp ) 564 564 565 565 ! Solar penetrative radiation and non solar surface heat flux … … 587 587 #endif 588 588 qsr(:,:)=qsr(:,:)+ztmp1(:,:) 589 CALL lbc_lnk( 'sbcice_cice', qsr , 'T', 1. )589 CALL lbc_lnk( 'sbcice_cice', qsr , 'T', 1.0_wp ) 590 590 591 591 DO_2D_11_11 … … 600 600 qns(:,:)=qns(:,:)+nfrzmlt(:,:)+ztmp1(:,:) 601 601 602 CALL lbc_lnk( 'sbcice_cice', qns , 'T', 1. )602 CALL lbc_lnk( 'sbcice_cice', qns , 'T', 1.0_wp ) 603 603 604 604 ! Prepare for the following CICE time-step … … 618 618 END_2D 619 619 620 CALL lbc_lnk_multi( 'sbcice_cice', fr_iu , 'U', 1. , fr_iv , 'V', 1.)620 CALL lbc_lnk_multi( 'sbcice_cice', fr_iu , 'U', 1.0_wp, fr_iv , 'V', 1.0_wp ) 621 621 622 622 ! set the snow+ice mass
Note: See TracChangeset
for help on using the changeset viewer.