switch to use fms implementation of mpp (#732)

io/module_wrt_grid_comp.F90

@@ -29,7 +29,6 @@ module module_wrt_grid_comp
       use mpi
       use esmf
       use fms
-      use mpp_mod, only : mpp_init   ! needed for fms 2023.02
 
       use write_internal_state
       use module_fv3_io_def,   only : num_pes_fcst,                             &
@@ -253,7 +252,6 @@ subroutine wrt_initialize_p1(wrt_comp, imp_state_write, exp_state_write, clock,
       lprnt = lead_write_task == wrt_int_state%mype
 
       call fms_init(wrt_mpi_comm)
-      call mpp_init()
 
 !      print *,'in wrt, lead_write_task=', &
 !         lead_write_task,'last_write_task=',last_write_task, &
@@ -1336,7 +1334,7 @@ subroutine wrt_initialize_p1(wrt_comp, imp_state_write, exp_state_write, clock,
 
 ! save calendar_type (as integer) for use in 'coupler.res'
         if (index(trim(attNameList(i)),'time:calendar') > 0) then
-          select case( uppercase(trim(valueS)) )
+          select case( fms_mpp_uppercase(trim(valueS)) )
           case( 'JULIAN' )
               calendar_type = JULIAN
           case( 'GREGORIAN' )
@@ -1348,7 +1346,7 @@ subroutine wrt_initialize_p1(wrt_comp, imp_state_write, exp_state_write, clock,
           case( 'NO_CALENDAR' )
               calendar_type = NO_CALENDAR
           case default
-              call mpp_error ( FATAL, 'fcst_initialize: calendar must be one of '// &
+              call fms_mpp_error ( FATAL, 'fcst_initialize: calendar must be one of '// &
                                       'JULIAN|GREGORIAN|NOLEAP|THIRTY_DAY|NO_CALENDAR.' )
           end select
         endif