#804 closed Bug (fixed)
limdmp_2 probable bug
| Reported by: | stortignauz | Owned by: | nemo |
|---|---|---|---|
| Priority: | low | Milestone: | |
| Component: | LIM2 | Version: | v3.3 |
| Severity: | Keywords: | LIM* v3.3 | |
| Cc: |
Description
Hi,
it seems to me that
in limdmp_2.F90, line 72 of the trunk version,
hicif = should be replaced by frld =,
probably a bug when adding collapse directive...
Andrea
OLD:::
!CDIR COLLAPSE
69 hicif(:,:) = MAX( 0._wp, & ! h >= 0 avoid spurious out of physical range
70 & hicif(:,:) - rdt_ice * resto_ice(:,:,1) * ( hicif(:,:) - sf_icedmp(jp_hicif)%fnow(:,:,1) ) )
71 !CDIR COLLAPSE
72 hicif(:,:) = MAX( 0._wp, MIN( 1._wp, & ! 0<= frld<=1 values which blow the run up
73 & frld (:,:) - rdt_ice * resto_ice(:,:,1) * ( frld (:,:) - sf_icedmp(jp_frld )%fnow(:,:,1) ) ) )
NEW :::
69 hicif(:,:) = MAX( 0._wp, & ! h >= 0 avoid spurious out of physical range
70 & hicif(:,:) - rdt_ice * resto_ice(:,:,1) * ( hicif(:,:) - sf_icedmp(jp_hicif)%fnow(:,:,1) ) )
71 !CDIR COLLAPSE
72 frld(:,:) = MAX( 0._wp, MIN( 1._wp, & ! 0<= frld<=1 values which blow the run up
73 & frld (:,:) - rdt_ice * resto_ice(:,:,1) * ( frld (:,:) - sf_icedmp(jp_frld )%fnow(:,:,1) ) ) )
Commit History (0)
(No commits)
Change History (7)
comment:1 Changed 11 years ago by gm
- Resolution set to fixed
- Status changed from new to closed
comment:2 Changed 7 years ago by nicolasmartin
- Keywords bug removed
comment:3 Changed 7 years ago by nicolasmartin
- Keywords nemo_v3_3* added
comment:4 Changed 7 years ago by nicolasmartin
- Keywords limdmp_2 removed
comment:5 Changed 6 years ago by nemo
- Keywords LIM* added
comment:6 Changed 6 years ago by nemo
- Keywords nemo_v3_3 added; nemo_v3_3* removed
comment:7 Changed 16 months ago by nemo
- Keywords v3.3 added; nemo_v3_3 removed
see also ticket:#963 fixed in Changeset 3551