Remove unnecessary include. #62

NOAA-GFDL · Jun 5, 2015 · 70e5686 · 70e5686
1 parent d4e25ec
commit 70e5686
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/src/framework/MOM_diag_mediator.F90 b/src/framework/MOM_diag_mediator.F90
@@ -49,8 +49,6 @@ module MOM_diag_mediator
 
 implicit none ; private
 
-#include <MOM_memory.h>
-
 #define RANGE_I(a) lbound(a, 1),ubound(a, 1)
 #define RANGE_J(a) lbound(a, 2),ubound(a, 2)
 #define RANGE_K(a) lbound(a, 3),ubound(a, 3)
@@ -1432,7 +1430,7 @@ end subroutine diag_mediator_init
 
 subroutine diag_set_thickness_ptr(h, diag_cs)
 
-  real, dimension(NIMEM_,NJMEM_,NKMEM_), target, intent(in) :: h
+  real, dimension(:,:,:), target, intent(in) :: h
   type(diag_ctrl), intent(inout) :: diag_cs
 
   !  (inout) diag_cs - diag mediator control structure