mpp_get_maxunits syntax fixes

A few fixes to allow update to have diag_manager use the max number of files from mpp to compile Fixes mom-ocean#25
MJHarrison-GFDL · Dec 7, 2016 · cb070fe · cb070fe
1 parent cea0a26
commit cb070fe
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/diag_manager/diag_manager.F90 b/diag_manager/diag_manager.F90
@@ -3535,7 +3535,7 @@ SUBROUTINE diag_manager_init(diag_model_subset, time_init, err_msg)
        WRITE (err_msg_local,'(A,I6,A,I6,A,I6)') "DIAG_MANAGER_NML variable 'max_files' (",max_files,") is larger than '",&
             & mpp_get_maxunits(),"'.  Forcing 'max_files' to be ",mpp_get_maxunits(),"."
        CALL error_mesg('diag_manager_mod::diag_managet_init', TRIM(err_msg_local), NOTE)
-       max_files = mpp_get_maxunits
+       max_files = mpp_get_maxunits()
     END IF
 
     ! How to handle Out of Range Warnings.

diff --git a/mpp/include/mpp_io_misc.inc b/mpp/include/mpp_io_misc.inc
@@ -284,4 +284,4 @@
    !! simply returns this number.
    integer function mpp_get_maxunits()
       mpp_get_maxunits = maxunits
-   end integer function mpp_get_maxunits
+   end function mpp_get_maxunits
diff --git a/mpp/mpp_io.F90 b/mpp/mpp_io.F90
@@ -366,7 +366,7 @@ module mpp_io_mod
   public :: mpp_get_dimension_length, mpp_get_axis_bounds
 
   !--- public interface from mpp_io_misc.h ----------------------
-  public :: mpp_io_init, mpp_io_exit, netcdf_err, mpp_flush
+  public :: mpp_io_init, mpp_io_exit, netcdf_err, mpp_flush, mpp_get_maxunits
 
   !--- public interface from mpp_io_write.h ---------------------
   public :: mpp_write, mpp_write_meta, mpp_copy_meta, mpp_modify_meta, mpp_write_axis_data, mpp_def_dim