Merge pull request #2658 from E3SM-Project/bogensch/DPv0_coordinatefix

Weaver passes, mappy has expected DIFFs
E3SM-Project · Jan 29, 2024 · 2e551c3 · 2e551c3
2 parents b82ef2b + 4802bc8
commit 2e551c3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/components/eam/src/dynamics/se/stepon.F90 b/components/eam/src/dynamics/se/stepon.F90
@@ -585,8 +585,8 @@ subroutine stepon_run3(dtime, cam_out, phys_state, dyn_in, dyn_out)
    if (dp_crm) then
 
      do ie=1,nelemd
-       out_gridx(:,:) = dyn_in%elem(ie)%spherep(:,:)%lat
-       out_gridy(:,:) = dyn_in%elem(ie)%spherep(:,:)%lon
+       out_gridx(:,:) = dyn_in%elem(ie)%spherep(:,:)%lon
+       out_gridy(:,:) = dyn_in%elem(ie)%spherep(:,:)%lat
        call outfld('crm_grid_x', out_gridx, npsq, ie)
        call outfld('crm_grid_y', out_gridy, npsq, ie)
      enddo