Refactor implicit none to type,external

Apps/Comp_Testing_Driver.F90

@@ -12,7 +12,7 @@ program comp_testing_driver
   use MAPL_TimeDataMod
   use MAPL_GridManagerMod
 
-  implicit none
+  implicit none (type, external)
 
   call main()
 

Apps/Regrid_Util.F90

@@ -6,7 +6,7 @@ module regrid_util_support_mod
    use MAPL
    use gFTL_StringVector
 
-   implicit NONE
+   implicit none (type)
 
    public
 
@@ -336,7 +336,7 @@ Program Regrid_Util
    use regrid_util_support_mod
    use mpi
 
-   implicit NONE
+   implicit none (type)
 
    type(DistributedProfiler), target :: t_prof
    type (ProfileReporter) :: reporter

Apps/mapl_acg.pl

@@ -1055,7 +1055,7 @@ sub gcF90code {
    use ESMF
    use MAPL_Mod
 
-   Implicit NONE
+   implicit none (type, external)
    Private
 
 ! !PUBLIC MEMBER FUNCTIONS:
@@ -1198,7 +1198,7 @@ sub gcF90code {
 
 ! !USES:
 
-   implicit NONE
+   implicit none (type, external)
 
 ! !ARGUMENTS:
 
@@ -1279,7 +1279,7 @@ sub gcF90code {
 
 ! !USES:
 
-   implicit NONE
+   implicit none (type, external)
 
 ! !ARGUMENTS:
 
@@ -1360,7 +1360,7 @@ sub gcF90code {
 
 ! !USES:
 
-   implicit NONE
+   implicit none (type, external)
 
 
 ! !ARGUMENTS:

Apps/time_ave_util.F90

@@ -11,7 +11,7 @@ program  time_ave
    use, intrinsic :: iso_fortran_env, only: int32, int64, int16, real32, real64
    use ieee_arithmetic, only: isnan => ieee_is_nan
 
-   implicit none
+   implicit none (type)
 
    integer  comm,myid,npes,ierror
    integer  imglobal
@@ -133,7 +133,7 @@ program  time_ave
 
 !call timebeg ('main')
 
-   call mpi_init                ( ierror ) 
+   call mpi_init                ( ierror )
    _VERIFY(ierror)
    comm = mpi_comm_world
    call mpi_comm_rank ( comm,myid,ierror )
@@ -1386,7 +1386,7 @@ function local_esmf_timeset(yymmdd,hhmmss,rc) result(etime)
    end function local_esmf_timeset
 
    function defined ( q,undef )
-      implicit none
+      implicit none (type, external)
       logical  defined
       real     q,undef
       defined = q /= undef

CHANGELOG.md

@@ -11,6 +11,8 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 ### Changed
 
+- Replace all `implicit none` with `implicit none(type, external)` in all Fortran files
+
 ### Fixed
 
 ### Removed

MAPL/MAPL.F90

@@ -16,7 +16,7 @@ module MAPL
    use MAPL_OpenMP_Support, only : MAPL_Interval => Interval
    use MAPL_Profiler, initialize_profiler =>initialize, finalize_profiler =>finalize
    use MAPL_FieldUtils
-   implicit none
+   implicit none (type, external)
 end module MAPL
 
 module MAPL_Mod

MAPL_cfio/ESMF_CFIOBaseMod.F90

@@ -1,4 +1,4 @@
 module ESMF_CFIOBaseMod
-   implicit none
+   implicit none (type, external)
    include "netcdf.inc"
 end module ESMF_CFIOBaseMod

MAPL_cfio/ESMF_CFIOEosMod.F90

@@ -40,7 +40,7 @@ module ESMF_CFIOEosMod
       use ESMF_CFIOFileMod
       use ESMF_CFIOwGrADSMod, only : CFIO_wGrADS
       use ESMF_CFIOrGrADSMod, only : CFIO_rGrADS
-      implicit none
+      implicit none (type, external)
 !------------------------------------------------------------------------------
 ! !PRIVATE TYPES:
       private
@@ -699,7 +699,7 @@ subroutine EOS_Create_(cfio, fname, title, source, contact, amiss, &
 !
 ! !USES:
 !
-      Implicit NONE
+      implicit none (type, external)
 !
 ! !INPUT PARAMETERS:
 !

MAPL_cfio/ESMF_CFIOFileMod.F90

@@ -183,7 +183,7 @@ subroutine ESMF_CFIOSet(cfio, cfioObjName, varObjs, grids, grid,      &
                               attIntName, attInt, format,           &
                               expid, isCyclic, isOpen, nSteps, fNameTmplt,  &
                               deflate, formatVersion,                    rc )
-       implicit NONE
+       implicit none (type, external)
 
 !
 ! !INPUT PARAMETERS:

MAPL_cfio/ESMF_CFIOGridMod.F90

@@ -25,7 +25,7 @@ module ESMF_CFIOGridMod
 ! !USES:
       use ESMF_CFIOUtilMod, only : MLEN, MVARLEN
       use, intrinsic :: ISO_FORTRAN_ENV, only: REAL64
-      implicit none
+      implicit none (type, external)
 
 !------------------------------------------------------------------------------
 ! !PRIVATE TYPES:

MAPL_cfio/ESMF_CFIOMod.F90

@@ -63,7 +63,7 @@ module ESMF_CFIOMod
 #endif
       use esmf, only: ESMF_UtilStringUpperCase
       use, intrinsic :: iso_fortran_env, only: REAL32
-      implicit none
+      implicit none (type, external)
 !------------------------------------------------------------------------------
 ! !PRIVATE TYPES:
       private
@@ -894,7 +894,7 @@ end subroutine ESMF_CFIOFileClose
 !
    subroutine ESMF_CFIODownBit3D_ ( x, xr, nbits, undef, flops, rc )
 
-     implicit NONE
+     implicit none (type, external)
 !
 ! !INPUT PARAMETERS:
 !
@@ -957,7 +957,7 @@ end subroutine ESMF_CFIODownBit3D_
 !
    subroutine ESMF_CFIODownBit2D_ ( x, xr, nbits, undef, flops, rc )
 
-     implicit NONE
+     implicit none (type, external)
 
 !
 ! !INPUT PARAMETERS:

MAPL_cfio/ESMF_CFIOSdfMod.F90

@@ -28,7 +28,7 @@ module ESMF_CFIOSdfMod
       use netcdf
       use, intrinsic :: ISO_FORTRAN_ENV, only: INT16, REAL32, REAL64
 
-      implicit none
+      implicit none (type, external)
 !------------------------------------------------------------------------------
 ! !PRIVATE TYPES:
       private
@@ -1874,7 +1874,7 @@ subroutine CFIO_Create_ ( cfio, rc )
 !
 ! !USES:
 !
-      Implicit NONE
+      implicit none (type, external)
 !
 ! !INPUT PARAMETERS:
 !