Changeset 13262 for NEMO/branches/2020/ticket2407/src/OCE/ICB/icbutl.F90
- Timestamp:
- 2020-07-07T16:52:58+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/ticket2407/src/OCE/ICB/icbutl.F90
r10702 r13262 74 74 ff_e(1:jpi,1:jpj) = ff_f (:,:) 75 75 tt_e(1:jpi,1:jpj) = sst_m(:,:) 76 ss_e(1:jpi,1:jpj) = sss_m(:,:) 76 77 fr_e(1:jpi,1:jpj) = fr_i (:,:) 77 78 ua_e(1:jpi,1:jpj) = utau (:,:) * umask(:,:,1) ! maybe mask useless because mask applied in sbcblk … … 85 86 CALL lbc_lnk_icb( 'icbutl', fr_e, 'T', +1._wp, 1, 1 ) 86 87 CALL lbc_lnk_icb( 'icbutl', tt_e, 'T', +1._wp, 1, 1 ) 88 CALL lbc_lnk_icb( 'icbutl', ss_e, 'T', +1._wp, 1, 1 ) 87 89 #if defined key_si3 88 90 hi_e(1:jpi, 1:jpj) = hm_i (:,:) … … 107 109 SUBROUTINE icb_utl_interp( pi, pe1, puo, pui, pua, pssh_i, & 108 110 & pj, pe2, pvo, pvi, pva, pssh_j, & 109 & psst, pcn, phi, pff 111 & psst, pcn, phi, pff, psss ) 110 112 !!---------------------------------------------------------------------- 111 113 !! *** ROUTINE icb_utl_interp *** … … 128 130 REAL(wp), INTENT( out) :: puo, pvo, pui, pvi, pua, pva ! ocean, ice and wind speeds 129 131 REAL(wp), INTENT( out) :: pssh_i, pssh_j ! ssh i- & j-gradients 130 REAL(wp), INTENT( out) :: psst, pcn, phi, pff ! SST, ice concentration, ice thickness, Coriolis132 REAL(wp), INTENT( out) :: psst, pcn, phi, pff, psss ! SST, ice concentration, ice thickness, Coriolis, SSS 131 133 ! 132 134 REAL(wp) :: zcd, zmod ! local scalars … … 139 141 pvo = icb_utl_bilin_h( vo_e, pi, pj, 'V', .false. ) 140 142 psst = icb_utl_bilin_h( tt_e, pi, pj, 'T', .true. ) ! SST 143 psss = icb_utl_bilin_h( ss_e, pi, pj, 'T', .true. ) ! SSS 141 144 pcn = icb_utl_bilin_h( fr_e, pi, pj, 'T', .true. ) ! ice concentration 142 145 pff = icb_utl_bilin_h( ff_e, pi, pj, 'F', .false. ) ! Coriolis parameter
Note: See TracChangeset
for help on using the changeset viewer.