From 604681e8351371e5a137e92d6cb18a977119e858 Mon Sep 17 00:00:00 2001 From: Nic Hannah Date: Tue, 28 Jul 2015 10:46:37 -0400 Subject: [PATCH] Fix dummy argument intent. Does not compile on Gaea. #62 --- src/framework/MOM_diag_mediator.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/framework/MOM_diag_mediator.F90 b/src/framework/MOM_diag_mediator.F90 index ee22320891..2386ec0de1 100644 --- a/src/framework/MOM_diag_mediator.F90 +++ b/src/framework/MOM_diag_mediator.F90 @@ -601,7 +601,7 @@ subroutine post_data_3d(diag_field_id, field, diag_cs, is_static, mask) integer, intent(in) :: diag_field_id real, intent(in) :: field(:,:,:) - type(diag_ctrl), target, intent(inout) :: diag_cs + type(diag_ctrl), target, intent(in) :: diag_cs logical, optional, intent(in) :: is_static real, optional, intent(in) :: mask(:,:,:)