Fix dummy argument intent. Does not compile on Gaea. #62

NOAA-GFDL · Jul 28, 2015 · 604681e · 604681e
1 parent 8008eea
commit 604681e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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(:,:,:)