Fix type mismatch compiler error when gfortran 10 is used without '-f…

…allow-argument-mismatch' flag (#1147) * UFSWM - Fix type mismatch compiler error when gfortran 10 is used without '-fallow-argument-mismatch' flag. * FV3 - Fix type mismatch compiler error when gfortran 10 is used without '-fallow-argument-mismatch' flag. * ccpp-physics - Resolve various subroutine argument mismatches. * ccpp-framework - Add support to use mpi_f08 MPI module . * stochastic_physics - Fix type mismatch compiler error when gfortran 10 is used without '-fallow-argument-mismatch' flag.
ufs-community · Mar 20, 2024 · 3c8338c · 3c8338c
1 parent 86b7773
commit 3c8338c
Show file tree

Hide file tree

Showing 14 changed files with 2,012 additions and 4,568 deletions.
diff --git a/FV3 b/FV3
diff --git a/cmake/GNU.cmake b/cmake/GNU.cmake
@@ -5,10 +5,6 @@ endif()
 
 set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -ggdb -fbacktrace -cpp -fcray-pointer -ffree-line-length-none -fno-range-check")
 
-if(${CMAKE_Fortran_COMPILER_VERSION} VERSION_GREATER_EQUAL 10)
-    set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -fallow-argument-mismatch -fallow-invalid-boz")
-endif()
-
 if(NOT 32BIT)
     set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -fdefault-real-8 -fdefault-double-8")
 endif()

diff --git a/driver/UFS.F90 b/driver/UFS.F90
@@ -79,6 +79,9 @@ PROGRAM UFS
       TYPE(ESMF_Config) :: CF_MAIN                                         !<-- The Configure object
 !
       CHARACTER(ESMF_MAXSTR) :: MESSAGE_CHECK
+!
+      CHARACTER(len=MPI_MAX_LIBRARY_VERSION_STRING) :: library_version
+      INTEGER :: resultlen
 !
       INTEGER :: RC, RC_USER                                               !<-- The running error signal
 !
@@ -122,7 +125,12 @@ PROGRAM UFS
 !***  Print subversion version and other status information.
 !-----------------------------------------------------------------------
 !
-      if (mype==0) call w3tagb('ufs      ',0000,0000,0000,'np23   ')
+      if (mype == 0) then
+        call w3tagb('ufs-weather-model',0,0,0,'np23')
+        call MPI_Get_library_version(library_version, resultlen, rc)
+        write(*,'(A,A)')      'MPI Library = ', library_version(1:resultlen)
+        write(*,'(A,I0,A,I0)')'MPI Version = ', mpi_version,'.',mpi_subversion
+      endif
 !
 !-----------------------------------------------------------------------
 !***  Set up the default log.

diff --git a/stochastic_physics b/stochastic_physics
diff --git a/tests/ci/repo_check.sh b/tests/ci/repo_check.sh
@@ -13,8 +13,8 @@ result() {
 }
 
 # Declare variables
-declare -A base fv3 mom6 cice ww3 stoch gocart cmeps cdeps hycom cmake ccpp-framework ccpp-physics upp atmos_cubed_sphere
-submodules="fv3 mom6 cice ww3 stoch gocart cmeps cdeps hycom cmake ccpp-framework ccpp-physics upp atmos_cubed_sphere"
+declare -A base fv3 mom6 cice ww3 stoch gocart cmeps cdeps hycom cmake ccpp-framework ccpp-physics atmos_cubed_sphere
+submodules="fv3 mom6 cice ww3 stoch gocart cmeps cdeps hycom cmake ccpp-framework ccpp-physics atmos_cubed_sphere"
 comment=''
 ownerID=$1
 
@@ -44,7 +44,7 @@ stoch[branch]='master'
 stoch[dir]='stochastic_physics'
 
 gocart[repo]='https://github.com/GEOS-ESM/GOCART'
-gocart[branch]='main'
+gocart[branch]='develop'
 gocart[dir]='GOCART'
 
 cmeps[repo]='https://github.com/NOAA-EMC/CMEPS'
@@ -65,19 +65,19 @@ cmake[dir]='CMakeModules'
 
 ccpp-framework[repo]='https://github.com/NCAR/ccpp-framework'
 ccpp-framework[branch]='main'
-ccpp-framework[dir]='ccpp/framework'
+ccpp-framework[dir]='FV3/ccpp/framework'
 
 ccpp-physics[repo]='https://github.com/ufs-community/ccpp-physics'
 ccpp-physics[branch]='ufs/dev'
-ccpp-physics[dir]='ccpp/physics'
+ccpp-physics[dir]='FV3/ccpp/physics'
 
-upp[repo]='https://github.com/NOAA-EMC/UPP'
-upp[branch]='develop'
-upp[dir]='upp'
+#upp[repo]='https://github.com/NOAA-EMC/UPP'
+#upp[branch]='develop'
+#upp[dir]='upp'
 
 atmos_cubed_sphere[repo]='https://github.com/NOAA-GFDL/GFDL_atmos_cubed_sphere'
-atmos_cubed_sphere[branch]='main'
-atmos_cubed_sphere[dir]='atmos_cubed_sphere'
+atmos_cubed_sphere[branch]='dev/emc'
+atmos_cubed_sphere[dir]='FV3/atmos_cubed_sphere'
 
 # Get sha-1's of the top of develop of ufs-weather-model
 app="Accept: application/vnd.github.v3+json"
+1 −0		CMakeLists.txt
+1 −1		atmos_model.F90
+1 −0		ccpp/config/ccpp_prebuild_config.py
+7 −21		ccpp/data/GFS_typedefs.F90
+1 −1		ccpp/data/GFS_typedefs.meta
+1 −1		ccpp/framework
+1 −1		ccpp/physics
+6 −4		io/module_write_netcdf.F90
+4 −4		io/module_write_restart_netcdf.F90
+13 −7		io/module_wrt_grid_comp.F90
+3 −3		io/post_fv3.F90
+3 −3		module_fcst_grid_comp.F90
+3 −2		module_fv3_config.F90
+3 −1		cellular_automata_global.F90
+3 −1		cellular_automata_sgs.F90
+6 −5		mpi_wrapper.F90
+6 −2		stochastic_physics.F90