Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Split associate statement to avoid NAG compiler line continuation issue #1009

Merged
merged 6 commits into from
Apr 4, 2023
Merged

Split associate statement to avoid NAG compiler line continuation issue #1009

Changes from 1 commit
Commits
Show all changes
6 commits
Select commit Hold shift + click to select a range
7164ce7
Split associate statement
glemieux Mar 31, 2023
e1dec5d
Correct bsap variable description comments
glemieux Apr 3, 2023
080afb8
Update bleaf output comment state KgC
glemieux Apr 3, 2023
00bd270
Correct warning statements
glemieux Apr 3, 2023
4ef0948
Add long names as comment to EDParamsMod
glemieux Apr 3, 2023
cc20604
Add parameter long names to EDPftvarcon.F90
glemieux Apr 3, 2023
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Next Next commit
Split associate statement 
The nag compiler has a limit on the number of line continuations
  • Loading branch information
@glemieux
glemieux committed Mar 31, 2023
commit 7164ce78a81025bb6ce21a7e3c5efa1d1019fdc6
7 changes: 5 additions & 2 deletions main/FatesHistoryInterfaceMod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -2473,8 +2473,10 @@ subroutine update_history_dyn(this,nc,nsites,sites,bc_in)
hio_mortality_canopy_si_scag => this%hvars(ih_mortality_canopy_si_scag)%r82d, &
hio_mortality_understory_si_scag => this%hvars(ih_mortality_understory_si_scag)%r82d, &
hio_site_cstatus_si => this%hvars(ih_site_cstatus_si)%r81d, &
hio_site_dstatus_si => this%hvars(ih_site_dstatus_si)%r81d, &
hio_gdd_si => this%hvars(ih_gdd_si)%r81d, &
hio_site_dstatus_si => this%hvars(ih_site_dstatus_si)%r81d )

! Split up the associate statement as the nag compiler has a limit on line continuation
associate( hio_gdd_si => this%hvars(ih_gdd_si)%r81d, &
hio_site_ncolddays_si => this%hvars(ih_site_ncolddays_si)%r81d, &
hio_site_nchilldays_si => this%hvars(ih_site_nchilldays_si)%r81d, &
hio_cleafoff_si => this%hvars(ih_cleafoff_si)%r81d, &
Expand Down Expand Up @@ -4323,6 +4325,7 @@ subroutine update_history_dyn(this,nc,nsites,sites,bc_in)

enddo siteloop ! site loop

end associate
end associate

return
Expand Down