Merge remote-tracking branch 'origin/remove-messages' into remove-messages

Author: peverwhee

bld/namelist_files/namelist_defaults_cam.xml

@@ -37,6 +37,7 @@
 <ncdata nlev="58" analytic_ic="1" >atm/cam/inic/cam_vcoords_L58_c250227.nc</ncdata>
 
 <!-- Vertical/Horizontal coordinates only - MPAS initial files for analytic cases-->
+<ncdata hgrid="mpasa120" nlev="26" analytic_ic="1" >atm/cam/inic/mpas/mpasa120_L26_notopo_coords_c251105.nc</ncdata>
 <ncdata hgrid="mpasa480" nlev="32" analytic_ic="1" >atm/cam/inic/mpas/mpasa480_L32_notopo_coords_c240507.nc</ncdata>
 <ncdata hgrid="mpasa120" nlev="32" analytic_ic="1" >atm/cam/inic/mpas/mpasa120_L32_notopo_coords_c240507.nc</ncdata>
 <ncdata hgrid="mpasa60"  nlev="32" analytic_ic="1" >atm/cam/inic/mpas/mpasa60_L32_notopo_coords_c240507.nc</ncdata>

src/chemistry/geoschem/chemistry.F90

@@ -949,8 +949,6 @@ function chem_implements_cnst(name)
     ! Purpose: return true if specified constituent is implemented by this package
     ! Author: B. Eaton
 
-    IMPLICIT NONE
-
     CHARACTER(LEN=*), INTENT(IN) :: name   ! constituent name
     LOGICAL :: chem_implements_cnst        ! return value
     INTEGER :: M
@@ -4640,12 +4638,8 @@ subroutine chem_init_restart(File)
     use tracer_cnst,      only : init_tracer_cnst_restart
     use tracer_srcs,      only : init_tracer_srcs_restart
 
-    IMPLICIT NONE
-
     TYPE(file_desc_t) :: File
 
-    WRITE(iulog,'(a)') 'chem_init_restart: init restarts for tracer sources and offline fields'
-
     !
     ! data for offline tracers
     !
@@ -4665,12 +4659,8 @@ subroutine chem_write_restart( File )
     use tracer_cnst, only : write_tracer_cnst_restart
     use tracer_srcs, only : write_tracer_srcs_restart
 
-    IMPLICIT NONE
-
     TYPE(file_desc_t) :: File
 
-    WRITE(iulog,'(a)') 'chem_write_restart: writing restarts for tracer sources and offline fields'
-
     ! data for offline tracers
     call write_tracer_cnst_restart(File)
     call write_tracer_srcs_restart(File)
@@ -4687,12 +4677,8 @@ subroutine chem_read_restart( File )
     use tracer_cnst, only : read_tracer_cnst_restart
     use tracer_srcs, only : read_tracer_srcs_restart
 
-    IMPLICIT NONE
-
     TYPE(file_desc_t) :: File
 
-    WRITE(iulog,'(a)') 'GCCALL CHEM_READ_RESTART'
-
     ! data for offline tracers
     call read_tracer_cnst_restart(File)
     call read_tracer_srcs_restart(File)