Opened 12 years ago

Closed 11 years ago

Last modified 3 years ago

#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: release-2
Severity: Keywords: LIM*
Cc: Review:
MP ready?:
Progress:

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 (3)

comment:1 Changed 11 years ago by nemo_user

  • Resolution set to invalid
  • Status changed from new to closed

comment:2 Changed 11 years ago by nemo_user

has to be rechecked

comment:3 Changed 3 years ago by nemo

  • Keywords LIM* added
Note: See TracTickets for help on using tickets.