Skip to content

Commit e2c8a58

Browse files
authored
Merge pull request #332 from GEOS-ESM/feature/pcolarco/cleanup_association
2 parents c95aaf7 + 858da1c commit e2c8a58

File tree

2 files changed

+4
-3
lines changed

2 files changed

+4
-3
lines changed

CHANGELOG.md

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -24,6 +24,8 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
2424
- Updated settling routine and calls to allow settling velocity diagnostics in output field
2525

2626
### Fixed
27+
- In DU2G_GridCompMod.F90 remove unnecessary "if(associated())" check for DU_SRC
28+
to future proof for application of new MAPL filtering
2729

2830
- Units error in sulfate surface area density calculation in Process Library corrected
2931
- Removed erroneous/extraneous friendly attributes to internal state for DU and NI

ESMF/GOCART2G_GridComp/DU2G_GridComp/DU2G_GridCompMod.F90

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -813,9 +813,8 @@ subroutine Run1 (GC, import, export, clock, RC)
813813

814814
! Set du_src to 0 where undefined
815815
! --------------------------------
816-
if (associated(du_src)) then
817-
where (1.01*du_src > MAPL_UNDEF) du_src = 0.
818-
endif
816+
where (1.01*du_src > MAPL_UNDEF) du_src = 0.
817+
819818
! Get dimensions
820819
! ---------------
821820
import_shape = shape(wet1)

0 commit comments

Comments
 (0)