Changeset 14433 for NEMO/trunk/src/OCE/ISF
- Timestamp:
- 2021-02-11T09:06:49+01:00 (3 years ago)
- Location:
- NEMO/trunk/src/OCE/ISF
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/ISF/isfcav.F90
r14072 r14433 136 136 ! 137 137 ! lbclnk on melt 138 CALL lbc_lnk _multi( 'isfmlt', zqh, 'T', 1.0_wp, pqfwf, 'T', 1.0_wp)138 CALL lbc_lnk( 'isfmlt', zqh, 'T', 1.0_wp, pqfwf, 'T', 1.0_wp) 139 139 ! 140 140 ! output fluxes -
NEMO/trunk/src/OCE/ISF/isfcpl.F90
r14143 r14433 205 205 zssmask0(:,:) = zssmask_b(:,:) 206 206 ! 207 CALL lbc_lnk _multi( 'iscplrst', zssh, 'T', 1.0_wp, zssmask0, 'T', 1.0_wp )207 CALL lbc_lnk( 'iscplrst', zssh, 'T', 1.0_wp, zssmask0, 'T', 1.0_wp ) 208 208 ! 209 209 END DO … … 363 363 ztmask0(:,:,:) = ztmask1(:,:,:) 364 364 ! 365 CALL lbc_lnk _multi( 'iscplrst', zts0(:,:,:,jp_tem), 'T', 1.0_wp, zts0(:,:,:,jp_sal), 'T', 1.0_wp, ztmask0, 'T', 1.0_wp)365 CALL lbc_lnk( 'iscplrst', zts0(:,:,:,jp_tem), 'T', 1.0_wp, zts0(:,:,:,jp_sal), 'T', 1.0_wp, ztmask0, 'T', 1.0_wp) 366 366 ! 367 367 END DO ! nn_drown … … 691 691 ! 692 692 ! add lbclnk 693 CALL lbc_lnk _multi( 'iscplrst', risfcpl_cons_tsc(:,:,:,jp_tem), 'T', 1.0_wp, risfcpl_cons_tsc(:,:,:,jp_sal), 'T', 1.0_wp, &694 & 693 CALL lbc_lnk( 'iscplrst', risfcpl_cons_tsc(:,:,:,jp_tem), 'T', 1.0_wp, risfcpl_cons_tsc(:,:,:,jp_sal), 'T', 1.0_wp, & 694 & risfcpl_cons_vol(:,:,:) , 'T', 1.0_wp) 695 695 ! 696 696 ! ssh correction (for dynspg_ts) -
NEMO/trunk/src/OCE/ISF/isfpar.F90
r13226 r14433 82 82 ! 83 83 ! lbclnk on melt and heat fluxes 84 CALL lbc_lnk _multi( 'isfmlt', zqh, 'T', 1.0_wp, pqfwf, 'T', 1.0_wp)84 CALL lbc_lnk( 'isfmlt', zqh, 'T', 1.0_wp, pqfwf, 'T', 1.0_wp) 85 85 ! 86 86 ! output fluxes
Note: See TracChangeset
for help on using the changeset viewer.