Changeset 10170 for NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/sbcice_cice.F90
- Timestamp:
- 2018-10-03T16:49:50+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/sbcice_cice.F90
r10068 r10170 217 217 ENDDO 218 218 219 CALL lbc_lnk_multi( fr_iu , 'U', 1., fr_iv , 'V', 1. )219 CALL lbc_lnk_multi( 'sbcice_cice', fr_iu , 'U', 1., fr_iv , 'V', 1. ) 220 220 221 221 ! set the snow+ice mass … … 513 513 ENDDO 514 514 ENDDO 515 CALL lbc_lnk( ss_iou , 'U', -1. )515 CALL lbc_lnk( 'sbcice_cice', ss_iou , 'U', -1. ) 516 516 517 517 ! y comp of ocean-ice stress … … 525 525 ENDDO 526 526 ENDDO 527 CALL lbc_lnk( ss_iov , 'V', -1. )527 CALL lbc_lnk( 'sbcice_cice', ss_iov , 'V', -1. ) 528 528 529 529 ! x and y comps of surface stress … … 578 578 fmmflx(:,:) = ztmp1(:,:) !!Joakim edit 579 579 580 CALL lbc_lnk_multi( emp , 'T', 1., sfx , 'T', 1. )580 CALL lbc_lnk_multi( 'sbcice_cice', emp , 'T', 1., sfx , 'T', 1. ) 581 581 582 582 ! Solar penetrative radiation and non solar surface heat flux … … 604 604 #endif 605 605 qsr(:,:)=qsr(:,:)+ztmp1(:,:) 606 CALL lbc_lnk( qsr , 'T', 1. )606 CALL lbc_lnk( 'sbcice_cice', qsr , 'T', 1. ) 607 607 608 608 DO jj=1,jpj … … 619 619 qns(:,:)=qns(:,:)+nfrzmlt(:,:)+ztmp1(:,:) 620 620 621 CALL lbc_lnk( qns , 'T', 1. )621 CALL lbc_lnk( 'sbcice_cice', qns , 'T', 1. ) 622 622 623 623 ! Prepare for the following CICE time-step … … 639 639 ENDDO 640 640 641 CALL lbc_lnk_multi( fr_iu , 'U', 1., fr_iv , 'V', 1. )641 CALL lbc_lnk_multi( 'sbcice_cice', fr_iu , 'U', 1., fr_iv , 'V', 1. ) 642 642 643 643 ! set the snow+ice mass … … 863 863 ! A. Ensure all haloes are filled in NEMO field (pn) 864 864 865 CALL lbc_lnk( pn , cd_type, psgn )865 CALL lbc_lnk( 'sbcice_cice', pn , cd_type, psgn ) 866 866 867 867 #if defined key_nemocice_decomp … … 1040 1040 ! D. Ensure all haloes are filled in pn 1041 1041 1042 CALL lbc_lnk( pn , cd_type, psgn )1042 CALL lbc_lnk( 'sbcice_cice', pn , cd_type, psgn ) 1043 1043 1044 1044 END SUBROUTINE cice2nemo
Note: See TracChangeset
for help on using the changeset viewer.