Changeset 4963 for branches/2014/dev_MERGE_2014
- Timestamp:
- 2014-12-02T17:00:20+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_MERGE_2014/NEMOGCM/NEMO/LIM_SRC_3/limtrp.F90
r4924 r4963 393 393 zsmv = smv_i(ji,jj,jl) 394 394 zes = e_s (ji,jj,1,jl) 395 zei = SUM( e_i(ji,jj, :,jl) )395 zei = SUM( e_i(ji,jj,1:nlay_i,jl) ) 396 396 zdv = v_i(ji,jj,jl) - zviold(ji,jj,jl) 397 397 !zda = a_i(ji,jj,jl) - zaiold(ji,jj,jl) … … 414 414 smv_i(ji,jj,jl) = zindh * smv_i(ji,jj,jl) 415 415 e_s(ji,jj,1,jl) = zindh * e_s(ji,jj,1,jl) 416 e_i(ji,jj, :,jl) = zindh * e_i(ji,jj,:,jl)416 e_i(ji,jj,1:nlay_i,jl) = zindh * e_i(ji,jj,1:nlay_i,jl) 417 417 418 418 ! Update mass fluxes … … 421 421 sfx_res(ji,jj) = sfx_res(ji,jj) - ( smv_i(ji,jj,jl) - zsmv ) * rhoic * r1_rdtice 422 422 hfx_res(ji,jj) = hfx_res(ji,jj) + ( e_s(ji,jj,1,jl) - zes ) * unit_fac / area(ji,jj) * r1_rdtice ! W.m-2 <0 423 hfx_res(ji,jj) = hfx_res(ji,jj) + ( SUM( e_i(ji,jj, :,jl) ) - zei ) * unit_fac / area(ji,jj) * r1_rdtice ! W.m-2 <0423 hfx_res(ji,jj) = hfx_res(ji,jj) + ( SUM( e_i(ji,jj,1:nlay_i,jl) ) - zei ) * unit_fac / area(ji,jj) * r1_rdtice ! W.m-2 <0 424 424 425 425 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.