fix: change syntax for multi-line strings to work with cray compiler (#…

…1554)

diag_manager/diag_data.F90

@@ -611,8 +611,8 @@ function get_var_type(var) &
     type is (character(len=*))
       var_type = string
     class default
-      call mpp_error(FATAL, "get_var_type:: The variable does not have a supported type. "&
-                           &"The supported types are r4, r8, i4, i8 and string.")
+      call mpp_error(FATAL, "get_var_type:: The variable does not have a supported type. &
+                            &The supported types are r4, r8, i4, i8 and string.")
     end select
   end function get_var_type
 

diag_manager/fms_diag_axis_object.F90

@@ -1033,8 +1033,8 @@ subroutine check_if_valid_domain_position(domain_position)
     select case (domain_position)
     case (CENTER, NORTH, EAST)
     case default
-        call mpp_error(FATAL, "diag_axit_init: Invalid domain_positon. "&
-                             "The acceptable values are NORTH, EAST, CENTER")
+        call mpp_error(FATAL, "diag_axit_init: Invalid domain_positon. &
+                              &The acceptable values are NORTH, EAST, CENTER")
     end select
   end subroutine check_if_valid_domain_position
 
@@ -1045,8 +1045,8 @@ subroutine check_if_valid_direction(direction)
     select case(direction)
     case(-1, 0, 1)
     case default
-      call mpp_error(FATAL, "diag_axit_init: Invalid direction. "&
-                             "The acceptable values are-1 0 1")
+      call mpp_error(FATAL, "diag_axit_init: Invalid direction. &
+                            &The acceptable values are-1 0 1")
     end select
   end subroutine check_if_valid_direction
 

diag_manager/fms_diag_field_object.F90

@@ -383,18 +383,18 @@ subroutine fms_register_diag_field_obj &
 
   if (present(area)) then
     if (area < 0) call mpp_error("fms_register_diag_field_obj", &
-                     "The area id passed with field_name"//trim(varname)//" has not been registered."&
-                     "Check that there is a register_diag_field call for the AREA measure and that is in the"&
-                     "diag_table.yaml", FATAL)
+                     "The area id passed with field_name"//trim(varname)//" has not been registered. &
+                     &Check that there is a register_diag_field call for the AREA measure and that is in the &
+                     &diag_table.yaml", FATAL)
     allocate(this%area)
     this%area = area
   endif
 
   if (present(volume)) then
     if (volume < 0) call mpp_error("fms_register_diag_field_obj", &
-                     "The volume id passed with field_name"//trim(varname)//" has not been registered."&
-                     "Check that there is a register_diag_field call for the VOLUME measure and that is in the"&
-                     "diag_table.yaml", FATAL)
+                     "The volume id passed with field_name"//trim(varname)//" has not been registered. &
+                     &Check that there is a register_diag_field call for the VOLUME measure and that is in the &
+                     &diag_table.yaml", FATAL)
     allocate(this%volume)
     this%volume = volume
   endif
@@ -1610,19 +1610,19 @@ subroutine add_area_volume(this, area, volume)
     if (area > 0) then
       this%area = area
     else
-      call mpp_error(FATAL, "diag_field_add_cell_measures: the area id is not valid. "&
-                           &"Verify that the area_id passed in to the field:"//this%varname//&
-                           &" is valid and that the field is registered and in the diag_table.yaml")
+      call mpp_error(FATAL, "diag_field_add_cell_measures: the area id is not valid. &
+                            &Verify that the area_id passed in to the field:"//this%varname// &
+                            " is valid and that the field is registered and in the diag_table.yaml")
     endif
   endif
 
   if (present(volume)) then
     if (volume > 0) then
       this%volume = volume
     else
-      call mpp_error(FATAL, "diag_field_add_cell_measures: the volume id is not valid. "&
-                           &"Verify that the volume_id passed in to the field:"//this%varname//&
-                           &" is valid and that the field is registered and in the diag_table.yaml")
+      call mpp_error(FATAL, "diag_field_add_cell_measures: the volume id is not valid. &
+                            &Verify that the volume_id passed in to the field:"//this%varname// &
+                            " is valid and that the field is registered and in the diag_table.yaml")
     endif
   endif
 

diag_manager/fms_diag_file_object.F90

@@ -1018,8 +1018,8 @@ subroutine add_start_time(this, start_time)
     !! this%start_time was already updated so make sure it is the same for the current variable
     !! or error out
     if (this%start_time .ne. start_time)&
-      call mpp_error(FATAL, "The variables associated with the file:"//this%get_file_fname()//" have"&
-      &" different start_time")
+      call mpp_error(FATAL, "The variables associated with the file:"//this%get_file_fname()//" have &
+                            &different start_time")
   else
     !> If the this%start_time is equal to the diag_init_time,
     !! simply update it with the start_time and set up the *_output variables

diag_manager/fms_diag_input_buffer.F90

@@ -133,8 +133,8 @@ function allocate_input_buffer_object(this, input_data, axis_ids, diag_axis) &
       allocate(integer(kind=i4_kind) :: this%buffer(length(1), length(2), length(3), length(4)))
       this%buffer = 0_i8_kind
     class default
-      err_msg = "The data input is not one of the supported types."&
-        "Only r4, r8, i4, and i8 types are supported."
+      err_msg = "The data input is not one of the supported types. &
+                &Only r4, r8, i4, and i8 types are supported."
     end select
 
     this%weight = 1.0_r8_kind

diag_manager/fms_diag_object.F90

@@ -511,8 +511,8 @@ FUNCTION fms_diag_axis_init(this, axis_name, axis_data, units, cart_name, axis_l
   type is (fmsDiagFullAxis_type)
     if(present(edges)) then
       if (edges < 0 .or. edges > this%registered_axis) &
-        call mpp_error(FATAL, "diag_axit_init: The edge axis has not been defined. "&
-                               "Call diag_axis_init for the edge axis first")
+        call mpp_error(FATAL, "diag_axit_init: The edge axis has not been defined. &
+                              &Call diag_axis_init for the edge axis first")
       select type (edges_axis => this%diag_axis(edges)%axis)
       type is (fmsDiagFullAxis_type)
         edges_name = edges_axis%get_axis_name()

diag_manager/fms_diag_yaml.F90

@@ -936,8 +936,8 @@ function set_valid_time_units(time_units, error_msg) &
     time_units_int = DIAG_YEARS
   case default
     time_units_int =DIAG_NULL
-    call mpp_error(FATAL, trim(error_msg)//" is not valid. Acceptable values are "&
-                   "seconds, minutes, hours, days, months, years")
+    call mpp_error(FATAL, trim(error_msg)//" is not valid. Acceptable values are &
+                          &seconds, minutes, hours, days, months, years")
   end select
 end function set_valid_time_units
 

fms2_io/netcdf_io.F90

@@ -1090,8 +1090,8 @@ subroutine netcdf_save_restart(fileobj, unlim_dim_level)
   integer :: i
 
   if (.not. fileobj%is_restart) then
-    call error("write_restart:: file "//trim(fileobj%path)//" is not a restart file."&
-              &" Be sure the file was opened with is_restart=.true.")
+    call error("write_restart:: file "//trim(fileobj%path)//" is not a restart file. &
+               &Be sure the file was opened with is_restart=.true.")
   endif
   do i = 1, fileobj%num_restart_vars
     if (associated(fileobj%restart_vars(i)%data0d)) then
@@ -1132,8 +1132,8 @@ subroutine netcdf_restore_state(fileobj, unlim_dim_level)
   integer :: i
 
   if (.not. fileobj%is_restart) then
-    call error("read_restart:: file "//trim(fileobj%path)//" is not a restart file."&
-              &" Be sure the file was opened with is_restart=.true.")
+    call error("read_restart:: file "//trim(fileobj%path)//" is not a restart file. &
+               &Be sure the file was opened with is_restart=.true.")
   endif
   do i = 1, fileobj%num_restart_vars
     if (associated(fileobj%restart_vars(i)%data0d)) then
@@ -1283,8 +1283,8 @@ subroutine get_dimension_names(fileobj, names, broadcast)
     ndims = get_num_dimensions(fileobj, broadcast=.false.)
     if (ndims .gt. 0) then
       if (size(names) .ne. ndims) then
-        call error("'names' has to be the same size of the number of dimensions."&
-                   &" Check your get_dimension_names call for file "//trim(fileobj%path))
+        call error("'names' has to be the same size of the number of dimensions. &
+                   &Check your get_dimension_names call for file "//trim(fileobj%path))
       endif
     else
       call error("get_dimension_names: the file "//trim(fileobj%path)//" does not have any dimensions")
@@ -1304,8 +1304,8 @@ subroutine get_dimension_names(fileobj, names, broadcast)
   if (.not. fileobj%is_root) then
     if (ndims .gt. 0) then
       if (size(names) .ne. ndims) then
-        call error("'names' has to be the same size of the number of dimensions."&
-                   &" Check your get_dimension_names call for file "//trim(fileobj%path))
+        call error("'names' has to be the same size of the number of dimensions. &
+                   &Check your get_dimension_names call for file "//trim(fileobj%path))
       endif
     else
       call error("get_dimension_names: the file "//trim(fileobj%path)//" does not have any dimensions")
@@ -1507,8 +1507,8 @@ subroutine get_variable_names(fileobj, names, broadcast)
     nvars = get_num_variables(fileobj, broadcast=.false.)
     if (nvars .gt. 0) then
       if (size(names) .ne. nvars) then
-        call error("'names' has to be the same size of the number of variables."&
-                   &" Check your get_variable_names call for file "//trim(fileobj%path))
+        call error("'names' has to be the same size of the number of variables. &
+                   &Check your get_variable_names call for file "//trim(fileobj%path))
       endif
     else
       call error("get_variable_names: the file "//trim(fileobj%path)//" does not have any variables")
@@ -1528,8 +1528,8 @@ subroutine get_variable_names(fileobj, names, broadcast)
   if (.not. fileobj%is_root) then
     if (nvars .gt. 0) then
       if (size(names) .ne. nvars) then
-        call error("'names' has to be the same size of the number of variables."&
-                   &" Check your get_variable_names call for file "//trim(fileobj%path))
+        call error("'names' has to be the same size of the number of variables. &
+                   &Check your get_variable_names call for file "//trim(fileobj%path))
       endif
     else
       call error("get_variable_names: the file "//trim(fileobj%path)//" does not have any variables")
@@ -1641,9 +1641,9 @@ subroutine get_variable_dimension_names(fileobj, variable_name, dim_names, &
     call check_netcdf_code(err, append_error_msg)
     if (ndims .gt. 0) then
       if (size(dim_names) .ne. ndims) then
-        call error("'names' has to be the same size of the number of dimensions for the variable."&
-                   &" Check your get_variable_dimension_names call for file "//trim(fileobj%path)//&
-                   &" and variable:"//trim(variable_name))
+        call error("'names' has to be the same size of the number of dimensions for the variable. &
+                   &Check your get_variable_dimension_names call for file "//trim(fileobj%path)// &
+                   " and variable:"//trim(variable_name))
       endif
     else
       call error("get_variable_dimension_names: the variable: "//trim(variable_name)//" in file: "//trim(fileobj%path)&
@@ -1664,9 +1664,9 @@ subroutine get_variable_dimension_names(fileobj, variable_name, dim_names, &
   if (.not. fileobj%is_root) then
     if (ndims .gt. 0) then
       if (size(dim_names) .ne. ndims) then
-        call error("'names' has to be the same size of the number of dimensions for the variable."&
-                   &" Check your get_variable_dimension_names call for file "//trim(fileobj%path)//&
-                   &" and variable:"//trim(variable_name))
+        call error("'names' has to be the same size of the number of dimensions for the variable. &
+                   & Check your get_variable_dimension_names call for file "//trim(fileobj%path)// &
+                   " and variable:"//trim(variable_name))
       endif
     else
       call error("get_variable_dimension_names: the variable: "//trim(variable_name)//" in file: "//trim(fileobj%path)&
@@ -1707,9 +1707,9 @@ subroutine get_variable_size(fileobj, variable_name, dim_sizes, broadcast)
     call check_netcdf_code(err, append_error_msg)
     if (ndims .gt. 0) then
       if (size(dim_sizes) .ne. ndims) then
-        call error("'dim_sizes' has to be the same size of the number of dimensions for the variable."&
-                   &" Check your get_variable_size call for file "//trim(fileobj%path)//&
-                   &" and variable:"//trim(variable_name))
+        call error("'dim_sizes' has to be the same size of the number of dimensions for the variable. &
+                   &Check your get_variable_size call for file "//trim(fileobj%path)// &
+                   " and variable:"//trim(variable_name))
       endif
     else
       call error("get_variable_size: the variable: "//trim(variable_name)//" in file: "//trim(fileobj%path)//&
@@ -1729,9 +1729,9 @@ subroutine get_variable_size(fileobj, variable_name, dim_sizes, broadcast)
   if (.not. fileobj%is_root) then
     if (ndims .gt. 0) then
       if (size(dim_sizes) .ne. ndims) then
-        call error("'dim_sizes' has to be the same size of the number of dimensions for the variable."&
-                   &" Check your get_variable_size call for file "//trim(fileobj%path)//&
-                   &" and variable:"//trim(variable_name))
+        call error("'dim_sizes' has to be the same size of the number of dimensions for the variable. &
+                   &Check your get_variable_size call for file "//trim(fileobj%path)// &
+                   " and variable:"//trim(variable_name))
       endif
     else
       call error("get_variable_size: the variable: "//trim(variable_name)//" in file: "//trim(fileobj%path)//&
@@ -2227,8 +2227,8 @@ function is_registered_to_restart(fileobj, variable_name) &
   integer :: i
 
   if (.not. fileobj%is_restart) then
-    call error("file "//trim(fileobj%path)//" is not a restart file. "&
-              //"Add is_restart=.true. to your open_file call")
+    call error("file "//trim(fileobj%path)//" is not a restart file. &
+               &Add is_restart=.true. to your open_file call")
   endif
   is_registered = .false.
   do i = 1, fileobj%num_restart_vars
@@ -2320,8 +2320,8 @@ subroutine write_restart_bc(fileobj, unlim_dim_level)
   integer :: i !< No description
 
   if (.not. fileobj%is_restart) then
-    call error("file "//trim(fileobj%path)//" is not a restart file. "&
-               &"Add is_restart=.true. to your open_file call")
+    call error("file "//trim(fileobj%path)//" is not a restart file. &
+               &Add is_restart=.true. to your open_file call")
   endif
 
  !> Loop through the variables, root pe gathers the data from the other pes and writes out the checksum.