#243 closed Enhancement (invalid)
simplification of computation of snow-ice energy in limthd_ent
| Reported by: | nemo_user | Owned by: | nemo |
|---|---|---|---|
| Priority: | low | Milestone: | |
| Component: | LIM3 | Version: | v2 |
| Severity: | Keywords: | LIM* v2 | |
| Cc: |
Description
Bonjour! hello!
Go to limthd_ent.F90
here is a simplification of this :
362 !------------------------------------------------
363 ! Energy given by the snow in snow-ice formation
364 !------------------------------------------------
365 ! zqsnow, enthalpy of the flooded snow
366 DO ji = kideb, kiut
367 zqsnow(ji) = rhosn*lfus
368 zdeltah(ji) = 0.0
369 ENDDO
370
371 DO jk = nlays0, 1, -1
372 DO ji = kideb, kiut
373 zhsnow = MAX(0.0,dh_snowice(ji)-zdeltah(ji))
374 zqsnow(ji) = zqsnow(ji) + &
375 rhosn*cpic*(rtt-t_s_b(ji,jk))
376 zdeltah(ji) = zdeltah(ji) + zh_s(ji)
377 END DO
378 ENDDO
379
380 DO ji = kideb, kiut
381 zqsnow(ji) = zqsnow(ji) * dh_snowice(ji)
382 END DO
... is replaced by this!!!
!------------------------------------------------
! Energy given by the snow in snow-ice formation
!------------------------------------------------
zqsnow(:) = 0.0
zdeltah(:) = 0.0
DO jk = nlays0, 1, -1
DO ji = kideb, kiut
zhsnow = MAX(0.0,dh_snowice(ji)-zdeltah(ji))
zqsnow(ji) = zqsnow(ji) + q_s_b(ji,jk)*zhsnow
END DO
END DO
Good luck,
Martin
Commit History (0)
(No commits)
Change History (5)
comment:1 Changed 15 years ago by nemo_user
- Resolution set to invalid
- Status changed from new to closed
comment:2 Changed 15 years ago by nemo_user
comment:3 Changed 6 years ago by nemo
- Keywords LIM* added
comment:4 Changed 2 years ago by nemo
- Keywords r2 added
comment:5 Changed 2 years ago by nemo
- Keywords v2 added; r2 removed
has to be rechecked