strings_mod Module Reference

Functions/Subroutines
logical function, public	founderror (flag, noerr, line, routine)
logical function, public	globalerror (ng, model, flag, noerr, line, routine)
logical function, public	taskerror (ng, model, flag, noerr, line, routine)
subroutine, public	standardname (sname, variable, prefix, suffix)
integer function, public	assign_string (a, string)
logical function, public	find_string (a, asize, string, aindex)
subroutine, public	join_string (a, asize, string, lstring)
character(len(sinp)) function, public	lowercase (sinp)
character(len(sinp)) function, public	uppercase (sinp)

Function/Subroutine Documentation

assign_string()

integer function, public strings_mod::assign_string	(	character (len=:), intent(inout), allocatable	a,
		character (len=*), intent(in)	string )

Definition at line 367 of file strings.F.

!
!=======================================================================
!                                                                      !
!  This routine assigns allocatable strings.  It allocates/reallocates !
!  output string variable.                                             !
!                                                                      !
!  On Input:                                                           !
!                                                                      !
!     string       String to be assigned (character)                   !
!                                                                      !
!  On Output:                                                          !
!                                                                      !
!     A            Assigned allocatable string (character)             !
!     ErrFlag      Error flag (integer)                                !
!                                                                      !
!=======================================================================
!
!  Imported variable declarations.
!
      character (len=:), allocatable, intent(inout) :: A
      character (len=*), intent(in) :: string
!
!  Local variable declarations.
!
      integer :: lstr
      integer :: ErrFlag
!
!-----------------------------------------------------------------------
!  Allocate output string to the size of input string.
!-----------------------------------------------------------------------
!
      errflag=-1
!
      lstr=len_trim(string)
      IF (.not.allocated(a)) THEN
        allocate ( character(LEN=lstr) :: A, STAT=errflag)
      ELSE
        deallocate (a)
        allocate ( character(LEN=lstr) :: A, STAT=errflag)
      END IF
!
!  Assign requested value.
!
      a=string
!
      RETURN

Referenced by get_metadata_mod::cmeps_metadata(), get_metadata_mod::coupling_metadata(), cmeps_roms_mod::roms_create(), cmeps_roms_mod::roms_export(), esmf_roms_mod::roms_export(), and mod_esmf_esm::set_metadata().

Here is the caller graph for this function:

find_string()

logical function, public strings_mod::find_string	(	character (len=*), dimension(asize), intent(in)	a,
		integer, intent(in)	asize,
		character (len=*), intent(in)	string,
		integer, intent(out)	aindex )

Definition at line 416 of file strings.F.

!
!=======================================================================
!                                                                      !
!  This logical function scans an array of type character for an       !
!  specific string.                                                    !
!                                                                      !
!  On Input:                                                           !
!                                                                      !
!     A            Array of strings (character)                        !
!     Asize        Size of A (integer)                                 !
!     string       String to search (character)                        !
!                                                                      !
!  On Output:                                                          !
!                                                                      !
!     Aindex       Array element containing the string (integer)       !
!     foundit      The value of the result is TRUE/FALSE if the        !
!                    string was found or not.                          !
!                                                                      !
!=======================================================================
!
!  Imported variable declarations.
!
      integer, intent(in) :: Asize
 
      integer, intent(out) :: Aindex
 
      character (len=*), intent(in) :: A(Asize)
      character (len=*), intent(in) :: string
!
!  Local variable declarations.
!
      logical :: foundit
 
      integer :: i
!
!-----------------------------------------------------------------------
!  Scan array for requested string.
!-----------------------------------------------------------------------
!
      foundit=.false.
      aindex=0
      DO i=1,asize
        IF (trim(a(i)).eq.trim(string)) THEN
          foundit=.true.
          aindex=i
          EXIT
        END IF
      END DO
 
      RETURN

Referenced by def_mod_mod::def_mod_nf90(), def_mod_mod::def_mod_pio(), get_grid_mod::get_grid_nf90(), get_grid_mod::get_grid_pio(), get_nudgcoef_mod::get_nudgcoef_nf90(), get_nudgcoef_mod::get_nudgcoef_pio(), get_state_mod::get_state_nf90(), get_state_mod::get_state_pio(), get_wetdry_mod::get_wetdry_nf90(), get_wetdry_mod::get_wetdry_pio(), mod_netcdf::netcdf_check_var(), mod_pio_netcdf::pio_netcdf_check_var(), stats_modobs_mod::stats_modobs_nf90(), stats_modobs_mod::stats_modobs_pio(), time_corr_mod::time_corr_nf90(), time_corr_mod::time_corr_pio(), wrt_impulse_mod::wrt_impulse_nf90(), wrt_impulse_mod::wrt_impulse_pio(), and wrt_info_mod::wrt_info::wrt_info_nf90().

Here is the caller graph for this function:

founderror()

logical function, public strings_mod::founderror	(	integer, intent(in)	flag,
		integer, intent(in)	noerr,
		integer, intent(in)	line,
		character (len=*), intent(in)	routine )

Definition at line 51 of file strings.F.

!
!=======================================================================
!                                                                      !
!  This logical function checks ROMS execution flag against no-error   !
!  code and issue a message if they are not equal.                     !
!                                                                      !
!  On Input:                                                           !
!                                                                      !
!     flag         ROMS execution flag (integer)                       !
!     NoErr        No Error code (integer)                             !
!     line         Calling model routine line (integer)                !
!     routine      Calling model routine (string)                      !
!                                                                      !
!  On Output:                                                          !
!                                                                      !
!     foundit      The value of the result is TRUE/FALSE if the        !
!                    execution flag is in error.                       !
!                                                                      !
!=======================================================================
!
      USE mod_iounits,  ONLY : stdout
      USE mod_parallel, ONLY : master
!
!  Imported variable declarations.
!
      integer, intent(in) :: flag, NoErr, line
 
      character (len=*), intent(in) :: routine
!
!  Local variable declarations.
!
      logical :: foundit
!
!-----------------------------------------------------------------------
!  Scan array for requested string.
!-----------------------------------------------------------------------
!
      foundit=.false.
      IF (flag.ne.noerr) THEN
        foundit=.true.
        IF (master) THEN
          WRITE (stdout,10) flag, line, trim(routine)
  10      FORMAT (' Found Error: ', i0, t20, 'Line: ', i0,              &
     &            t35, 'Source: ', a)
        END IF
        FLUSH (stdout)
      END IF
 
      RETURN

References mod_parallel::master, and mod_iounits::stdout.

Referenced by __interpolate_f__(), ad_nesting_mod::ad_bry_fluxes(), ad_def_his_mod::ad_def_his(), ad_def_his_mod::ad_def_his_nf90(), ad_def_his_mod::ad_def_his_pio(), ad_nesting_mod::ad_fine2coarse(), ad_nesting_mod::ad_fine2coarse2d(), ad_nesting_mod::ad_fine2coarse3d(), ad_nesting_mod::ad_get_contact3d(), ad_get_data(), ad_get_idata(), ad_nesting_mod::ad_get_persisted2d(), ad_initial(), ad_main3d(), ad_nesting_mod::ad_nesting(), ad_output(), ad_pack_tile(), ad_nesting_mod::ad_put_refine2d(), ad_nesting_mod::ad_put_refine3d(), ad_set_data_tile(), ad_wrt_his_mod::ad_wrt_his(), ad_wrt_his_mod::ad_wrt_his_nf90(), ad_wrt_his_mod::ad_wrt_his_pio(), ad_nesting_mod::ad_z_weights(), roms_kernel_mod::adm_initial(), mod_sources::allocate_sources(), mod_tides::allocate_tides(), i4dvar_mod::analysis(), r4dvar_mod::analysis(), rbl4dvar_mod::analysis(), posterior_mod::analysis_error(), rbl4dvar_mod::analysis_initialize(), i4dvar_mod::background(), r4dvar_mod::background(), rbl4dvar_mod::background(), i4dvar_mod::background_initialize(), rbl4dvar_mod::background_initialize(), bbl_output_mod::bbl_def_nf90(), bbl_output_mod::bbl_def_pio(), bbl_output_mod::bbl_def_station_nf90(), bbl_output_mod::bbl_def_station_pio(), bbl_output_mod::bbl_wrt_nf90(), bbl_output_mod::bbl_wrt_pio(), bbl_output_mod::bbl_wrt_station_nf90(), bbl_output_mod::bbl_wrt_station_pio(), nesting_mod::bry_fluxes(), cgradient_mod::cg_read_cgradient(), cgradient_mod::cg_read_cgradient_nf90(), cgradient_mod::cg_read_cgradient_pio(), congrad_mod::cg_read_congrad(), congrad_mod::cg_read_congrad_nf90(), congrad_mod::cg_read_congrad_pio(), rpcg_lanczos_mod::cg_read_rpcg(), rpcg_lanczos_mod::cg_read_rpcg_nf90(), rpcg_lanczos_mod::cg_read_rpcg_pio(), cgradient_mod::cg_write_cgradient(), cgradient_mod::cg_write_cgradient_nf90(), cgradient_mod::cg_write_cgradient_pio(), congrad_mod::cg_write_congrad(), congrad_mod::cg_write_congrad_nf90(), congrad_mod::cg_write_congrad_pio(), rpcg_lanczos_mod::cg_write_rpcg(), rpcg_lanczos_mod::cg_write_rpcg_nf90(), rpcg_lanczos_mod::cg_write_rpcg_pio(), cgradient_mod::cgradient_tile(), check_file(), check_multifile(), mod_sources::check_sources(), checkvars_mod::checkvars::checkvars_nf90(), checkvars_mod::checkvars::checkvars_pio(), close_io_mod::close_file(), close_io_mod::close_inp(), close_io_mod::close_out(), get_metadata_mod::cmeps_metadata(), comp_jb0_mod::comp_jb0_tile(), congrad_mod::congrad(), convolve_mod::convolve(), get_metadata_mod::coupling_metadata(), esmf_data_mod::data_checkfile(), esmf_data_mod::data_export(), esmf_data_mod::data_initialize(), esmf_data_mod::data_inquiry(), esmf_data_mod::data_multifile(), esmf_data_mod::data_ncread(), esmf_data_mod::data_ncvarcoords(), esmf_data_mod::data_setfinalize(), esmf_data_mod::data_setinitializep2(), esmf_data_mod::data_timeinterp(), def_avg_mod::def_avg(), def_avg_mod::def_avg_nf90(), def_avg_mod::def_avg_pio(), def_dai_mod::def_dai(), def_dai_mod::def_dai_nf90(), def_dai_mod::def_dai_pio(), def_diags_mod::def_diags(), def_diags_mod::def_diags_nf90(), def_diags_mod::def_diags_pio(), def_dim_mod::def_dim::def_dim_nf90(), def_dim_mod::def_dim::def_dim_pio(), def_error_mod::def_error(), def_error_mod::def_error_nf90(), def_error_mod::def_error_pio(), mod_esmf_esm::def_fieldatt(), def_floats_mod::def_floats(), def_floats_mod::def_floats_nf90(), def_floats_mod::def_floats_pio(), def_gst_mod::def_gst(), def_gst_mod::def_gst_nf90(), def_gst_mod::def_gst_pio(), def_hessian_mod::def_hessian(), def_hessian_mod::def_hessian_nf90(), def_hessian_mod::def_hessian_pio(), def_his_mod::def_his(), def_his_mod::def_his_nf90(), def_his_mod::def_his_pio(), def_impulse_mod::def_impulse(), def_impulse_mod::def_impulse_nf90(), def_impulse_mod::def_impulse_pio(), def_info_mod::def_info::def_info_nf90(), def_info_mod::def_info::def_info_pio(), def_ini_mod::def_ini(), def_ini_mod::def_ini_nf90(), def_ini_mod::def_ini_pio(), def_lanczos_mod::def_lanczos(), def_lanczos_mod::def_lanczos_nf90(), def_lanczos_mod::def_lanczos_pio(), def_mod_mod::def_mod(), def_mod_mod::def_mod_nf90(), def_mod_mod::def_mod_pio(), def_norm_mod::def_norm(), def_norm_mod::def_norm_nf90(), def_norm_mod::def_norm_pio(), def_quick_mod::def_quick(), def_quick_mod::def_quick_nf90(), def_quick_mod::def_quick_pio(), def_rst_mod::def_rst(), def_rst_mod::def_rst_nf90(), def_rst_mod::def_rst_pio(), def_state_mod::def_state(), def_state_mod::def_state_nf90(), def_state_mod::def_state_pio(), def_station_mod::def_station(), def_station_mod::def_station_nf90(), def_station_mod::def_station_pio(), def_tides_mod::def_tides(), def_tides_mod::def_tides_nf90(), def_tides_mod::def_tides_pio(), def_var_mod::def_var::def_var_nf90(), def_var_mod::def_var::def_var_pio(), convolve_mod::error_covariance(), inp_decode_mod::find_file(), nesting_mod::fine2coarse(), nesting_mod::fine2coarse2d(), nesting_mod::fine2coarse3d(), get_2dfld(), get_2dfld_nf90(), get_2dfld_pio(), get_2dfldr(), get_2dfldr_nf90(), get_2dfldr_pio(), get_3dfld(), get_3dfld_nf90(), get_3dfld_pio(), get_3dfldr(), get_3dfldr_nf90(), get_3dfldr_pio(), mod_esmf_esm::get_atm_ngrids(), get_cycle_mod::get_cycle::get_cycle_nf90(), get_cycle_mod::get_cycle::get_cycle_pio(), get_data(), get_grid_mod::get_grid(), get_grid_mod::get_grid_nf90(), get_grid_mod::get_grid_pio(), get_gst_mod::get_gst(), get_gst_mod::get_gst_nf90(), get_gst_mod::get_gst_pio(), get_idata(), nesting_mod::get_metrics(), get_ngfld(), get_ngfld_nf90(), get_ngfld_pio(), get_ngfldr(), get_ngfldr_nf90(), get_ngfldr_pio(), get_nudgcoef_mod::get_nudgcoef(), get_nudgcoef_mod::get_nudgcoef_nf90(), get_nudgcoef_mod::get_nudgcoef_pio(), nesting_mod::get_persisted2d(), mod_esmf_esm::get_roms_ngrids(), get_state_mod::get_state(), get_state_mod::get_state_nf90(), get_state_mod::get_state_pio(), get_varcoords_mod::get_varcoords::get_varcoords_nf90(), get_varcoords_mod::get_varcoords::get_varcoords_pio(), mod_esmf_esm::get_weights(), get_wetdry_mod::get_wetdry(), get_wetdry_mod::get_wetdry_nf90(), get_wetdry_mod::get_wetdry_pio(), cgradient_mod::hessian(), cgradient_mod::hessian_evecs(), i4dvar_mod::increment(), r4dvar_mod::increment(), rbl4dvar_mod::increment(), ini_lanczos_mod::ini_lanczos_tile(), initial(), mod_fourdvar::initialize_fourdvar(), mod_ncparam::initialize_ncparam(), set_pio_mod::initialize_pio(), inp_par_mod::inp_par(), inquiry_mod::inquiry::inquiry_nf90(), inquiry_mod::inquiry::inquiry_pio(), cgradient_mod::lanczos(), posterior_mod::lanczos(), lbc_mod::lbc_getatt::lbc_getatt_nf90(), lbc_mod::lbc_getatt::lbc_getatt_pio(), lbc_mod::lbc_putatt::lbc_putatt_nf90(), lbc_mod::lbc_putatt::lbc_putatt_pio(), main3d(), nesting_mod::mask_hweights(), multifile_info_s1d(), multifile_info_s2d(), nesting_mod::nesting(), mod_netcdf::netcdf_check_dim(), mod_netcdf::netcdf_check_var(), mod_netcdf::netcdf_get_dim(), mod_netcdf::netcdf_get_time::netcdf_get_time_0d(), mod_netcdf::netcdf_get_time::netcdf_get_time_1d(), cgradient_mod::new_cost(), cgradient_mod::new_gradient(), nf_fread2d_mod::nf_fread2d::nf90_fread2d(), nf_fread2d_bry_mod::nf_fread2d_bry::nf90_fread2d_bry(), nf_fread3d_mod::nf_fread3d::nf90_fread3d(), nf_fread3d_bry_mod::nf_fread3d_bry::nf90_fread3d_bry(), nf_fread4d_mod::nf_fread4d::nf90_fread4d(), roms_kernel_mod::nlm_initial(), normalization_mod::normalization_tile(), obs_initial_mod::obs_initial(), obs_initial_mod::obs_initial_nf90(), obs_initial_mod::obs_initial_pio(), obs_read_mod::obs_read(), obs_read_mod::obs_read_nf90(), obs_read_mod::obs_read_pio(), obs_write_mod::obs_write(), obs_write_mod::obs_write_nf90(), obs_write_mod::obs_write_pio(), output(), nf_fread2d_mod::nf_fread2d::pio_fread2d(), nf_fread2d_bry_mod::nf_fread2d_bry::pio_fread2d_bry(), nf_fread3d_mod::nf_fread3d::pio_fread3d(), nf_fread3d_bry_mod::nf_fread3d_bry::pio_fread3d_bry(), nf_fread4d_mod::nf_fread4d::pio_fread4d(), mod_pio_netcdf::pio_netcdf_check_dim(), mod_pio_netcdf::pio_netcdf_check_var(), mod_pio_netcdf::pio_netcdf_close(), mod_pio_netcdf::pio_netcdf_copy_att(), mod_pio_netcdf::pio_netcdf_create(), mod_pio_netcdf::pio_netcdf_enddef(), mod_pio_netcdf::pio_netcdf_get_dim(), mod_pio_netcdf::pio_netcdf_get_fatt::pio_netcdf_get_fatt_dp(), mod_pio_netcdf::pio_netcdf_get_fatt::pio_netcdf_get_fatt_r8(), mod_pio_netcdf::pio_netcdf_get_fvar::pio_netcdf_get_fvar_0d(), mod_pio_netcdf::pio_netcdf_get_fvar::pio_netcdf_get_fvar_0dp(), mod_pio_netcdf::pio_netcdf_get_fvar::pio_netcdf_get_fvar_1d(), mod_pio_netcdf::pio_netcdf_get_fvar::pio_netcdf_get_fvar_1dp(), mod_pio_netcdf::pio_netcdf_get_fvar::pio_netcdf_get_fvar_2d(), mod_pio_netcdf::pio_netcdf_get_fvar::pio_netcdf_get_fvar_2dp(), mod_pio_netcdf::pio_netcdf_get_fvar::pio_netcdf_get_fvar_3d(), mod_pio_netcdf::pio_netcdf_get_fvar::pio_netcdf_get_fvar_3dp(), mod_pio_netcdf::pio_netcdf_get_fvar::pio_netcdf_get_fvar_4d(), mod_pio_netcdf::pio_netcdf_get_ivar::pio_netcdf_get_ivar_0d(), mod_pio_netcdf::pio_netcdf_get_ivar::pio_netcdf_get_ivar_1d(), mod_pio_netcdf::pio_netcdf_get_ivar::pio_netcdf_get_ivar_2d(), mod_pio_netcdf::pio_netcdf_get_lvar::pio_netcdf_get_lvar_0d(), mod_pio_netcdf::pio_netcdf_get_lvar::pio_netcdf_get_lvar_1d(), mod_pio_netcdf::pio_netcdf_get_satt::pio_netcdf_get_satt_g(), mod_pio_netcdf::pio_netcdf_get_satt::pio_netcdf_get_satt_v(), mod_pio_netcdf::pio_netcdf_get_svar::pio_netcdf_get_svar_0d(), mod_pio_netcdf::pio_netcdf_get_svar::pio_netcdf_get_svar_1d(), mod_pio_netcdf::pio_netcdf_get_svar::pio_netcdf_get_svar_2d(), mod_pio_netcdf::pio_netcdf_get_svar::pio_netcdf_get_svar_3d(), mod_pio_netcdf::pio_netcdf_get_time::pio_netcdf_get_time_0d(), mod_pio_netcdf::pio_netcdf_get_time::pio_netcdf_get_time_1d(), mod_pio_netcdf::pio_netcdf_inq_var(), mod_pio_netcdf::pio_netcdf_inq_varid(), mod_pio_netcdf::pio_netcdf_open(), mod_pio_netcdf::pio_netcdf_put_fvar::pio_netcdf_put_fvar_0d(), mod_pio_netcdf::pio_netcdf_put_fvar::pio_netcdf_put_fvar_0dp(), mod_pio_netcdf::pio_netcdf_put_fvar::pio_netcdf_put_fvar_1d(), mod_pio_netcdf::pio_netcdf_put_fvar::pio_netcdf_put_fvar_1dp(), mod_pio_netcdf::pio_netcdf_put_fvar::pio_netcdf_put_fvar_2d(), mod_pio_netcdf::pio_netcdf_put_fvar::pio_netcdf_put_fvar_2dp(), mod_pio_netcdf::pio_netcdf_put_fvar::pio_netcdf_put_fvar_3d(), mod_pio_netcdf::pio_netcdf_put_fvar::pio_netcdf_put_fvar_3dp(), mod_pio_netcdf::pio_netcdf_put_fvar::pio_netcdf_put_fvar_4d(), mod_pio_netcdf::pio_netcdf_put_ivar::pio_netcdf_put_ivar_0d(), mod_pio_netcdf::pio_netcdf_put_ivar::pio_netcdf_put_ivar_1d(), mod_pio_netcdf::pio_netcdf_put_ivar::pio_netcdf_put_ivar_2d(), mod_pio_netcdf::pio_netcdf_put_lvar::pio_netcdf_put_lvar_0d(), mod_pio_netcdf::pio_netcdf_put_lvar::pio_netcdf_put_lvar_1d(), mod_pio_netcdf::pio_netcdf_put_lvar::pio_netcdf_put_lvar_2d(), mod_pio_netcdf::pio_netcdf_put_svar::pio_netcdf_put_svar_0d(), mod_pio_netcdf::pio_netcdf_put_svar::pio_netcdf_put_svar_1d(), mod_pio_netcdf::pio_netcdf_put_svar::pio_netcdf_put_svar_2d(), mod_pio_netcdf::pio_netcdf_put_svar::pio_netcdf_put_svar_3d(), mod_pio_netcdf::pio_netcdf_redef(), i4dvar_mod::posterior_analysis(), i4dvar_mod::posterior_analysis_initialize(), posterior_mod::posterior_eofs(), r4dvar_mod::posterior_error(), posterior_mod::posterior_tile(), cgradient_mod::precond(), i4dvar_mod::prior_error(), r4dvar_mod::prior_error(), rbl4dvar_mod::prior_error(), propagator_mod::propagator_afte(), propagator_mod::propagator_fsv(), propagator_mod::propagator_fte(), propagator_mod::propagator_hop(), propagator_mod::propagator_hso(), propagator_mod::propagator_op(), propagator_mod::propagator_so(), propagator_mod::propagator_so_semi(), nesting_mod::put_refine2d(), nesting_mod::put_refine3d(), normalization_mod::randomization_tile(), read_asspar(), read_fltpar(), read_phypar(), regrid_mod::regrid_nf90(), regrid_mod::regrid_pio(), cmeps_roms_mod::roms_create(), cmeps_roms_mod::roms_export(), esmf_roms_mod::roms_export(), roms_horiz_interp_2d(), roms_horiz_interp_3d(), cmeps_roms_mod::roms_import(), esmf_roms_mod::roms_import(), roms_kernel_mod::roms_initialize(), roms_kernel_mod::roms_initializep1(), roms_kernel_mod::roms_run(), roms_kernel_mod::roms_run(), rp_def_ini_mod::rp_def_ini(), rp_def_ini_mod::rp_def_ini_nf90(), rp_def_ini_mod::rp_def_ini_pio(), rp_get_data(), rp_get_idata(), rp_initial(), rp_main3d(), rp_output(), rp_set_data_tile(), rp_wrt_ini_mod::rp_wrt_ini(), rp_wrt_ini_mod::rp_wrt_ini_nf90(), rp_wrt_ini_mod::rp_wrt_ini_pio(), rpcg_lanczos_mod::rpcg_lanczos(), sediment_output_mod::sediment_def_nf90(), sediment_output_mod::sediment_def_pio(), sediment_output_mod::sediment_def_station_nf90(), sediment_output_mod::sediment_def_station_pio(), sediment_output_mod::sediment_wrt_nf90(), sediment_output_mod::sediment_wrt_pio(), sediment_output_mod::sediment_wrt_station_nf90(), sediment_output_mod::sediment_wrt_station_pio(), set_contact_mod::set_contact(), set_contact_mod::set_contact_nf90(), set_contact_mod::set_contact_pio(), set_data_tile(), set_grid(), set_pio_mod::set_iodecomp(), mod_esmf_esm::set_metadata(), state_join_mod::state_join(), state_join_mod::state_join_nf90(), state_join_mod::state_join_pio(), state_read_mod::state_read(), state_read_mod::state_read_nf90(), state_read_mod::state_read_pio(), stats_modobs_mod::stats_modobs(), stats_modobs_mod::stats_modobs_nf90(), stats_modobs_mod::stats_modobs_pio(), stdout_mod::stdout_unit(), tadv_mod::tadv_putatt::tadv_putatt_nf90(), tadv_mod::tadv_putatt::tadv_putatt_pio(), time_corr_mod::time_corr(), time_corr_mod::time_corr_nf90(), time_corr_mod::time_corr_pio(), tl_def_his_mod::tl_def_his(), tl_def_his_mod::tl_def_his_nf90(), tl_def_his_mod::tl_def_his_pio(), tl_def_ini_mod::tl_def_ini(), tl_def_ini_mod::tl_def_ini_nf90(), tl_def_ini_mod::tl_def_ini_pio(), tl_nesting_mod::tl_fine2coarse(), tl_get_data(), tl_get_idata(), tl_initial(), inner2state_mod::tl_inner2state_tile(), tl_main3d(), tl_nesting_mod::tl_nesting(), cgradient_mod::tl_new_state(), tl_output(), tl_nesting_mod::tl_put_refine2d(), tl_nesting_mod::tl_put_refine3d(), tl_set_data_tile(), tl_wrt_his_mod::tl_wrt_his(), tl_wrt_his_mod::tl_wrt_his_nf90(), tl_wrt_his_mod::tl_wrt_his_pio(), tl_wrt_ini_mod::tl_wrt_ini(), tl_wrt_ini_mod::tl_wrt_ini_nf90(), tl_wrt_ini_mod::tl_wrt_ini_pio(), tl_nesting_mod::tl_z_weights(), roms_kernel_mod::tlm_initial(), wrt_aug_imp_mod::wrt_aug_imp(), wrt_aug_imp_mod::wrt_aug_imp_nf90(), wrt_aug_imp_mod::wrt_aug_imp_pio(), wrt_avg_mod::wrt_avg(), wrt_avg_mod::wrt_avg_nf90(), wrt_avg_mod::wrt_avg_pio(), wrt_dai_mod::wrt_dai(), wrt_dai_mod::wrt_dai_nf90(), wrt_dai_mod::wrt_dai_pio(), wrt_diags_mod::wrt_diags(), wrt_diags_mod::wrt_diags_nf90(), wrt_diags_mod::wrt_diags_pio(), wrt_error_mod::wrt_error(), wrt_error_mod::wrt_error_nf90(), wrt_error_mod::wrt_error_pio(), wrt_evolved_mod::wrt_evolved(), wrt_evolved_mod::wrt_evolved_nf90(), wrt_evolved_mod::wrt_evolved_pio(), wrt_floats_mod::wrt_floats(), wrt_floats_mod::wrt_floats_nf90(), wrt_floats_mod::wrt_floats_pio(), wrt_ini_mod::wrt_frc(), wrt_ini_mod::wrt_frc_ad(), wrt_ini_mod::wrt_frc_ad_nf90(), wrt_ini_mod::wrt_frc_ad_pio(), wrt_ini_mod::wrt_frc_nf90(), wrt_ini_mod::wrt_frc_pio(), wrt_gst_mod::wrt_gst(), wrt_gst_mod::wrt_gst_nf90(), wrt_gst_mod::wrt_gst_pio(), wrt_hessian_mod::wrt_hessian(), wrt_hessian_mod::wrt_hessian_nf90(), wrt_hessian_mod::wrt_hessian_pio(), wrt_his_mod::wrt_his(), wrt_his_mod::wrt_his_nf90(), wrt_his_mod::wrt_his_pio(), wrt_impulse_mod::wrt_impulse(), wrt_impulse_mod::wrt_impulse_nf90(), wrt_impulse_mod::wrt_impulse_pio(), wrt_info_mod::wrt_info::wrt_info_nf90(), wrt_info_mod::wrt_info::wrt_info_pio(), wrt_ini_mod::wrt_ini(), wrt_ini_mod::wrt_ini_nf90(), wrt_ini_mod::wrt_ini_pio(), normalization_mod::wrt_norm2d_nf90(), normalization_mod::wrt_norm2d_pio(), normalization_mod::wrt_norm3d_nf90(), normalization_mod::wrt_norm3d_pio(), wrt_quick_mod::wrt_quick(), wrt_quick_mod::wrt_quick_nf90(), wrt_quick_mod::wrt_quick_pio(), wrt_rst_mod::wrt_rst(), wrt_rst_mod::wrt_rst_nf90(), wrt_rst_mod::wrt_rst_pio(), wrt_state_mod::wrt_state(), wrt_state_mod::wrt_state_nf90(), wrt_state_mod::wrt_state_pio(), wrt_station_mod::wrt_station(), wrt_station_mod::wrt_station_nf90(), wrt_station_mod::wrt_station_pio(), wrt_tides_mod::wrt_tides(), wrt_tides_mod::wrt_tides_nf90(), wrt_tides_mod::wrt_tides_pio(), and nesting_mod::z_weights().

Here is the caller graph for this function:

globalerror()

logical function, public strings_mod::globalerror	(	integer, intent(in)	ng,
		integer, intent(in)	model,
		integer, intent(inout)	flag,
		integer, intent(in)	noerr,
		integer, intent(in)	line,
		character (len=*), intent(in)	routine )

Definition at line 103 of file strings.F.

!
!=======================================================================
!                                                                      !
!  This logical function checks ROMS execution flag against no-error   !
!  code and issue a message if they are not equal. It can be used in   !
!  split, disjointed, distributed-memory communicators.  All process   !
!  in application needs to call this function and the master process   !
!  knows to flag value to broadcast.                                   !
!                                                                      !
!  If not distributed-memory, this function has the same capability    !
!  as FoundError.                                                      !
!                                                                      !
!  On Input:                                                           !
!                                                                      !
!     ng           Nested grid number (integer)                        !
!     model        Calling model identifier (integer)                  !
!     flag         ROMS execution flag (integer)                       !
!     NoErr        No Error code (integer)                             !
!     line         Calling model routine line (integer)                !
!     routine      Calling model routine (string)                      !
!                                                                      !
!  On Output:                                                          !
!                                                                      !
!     flag         Updated flag value to all processes (integer)       !
!     foundit      The value of the result is TRUE/FALSE if the        !
!                    execution flag is in error.                       !
!                                                                      !
!=======================================================================
!
      USE mod_parallel
      USE mod_iounits,    ONLY : stdout
 
#if defined DISTRIBUTE && defined DISJOINTED
      USE distribute_mod, ONLY : mp_barrier, mp_bcasti
#endif
!
!  Imported variable declarations.
!
      integer, intent(in) :: ng, model, NoErr, line
      integer, intent(inout) :: flag
 
      character (len=*), intent(in) :: routine
!
!  Local variable declarations.
!
      logical :: foundit
      logical :: MasterProcess
#ifdef DISTRIBUTE
      integer :: MyCOMM
#endif
!
!-----------------------------------------------------------------------
!  Set master process.
#ifdef DISTRIBUTE
!  Set distribute-memory communicator and broadcast flag value to all
!  processes.
#endif
!-----------------------------------------------------------------------
!
#ifdef DISTRIBUTE
# ifdef DISJOINTED
      mycomm=full_comm_world
      masterprocess=fullrank.eq.0
# else
      mycomm=ocn_comm_world
      masterprocess=myrank.eq.0
# endif
#else
      masterprocess=master
#endif
#if defined DISTRIBUTE && defined DISJOINTED
!
      CALL mp_bcasti (ng, model, flag, mycomm)
#endif
!
!-----------------------------------------------------------------------
!  Scan array for requested string.
!-----------------------------------------------------------------------
!
      foundit=.false.
      IF (flag.ne.noerr) THEN
        foundit=.true.
        IF (masterprocess) THEN
          WRITE (stdout,10) flag, line, trim(routine)
  10      FORMAT (' Found Error: ', i2.2, t20, 'Line: ', i0,            &
     &            t35, 'Source: ', a)
        END IF
        FLUSH (stdout)
      END IF
 
      RETURN

References mod_parallel::fullrank, mod_parallel::master, distribute_mod::mp_barrier(), mod_parallel::myrank, mod_parallel::ocn_comm_world, and mod_iounits::stdout.

Here is the call graph for this function:

join_string()

subroutine, public strings_mod::join_string	(	character (len=*), dimension(asize), intent(in)	a,
		integer, intent(in)	asize,
		character (len=*), intent(out)	string,
		integer, intent(out)	lstring )

Definition at line 469 of file strings.F.

!
!=======================================================================
!                                                                      !
!  This routine concatenate a character array into a single string     !
!  with each element separated by commas.                              !
!                                                                      !
!  On Input:                                                           !
!                                                                      !
!     A            Array of strings (character)                        !
!     Asize        Size of A (integer)                                 !
!                                                                      !
!  On Output:                                                          !
!                                                                      !
!     string       Concatenated string (character)                     !
!     Lstring      Length of concatenated string (integer)             !
!                                                                      !
!=======================================================================
!
!  Imported variable declarations.
!
      integer, intent(in) :: Asize
 
      integer, intent(out) :: Lstring
 
      character (len=*), intent(in) :: A(Asize)
      character (len=*), intent(out) :: string
!
!  Local variable declarations.
!
      integer :: i, ie, is, lstr
!
!-----------------------------------------------------------------------
!  Concatenate input character array.
!-----------------------------------------------------------------------
!
!  Initialize to blank string.
!
      lstr=len(string)
      DO i=1,lstr
        string(i:i)=' '
      END DO
!
!  Concatenate.
!
      is=1
      DO i=1,asize
        lstr=len_trim(a(i))
        IF (lstr.gt.0) THEN
          ie=is+lstr-1
          string(is:ie)=trim(a(i))
          is=ie+1
          string(is:is)=','
          is=is+2
        END IF
      END DO
      lstring=len_trim(string)-1
 
      RETURN

Referenced by def_info_mod::def_info::def_info_nf90(), and def_info_mod::def_info::def_info_pio().

Here is the caller graph for this function:

lowercase()

character (len(sinp)) function, public strings_mod::lowercase

(

character (*), intent(in)

sinp

)

Definition at line 530 of file strings.F.

!
!=======================================================================
!                                                                      !
!  This character function converts input string elements to           !
!  lowercase.                                                          !
!                                                                      !
!  On Input:                                                           !
!                                                                      !
!     Sinp       String with uppercase elements (character)            !
!                                                                      !
!  On Output:                                                          !
!                                                                      !
!     Sout       Lowercase string (character)                          !
!                                                                      !
!  Reference:                                                          !
!                                                                      !
!     Cooper Redwine, 1995: "Upgrading to Fortran 90", Springer-       !
!       Verlag, New York, pp 416.                                      !
!                                                                      !
!=======================================================================
!
!  Imported variable declarations.
!
      character (*), intent(in) :: Sinp
!
!  Local variable definitions.
!
      integer :: i, j, lstr
 
      character (LEN(Sinp)) :: Sout
 
      character (26), parameter :: Lcase = 'abcdefghijklmnopqrstuvwxyz'
      character (26), parameter :: Ucase = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
!
!-----------------------------------------------------------------------
!  Convert input string to lowercase.
!-----------------------------------------------------------------------
!
      lstr=len(sinp)
      sout=sinp
      DO i=1,lstr
        j=index(ucase, sout(i:i))
        IF (j.ne.0) THEN
          sout(i:i)=lcase(j:j)
        END IF
      END DO
 
      RETURN

Referenced by check_file(), get_metadata_mod::cmeps_metadata(), esmf_coamps_mod::coamps_processimport(), esmf_coupler_mod::coupler_executerh(), get_metadata_mod::coupling_metadata(), esmf_data_mod::data_checkfile(), esmf_data_mod::data_inquiry(), esmf_data_mod::data_ncvarcoords(), esmf_data_mod::data_setclock(), inquiry_mod::inquiry::inquiry_nf90(), inquiry_mod::inquiry::inquiry_pio(), multifile_info_s1d(), multifile_info_s2d(), mod_netcdf::netcdf_get_time::netcdf_get_time_0d(), mod_netcdf::netcdf_get_time::netcdf_get_time_1d(), mod_pio_netcdf::pio_netcdf_get_time::pio_netcdf_get_time_0d(), mod_pio_netcdf::pio_netcdf_get_time::pio_netcdf_get_time_1d(), mod_esmf_esm::read_esmconfig(), cmeps_roms_mod::roms_create(), esmf_wrf_mod::wrf_processimport::wrf_processimport_scalar(), and esmf_wrf_mod::wrf_processimport::wrf_processimport_vector().

Here is the caller graph for this function:

standardname()

subroutine, public strings_mod::standardname	(	character (len=*), intent(out)	sname,
		character (len=*), intent(in)	variable,
		character (len=*), intent(in), optional	prefix,
		character (len=*), intent(in), optional	suffix )

Definition at line 298 of file strings.F.

!
!=======================================================================
!                                                                      !
!  This routine concatenates prefix and suffix strings to generate the !
!  'standard_name' attribute. Blank spaces in the prefix are replaced  !
!  with underscore.                                                    !
!                                                                      !
!  On Input:                                                           !
!                                                                      !
!     variable     Standard name main variable (character)             !
!     prefix       Standard name prefix (OPTIONAL, character)          !
!     suffix       Standard name suffix (OPTIONAL, character)          !
!                                                                      !
!  On Output:                                                          !
!                                                                      !
!     Sname        concatenated standard name (character)              !
!                                                                      !
!=======================================================================
!
!  Imported variable declarations.
!
      character (len=*), intent(in) :: variable
      character (len=*), optional, intent(in) :: prefix
      character (len=*), optional, intent(in) :: suffix
      character (len=*), intent(out) :: Sname
!
!  Local variable declarations.
!
      integer :: Icomma, Lstr, i
!
!-----------------------------------------------------------------------
!  Generate 'standard_name' attribute.
!-----------------------------------------------------------------------
!
      DO i=1,len(sname)
        sname(i:i)=char(32)
      END DO
!
!  Replace blank space with underscore, CHAR(95).
!
      lstr=len_trim(variable)
      icomma=index(variable,char(44),back=.false.)
      IF (icomma.gt.0) THEN                               ! remove comma
        sname=variable(1:icomma-1) // variable(icomma+1:lstr)
        lstr=len_trim(sname)
      ELSE
        sname(1:lstr)=variable(1:lstr)
      END IF
!
      DO i=1,lstr
        IF (sname(i:i).eq.char(32)) THEN
          sname(i:i)=char(95)
        END IF
      END DO
!
!  Append prefix and or suffix string(s).
 
      IF (PRESENT(prefix)) THEN
        sname=trim(adjustl(prefix)) // trim(adjustl(sname))
      END IF
!
      IF (PRESENT(suffix)) THEN
        sname=trim(adjustl(sname)) // trim(adjustl(suffix))
      END IF
!
      RETURN

Referenced by mod_ncparam::initialize_ncparam(), cmeps_roms_mod::roms_setinitializep1(), and esmf_roms_mod::roms_setinitializep1().

Here is the caller graph for this function:

taskerror()

logical function, public strings_mod::taskerror	(	integer, intent(in)	ng,
		integer, intent(in)	model,
		integer, intent(inout)	flag,
		integer, intent(in)	noerr,
		integer, intent(in)	line,
		character (len=*), intent(in)	routine )

Definition at line 198 of file strings.F.

!
!=======================================================================
!                                                                      !
!  This logical function checks ROMS execution flag against no-error   !
!  code and issue a message if they are not equal. It can be used in   !
!  split, disjointed-tasks, distributed-memory communicators.  All     !
!  processes in the task section needs to call this function and its   !
!  master process knows to flag value to broadcast.                    !
!                                                                      !
!  If not distributed-memory, this function has the same capability    !
!  as FoundError and GlobalError.                                      !
!                                                                      !
!  On Input:                                                           !
!                                                                      !
!     ng           Nested grid number (integer)                        !
!     model        Calling model identifier (integer)                  !
!     flag         ROMS execution flag (integer)                       !
!     NoErr        No Error code (integer)                             !
!     line         Calling model routine line (integer)                !
!     routine      Calling model routine (string)                      !
!                                                                      !
!  On Output:                                                          !
!                                                                      !
!     flag         Updated flag value to all processes (integer)       !
!     foundit      The value of the result is TRUE/FALSE if the        !
!                    execution flag is in error.                       !
!                                                                      !
!=======================================================================
!
      USE mod_parallel
      USE mod_iounits,    ONLY : stdout
 
#if defined DISTRIBUTE && defined DISJOINTED
      USE distribute_mod, ONLY : mp_barrier, mp_bcasti
#endif
!
!  Imported variable declarations.
!
      integer, intent(in) :: ng, model, NoErr, line
      integer, intent(inout) :: flag
 
      character (len=*), intent(in) :: routine
!
!  Local variable declarations.
!
      logical :: foundit
      logical :: MasterProcess
#ifdef DISTRIBUTE
      integer :: MyCOMM
#endif
!
!-----------------------------------------------------------------------
!  Set master process.
#ifdef DISTRIBUTE
!  Set distribute-memory communicator and broadcast flag value to all
!  processes.
#endif
!-----------------------------------------------------------------------
!
#ifdef DISTRIBUTE
# ifdef DISJOINTED
#  ifdef CONCURRENT_KERNEL
      mycomm=task_comm_world
      masterprocess=taskrank.eq.0
#  else
      mycomm=full_comm_world
      masterprocess=fullrank.eq.0
#  endif
# else
      mycomm=ocn_comm_world
      masterprocess=myrank.eq.0
# endif
#else
      masterprocess=master
#endif
#if defined DISTRIBUTE && defined DISJOINTED
!
      CALL mp_bcasti (ng, model, flag, mycomm)
#endif
!
!-----------------------------------------------------------------------
!  Scan array for requested string.
!-----------------------------------------------------------------------
!
      foundit=.false.
      IF (flag.ne.noerr) THEN
        foundit=.true.
        IF (masterprocess) THEN
          WRITE (stdout,10) flag, line, trim(routine)
  10      FORMAT (' Found Error: ', i2.2, t20, 'Line: ', i0,            &
     &            t35, 'Source: ', a)
        END IF
        FLUSH (stdout)
      END IF
 
      RETURN

References mod_parallel::fullrank, mod_parallel::master, distribute_mod::mp_barrier(), mod_parallel::myrank, mod_parallel::ocn_comm_world, mod_iounits::stdout, and mod_parallel::taskrank.

Here is the call graph for this function:

uppercase()

character (len(sinp)) function, public strings_mod::uppercase

(

character (*), intent(in)

sinp

)

Definition at line 581 of file strings.F.

!
!=======================================================================
!                                                                      !
!  This character function converts input string elements to           !
!  uppercase.                                                          !
!                                                                      !
!  On Input:                                                           !
!                                                                      !
!     Sinp       String with lowercase characters (character)          !
!                                                                      !
!  On Output:                                                          !
!                                                                      !
!     Sout       Uppercase string (character)                          !
!                                                                      !
!  Reference:                                                          !
!                                                                      !
!     Cooper Redwine, 1995: "Upgrading to Fortran 90", Springer-       !
!       Verlag, New York, pp 416.                                      !
!                                                                      !
!=======================================================================
!
!  Imported variable declarations.
!
      character (*), intent(in) :: Sinp
!
!  Local variable definitions.
!
      integer :: i, j, lstr
 
      character (LEN(Sinp)) :: Sout
 
      character (26), parameter :: Lcase = 'abcdefghijklmnopqrstuvwxyz'
      character (26), parameter :: Ucase = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
!
!-----------------------------------------------------------------------
!  Convert input string to uppercase.
!-----------------------------------------------------------------------
!
      lstr=len(sinp)
      sout=sinp
      DO i=1,lstr
        j=index(lcase, sout(i:i))
        IF (j.ne.0) THEN
          sout(i:i)=ucase(j:j)
        END IF
      END DO
 
      RETURN

Referenced by checkadj(), checkdefs(), esmf_data_mod::data_inquiry(), def_mod_mod::def_mod_nf90(), def_mod_mod::def_mod_pio(), get_hash_mod::get_hash(), mod_fourdvar::initialize_fourdvar(), inp_decode_mod::load_lbc(), inp_decode_mod::load_tadv(), read_asspar(), roms_kernel_mod::roms_run(), mod_esmf_esm::set_metadata(), wclock_off(), and esmf_wrf_mod::wrf_export().

Here is the caller graph for this function: