Skip to content

Commit

Permalink
Merge branch 'Hallberg-NOAA-fix_geolonb' into dev/gfdl
Browse files Browse the repository at this point in the history
  • Loading branch information
@adcroft
adcroft committed Sep 12, 2018
2 parents b47317d + 168bbd0 commit edddaad
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/SIS_transcribe_grid.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -133,7 +133,7 @@ subroutine copy_dyngrid_to_SIS_horgrid(dG, SG)
call pass_vector(SG%geoLatCu, SG%geoLatCv, SG%Domain, To_All+Scalar_Pair, CGRID_NE)

call pass_var(SG%areaBu, SG%Domain, position=CORNER)
call pass_var(SG%geoLonBu, SG%Domain, position=CORNER)
call pass_var(SG%geoLonBu, SG%Domain, position=CORNER, inner_halo=SG%isc-isd)
call pass_var(SG%geoLatBu, SG%Domain, position=CORNER)
call pass_vector(SG%dxBu, SG%dyBu, SG%Domain, To_All+Scalar_Pair, BGRID_NE)
call pass_var(SG%CoriolisBu, SG%Domain, position=CORNER)
Expand Down Expand Up @@ -262,7 +262,7 @@ subroutine copy_SIS_horgrid_to_dyngrid(SG, dG)
call pass_vector(dG%geoLatCu, dG%geoLatCv, dG%Domain, To_All+Scalar_Pair, CGRID_NE)

call pass_var(dG%areaBu, dG%Domain, position=CORNER)
call pass_var(dG%geoLonBu, dG%Domain, position=CORNER)
call pass_var(dG%geoLonBu, dG%Domain, position=CORNER, inner_halo=dG%isc-isd)
call pass_var(dG%geoLatBu, dG%Domain, position=CORNER)
call pass_vector(dG%dxBu, dG%dyBu, dG%Domain, To_All+Scalar_Pair, BGRID_NE)
call pass_var(dG%CoriolisBu, dG%Domain, position=CORNER)
Expand Down

0 comments on commit edddaad

Please sign in to comment.