Fix for ice_mesh_mod with grid variables removed (CICE-Consortium#929)

apcraig · Feb 5, 2024 · 1a00e5e · 1a00e5e
1 parent 7a4b95e
commit 1a00e5e
Showing 1 changed file with 0 additions and 7 deletions.
diff --git a/cicecore/drivers/nuopc/cmeps/ice_mesh_mod.F90 b/cicecore/drivers/nuopc/cmeps/ice_mesh_mod.F90
@@ -439,7 +439,6 @@ subroutine ice_mesh_init_tlon_tlat_area_hm()
     use ice_grid      , only : uarea, uarear, tarear!, tinyarea
     use ice_grid      , only : dxT, dyT, dxU, dyU
     use ice_grid      , only : makemask
-    use ice_dyn_shared, only : dyhx, dxhy, cyp, cxp, cym, cxm
     use ice_boundary  , only : ice_HaloUpdate
     use ice_domain    , only : blocks_ice, nblocks, halo_info, distrb_info
     use ice_constants , only : c0, c1, p25
@@ -536,12 +535,6 @@ subroutine ice_mesh_init_tlon_tlat_area_hm()
              dyT   (i,j,iblk) = 1.e36_dbl_kind
              dxU   (i,j,iblk) = 1.e36_dbl_kind
              dyU   (i,j,iblk) = 1.e36_dbl_kind
-             dxhy  (i,j,iblk) = 1.e36_dbl_kind
-             dyhx  (i,j,iblk) = 1.e36_dbl_kind
-             cyp   (i,j,iblk) = 1.e36_dbl_kind
-             cxp   (i,j,iblk) = 1.e36_dbl_kind
-             cym   (i,j,iblk) = 1.e36_dbl_kind
-             cxm   (i,j,iblk) = 1.e36_dbl_kind
           enddo
        enddo
     enddo