- Timestamp:
- 2015-07-21T20:47:42+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5151_UKMO_ISF/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90
r5621 r5624 217 217 !---------------------------------------- 218 218 ! 219 IF( nn_isf > 0) THEN219 IF( ln_isf ) THEN 220 220 zfact = 0.5_wp 221 221 DO jj = 2, jpj … … 226 226 227 227 ! level fully include in the ice shelf boundary layer 228 ! if isfdiv, we have to remove heat flux due to inflow at 0oC (as in rnf when you add rnf at sst)229 228 ! sign - because fwf sign of evapo (rnf sign of precip) 230 229 DO jk = ikt, ikb - 1 231 ! compute tfreez for the temperature correction (we add water at freezing temperature)232 ! zpress = grav*rau0*fsdept(ji,jj,jk)*1.e-04233 zt_frz = -1.9_wp !CALL eos_fzp( tsn(ji,jj,jk,jp_sal), zt_frz, zpress )234 230 ! compute trend 235 231 tsa(ji,jj,jk,jp_tem) = tsa(ji,jj,jk,jp_tem) & 236 & + zfact * ( risf_tsc_b(ji,jj,jp_tem) + risf_tsc(ji,jj,jp_tem) & 237 & - rdivisf * (fwfisf(ji,jj) + fwfisf_b(ji,jj)) * zt_frz * r1_rau0) & 238 & * r1_hisf_tbl(ji,jj) 239 tsa(ji,jj,jk,jp_sal) = tsa(ji,jj,jk,jp_sal) & 240 & + zfact * (risf_tsc_b(ji,jj,jp_sal) + risf_tsc(ji,jj,jp_sal)) & 232 & + zfact * ( risf_tsc_b(ji,jj,jp_tem) + risf_tsc(ji,jj,jp_tem) ) & 241 233 & * r1_hisf_tbl(ji,jj) 242 234 END DO 243 235 244 236 ! level partially include in ice shelf boundary layer 245 ! compute tfreez for the temperature correction (we add water at freezing temperature)246 ! zpress = grav*rau0*fsdept(ji,jj,ikb)*1.e-04247 zt_frz = -1.9_wp !CALL eos_fzp( tsn(ji,jj,ikb,jp_sal), zt_frz, zpress )248 237 ! compute trend 249 238 tsa(ji,jj,ikb,jp_tem) = tsa(ji,jj,ikb,jp_tem) & 250 & + zfact * ( risf_tsc_b(ji,jj,jp_tem) + risf_tsc(ji,jj,jp_tem) & 251 & - rdivisf * (fwfisf(ji,jj) + fwfisf_b(ji,jj)) * zt_frz * r1_rau0) & 239 & + zfact * ( risf_tsc_b(ji,jj,jp_tem) + risf_tsc(ji,jj,jp_tem) ) & 252 240 & * r1_hisf_tbl(ji,jj) * ralpha(ji,jj) 253 tsa(ji,jj,ikb,jp_sal) = tsa(ji,jj,ikb,jp_sal) &254 & + zfact * (risf_tsc_b(ji,jj,jp_sal) + risf_tsc(ji,jj,jp_sal)) &255 & * r1_hisf_tbl(ji,jj) * ralpha(ji,jj)256 241 257 242 END DO
Note: See TracChangeset
for help on using the changeset viewer.