Changeset 3691 for trunk/NEMOGCM/NEMO
- Timestamp:
- 2012-11-27T18:20:52+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90
r3294 r3691 206 206 !---------------------------------------- 207 207 ! 208 zfact = 0.5e0 209 210 ! Effect on (t,s) due to river runoff (dilution effect automatically applied via vertical tracer advection) 211 IF( ln_rnf ) THEN 208 IF( ln_rnf ) THEN ! input of heat and salt due to river runoff 209 zfact = 0.5_wp 212 210 DO jj = 2, jpj 213 211 DO ji = fs_2, fs_jpim1 214 zdep = 1. / h_rnf(ji,jj) 215 zdep = zfact * zdep 216 IF ( rnf(ji,jj) /= 0._wp ) THEN 212 IF( rnf(ji,jj) /= 0._wp ) THEN 213 zdep = zfact / h_rnf(ji,jj) 217 214 DO jk = 1, nk_rnf(ji,jj) 218 215 tsa(ji,jj,jk,jp_tem) = tsa(ji,jj,jk,jp_tem) & … … 224 221 END DO 225 222 END DO 226 ENDIF 227 !!gm It should be useless 228 CALL lbc_lnk( tsa(:,:,:,jp_tem), 'T', 1. ) ; CALL lbc_lnk( tsa(:,:,:,jp_sal), 'T', 1. ) 229 223 ENDIF 224 230 225 IF( l_trdtra ) THEN ! save the horizontal diffusive trends for further diagnostics 231 226 ztrdt(:,:,:) = tsa(:,:,:,jp_tem) - ztrdt(:,:,:)
Note: See TracChangeset
for help on using the changeset viewer.