Skip to content

Duplicate line of code in CNVegCarbonStateType.F90 #2107

@olyson

Description

@olyson

Brief summary of bug

There is a duplicate line of code in CNVegCarbonStateType.F90

General bug information

CTSM version you are using: ctsm5.1.dev133

Does this bug cause significantly incorrect results in the model's science? No

Details of bug

Line 1640 is duplicated, i.e.,

1634 if (flag=='read' .and. .not. readvar) then
1635 if ( masterproc ) write(iulog,*) 'initializing this%leafc_storage with atmospheric c13 value'
1636 do i = bounds%begp,bounds%endp
1637 if (pftcon%c3psn(patch%itype(i)) == 1._r8) then
1638 this%leafc_storage_patch(i) = c12_cnveg_carbonstate_inst%leafc_storage_patch(i) * c3_r2
1639 else
1640 this%leafc_storage_patch(i) = c12_cnveg_carbonstate_inst%leafc_storage_patch(i) * c4_r2
1641 this%leafc_storage_patch(i) = c12_cnveg_carbonstate_inst%leafc_storage_patch(i) * c4_r2
1642 endif
1643 end do
1644 end if

Metadata

Metadata

Assignees

Labels

bfbbit-for-bitcode healthimproving internal code structure to make easier to maintain (sustainability)

Type

No type

Projects

No projects

Milestone

No milestone

Relationships

None yet

Development

No branches or pull requests

Issue actions