From 70e568647b150bb1840313948de79293c98b6d14 Mon Sep 17 00:00:00 2001 From: Nicholas Hannah Date: Fri, 5 Jun 2015 07:53:34 -0700 Subject: [PATCH] Remove unnecessary include. #62 --- src/framework/MOM_diag_mediator.F90 | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/src/framework/MOM_diag_mediator.F90 b/src/framework/MOM_diag_mediator.F90 index 94e06b80cc..5f6fe8c66b 100644 --- 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 - #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