Context Navigation

← Previous Ticket
Next Ticket →

#963 closed Bug (fixed)

bug in limdmp_2.F90 : wrong variable used.

Reported by:	molines	Owned by:	gm
Priority:	low	Milestone:
Component:	LIM2	Version:	v3.4
Severity:		Keywords:	LIM* v3.4
Cc:

Description

The following lines of limdmp_2.F90 :

 69 !CDIR COLLAPSE
 70          hicif(:,:) = MAX( 0._wp,                     &        ! h >= 0         avoid spurious out of physical range
 71             &         hicif(:,:) - rdt_ice * resto_ice(:,:,1) * ( hicif(:,:) - sf_icedmp(jp_hicif)%fnow(:,:,1) )  )
 72 !CDIR COLLAPSE
 73          hicif(:,:) = MAX( 0._wp, MIN( 1._wp,         &        ! 0<= frld<=1    values which blow the run up
 74             &         frld (:,:) - rdt_ice * resto_ice(:,:,1) * ( frld (:,:) - sf_icedmp(jp_frld )%fnow(:,:,1) )  )  )

must be replaced by :

 69 !CDIR COLLAPSE
 70          hicif(:,:) = MAX( 0._wp,                     &        ! h >= 0         avoid spurious out of physical range
 71             &         hicif(:,:) - rdt_ice * resto_ice(:,:,1) * ( hicif(:,:) - sf_icedmp(jp_hicif)%fnow(:,:,1) )  )
 72 !CDIR COLLAPSE
 73          frld(:,:) = MAX( 0._wp, MIN( 1._wp,         &        ! 0<= frld<=1    values which blow the run up
 74             &         frld (:,:) - rdt_ice * resto_ice(:,:,1) * ( frld (:,:) - sf_icedmp(jp_frld )%fnow(:,:,1) )  )  )

Commit History (2)

Changeset	Author	Time	ChangeLog
3551	gm	2012-11-14T12:00:10+01:00	Ticket #963 fixed (bug in limdmp_2.F90 : wrong variable used)
3549	gm	2012-11-14T11:42:18+01:00	Ticket #963 fixed (bug in limdmp_2.F90 : wrong variable used)