- Timestamp:
- 2020-07-03T19:15:31+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/ISF/isfcpl.F90
r12807 r13247 195 195 zssmask0(:,:) = zssmask_b(:,:) 196 196 ! 197 CALL lbc_lnk_multi( 'iscplrst', zssh, 'T', 1. , zssmask0, 'T', 1.)197 CALL lbc_lnk_multi( 'iscplrst', zssh, 'T', 1.0_wp, zssmask0, 'T', 1.0_wp ) 198 198 ! 199 199 END DO … … 348 348 ztmask0(:,:,:) = ztmask1(:,:,:) 349 349 ! 350 CALL lbc_lnk_multi( 'iscplrst', zts0(:,:,:,jp_tem), 'T', 1. , zts0(:,:,:,jp_sal), 'T', 1., ztmask0, 'T', 1.)350 CALL lbc_lnk_multi( 'iscplrst', zts0(:,:,:,jp_tem), 'T', 1.0_wp, zts0(:,:,:,jp_sal), 'T', 1.0_wp, ztmask0, 'T', 1.0_wp) 351 351 ! 352 352 END DO ! nn_drown … … 433 433 END_2D 434 434 ! 435 CALL lbc_lnk( 'iscpl', risfcpl_vol, 'T', 1. )435 CALL lbc_lnk( 'iscpl', risfcpl_vol, 'T', 1.0_wp ) 436 436 ! 437 437 ! 3.0: set total correction (div, tr(:,:,:,:,Krhs), ssh) … … 602 602 ELSE IF ( tmask(ji,jj,jk+1) == 1._wp ) THEN 603 603 ! spread correction amoung neigbourg wet cells (vertical direction) 604 CALL update_isfpts(zisfpts, jisf, ji , jj , jk+1, zdvol, zdsal, zdtem, 1. , 0)604 CALL update_isfpts(zisfpts, jisf, ji , jj , jk+1, zdvol, zdsal, zdtem, 1.0_wp, 0) 605 605 ELSE 606 606 ! need to find where to put correction in later on 607 CALL update_isfpts(zisfpts, jisf, ji , jj , jk , zdvol, zdsal, zdtem, 1. , 1)607 CALL update_isfpts(zisfpts, jisf, ji , jj , jk , zdvol, zdsal, zdtem, 1.0_wp, 1) 608 608 END IF 609 609 END IF … … 665 665 ! 666 666 ! add lbclnk 667 CALL lbc_lnk_multi( 'iscplrst', risfcpl_cons_tsc(:,:,:,jp_tem), 'T', 1. , risfcpl_cons_tsc(:,:,:,jp_sal), 'T', 1., &668 & risfcpl_cons_vol(:,:,:) , 'T', 1. )667 CALL lbc_lnk_multi( 'iscplrst', risfcpl_cons_tsc(:,:,:,jp_tem), 'T', 1.0_wp, risfcpl_cons_tsc(:,:,:,jp_sal), 'T', 1.0_wp, & 668 & risfcpl_cons_vol(:,:,:) , 'T', 1.0_wp) 669 669 ! 670 670 ! ssh correction (for dynspg_ts)
Note: See TracChangeset
for help on using the changeset viewer.