Skip to content

Commit

Permalink
fix inconsistent spacing for assignments
Browse files Browse the repository at this point in the history
  • Loading branch information
rem1776 authored and rem1776 committed Sep 3, 2024
1 parent 0d62e33 commit 06388e9
Showing 1 changed file with 33 additions and 33 deletions.
66 changes: 33 additions & 33 deletions horiz_interp/horiz_interp_type.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -168,36 +168,36 @@ subroutine horiz_interp_type_eq(horiz_interp_out, horiz_interp_in)
horiz_interp_out%ilon = horiz_interp_in%ilon

if( allocated(horiz_interp_out%jlat )) &
horiz_interp_out%jlat = horiz_interp_in%jlat
horiz_interp_out%jlat = horiz_interp_in%jlat

if( allocated(horiz_interp_out%i_lon )) &
horiz_interp_out%i_lon = horiz_interp_in%i_lon
horiz_interp_out%i_lon = horiz_interp_in%i_lon

if( allocated(horiz_interp_out%j_lat )) &
horiz_interp_out%j_lat = horiz_interp_in%j_lat
horiz_interp_out%j_lat = horiz_interp_in%j_lat

if( allocated(horiz_interp_out%found_neighbors )) &
horiz_interp_out%found_neighbors = horiz_interp_in%found_neighbors

if( allocated(horiz_interp_out%num_found )) &
horiz_interp_out%num_found = horiz_interp_in%num_found
horiz_interp_out%num_found = horiz_interp_in%num_found

if( allocated(horiz_interp_out%i_src )) &
horiz_interp_out%i_src = horiz_interp_in%i_src
horiz_interp_out%i_src = horiz_interp_in%i_src

if( allocated(horiz_interp_out%j_src )) &
horiz_interp_out%j_src = horiz_interp_in%j_src
horiz_interp_out%j_src = horiz_interp_in%j_src

if( allocated(horiz_interp_out%i_dst )) &
horiz_interp_out%i_dst = horiz_interp_in%i_dst
horiz_interp_out%i_dst = horiz_interp_in%i_dst

if( allocated(horiz_interp_out%j_dst )) &
horiz_interp_out%j_dst = horiz_interp_in%j_dst
horiz_interp_out%j_dst = horiz_interp_in%j_dst

horiz_interp_out%nlon_src = horiz_interp_in%nlon_src
horiz_interp_out%nlat_src = horiz_interp_in%nlat_src
horiz_interp_out%nlon_dst = horiz_interp_in%nlon_dst
horiz_interp_out%nlat_dst = horiz_interp_in%nlat_dst
horiz_interp_out%nlon_src = horiz_interp_in%nlon_src
horiz_interp_out%nlat_src = horiz_interp_in%nlat_src
horiz_interp_out%nlon_dst = horiz_interp_in%nlon_dst
horiz_interp_out%nlat_dst = horiz_interp_in%nlat_dst
horiz_interp_out%interp_method = horiz_interp_in%interp_method
horiz_interp_out%I_am_initialized = .true.

Expand Down Expand Up @@ -228,67 +228,67 @@ subroutine horiz_interp_type_eq(horiz_interp_out, horiz_interp_in)
horiz_interp_out%horizInterpReals8_type%rat_x = horiz_interp_in%horizInterpReals8_type%rat_x

if( allocated( horiz_interp_out%horizInterpReals8_type%rat_y)) &
horiz_interp_out%horizInterpReals8_type%rat_y = horiz_interp_in%horizInterpReals8_type%rat_y
horiz_interp_out%horizInterpReals8_type%rat_y = horiz_interp_in%horizInterpReals8_type%rat_y

if( allocated( horiz_interp_out%horizInterpReals8_type%lon_in)) &
horiz_interp_out%horizInterpReals8_type%lon_in = horiz_interp_in%horizInterpReals8_type%lon_in
horiz_interp_out%horizInterpReals8_type%lon_in = horiz_interp_in%horizInterpReals8_type%lon_in

if( allocated( horiz_interp_out%horizInterpReals8_type%lat_in)) &
horiz_interp_out%horizInterpReals8_type%lat_in = horiz_interp_in%horizInterpReals8_type%lat_in
horiz_interp_out%horizInterpReals8_type%lat_in = horiz_interp_in%horizInterpReals8_type%lat_in

if( allocated( horiz_interp_out%horizInterpReals8_type%area_frac_dst)) &
horiz_interp_out%horizInterpReals8_type%area_frac_dst = horiz_interp_in%horizInterpReals8_type%area_frac_dst
horiz_interp_out%horizInterpReals8_type%area_frac_dst = horiz_interp_in%horizInterpReals8_type%area_frac_dst

horiz_interp_out%horizInterpReals8_type%max_src_dist = horiz_interp_in%horizInterpReals8_type%max_src_dist
horiz_interp_out%horizInterpReals8_type%max_src_dist = horiz_interp_in%horizInterpReals8_type%max_src_dist

horiz_interp_out%horizInterpReals8_type%is_allocated = .true.
horiz_interp_out%horizInterpReals8_type%is_allocated = .true.
! this was left out previous to mixed mode
if( allocated(horiz_interp_out%horizInterpReals8_type%mask_in)) &
horiz_interp_out%horizInterpReals8_type%mask_in = horiz_interp_in%horizInterpReals8_type%mask_in
horiz_interp_out%horizInterpReals8_type%mask_in = horiz_interp_in%horizInterpReals8_type%mask_in

else if (horiz_interp_in%horizInterpReals4_type%is_allocated) then
if( allocated(horiz_interp_out%horizInterpReals4_type%faci)) &
horiz_interp_out%horizInterpReals4_type%faci = horiz_interp_in%horizInterpReals4_type%faci
horiz_interp_out%horizInterpReals4_type%faci = horiz_interp_in%horizInterpReals4_type%faci

if( allocated( horiz_interp_out%horizInterpReals4_type%facj)) &
horiz_interp_out%horizInterpReals4_type%facj = horiz_interp_in%horizInterpReals4_type%facj
horiz_interp_out%horizInterpReals4_type%facj = horiz_interp_in%horizInterpReals4_type%facj

if( allocated( horiz_interp_out%horizInterpReals4_type%area_src)) &
horiz_interp_out%horizInterpReals4_type%area_src = horiz_interp_in%horizInterpReals4_type%area_src
horiz_interp_out%horizInterpReals4_type%area_src = horiz_interp_in%horizInterpReals4_type%area_src

if( allocated( horiz_interp_out%horizInterpReals4_type%area_dst)) &
horiz_interp_out%horizInterpReals4_type%area_dst = horiz_interp_in%horizInterpReals4_type%area_dst
horiz_interp_out%horizInterpReals4_type%area_dst = horiz_interp_in%horizInterpReals4_type%area_dst

if( allocated( horiz_interp_out%horizInterpReals4_type%wti)) &
horiz_interp_out%horizInterpReals4_type%wti = horiz_interp_in%horizInterpReals4_type%wti
horiz_interp_out%horizInterpReals4_type%wti = horiz_interp_in%horizInterpReals4_type%wti

if( allocated( horiz_interp_out%horizInterpReals4_type%wtj)) &
horiz_interp_out%horizInterpReals4_type%wtj = horiz_interp_in%horizInterpReals4_type%wtj
horiz_interp_out%horizInterpReals4_type%wtj = horiz_interp_in%horizInterpReals4_type%wtj

if( allocated( horiz_interp_out%horizInterpReals4_type%src_dist)) &
horiz_interp_out%horizInterpReals4_type%src_dist = horiz_interp_in%horizInterpReals4_type%src_dist
horiz_interp_out%horizInterpReals4_type%src_dist = horiz_interp_in%horizInterpReals4_type%src_dist

if( allocated( horiz_interp_out%horizInterpReals4_type%rat_x)) &
horiz_interp_out%horizInterpReals4_type%rat_x = horiz_interp_in%horizInterpReals4_type%rat_x
horiz_interp_out%horizInterpReals4_type%rat_x = horiz_interp_in%horizInterpReals4_type%rat_x

if( allocated( horiz_interp_out%horizInterpReals4_type%rat_y)) &
horiz_interp_out%horizInterpReals4_type%rat_y = horiz_interp_in%horizInterpReals4_type%rat_y
horiz_interp_out%horizInterpReals4_type%rat_y = horiz_interp_in%horizInterpReals4_type%rat_y

if( allocated( horiz_interp_out%horizInterpReals4_type%lon_in)) &
horiz_interp_out%horizInterpReals4_type%lon_in = horiz_interp_in%horizInterpReals4_type%lon_in
horiz_interp_out%horizInterpReals4_type%lon_in = horiz_interp_in%horizInterpReals4_type%lon_in

if( allocated( horiz_interp_out%horizInterpReals4_type%lat_in)) &
horiz_interp_out%horizInterpReals4_type%lat_in = horiz_interp_in%horizInterpReals4_type%lat_in
horiz_interp_out%horizInterpReals4_type%lat_in = horiz_interp_in%horizInterpReals4_type%lat_in

if( allocated( horiz_interp_out%horizInterpReals4_type%area_frac_dst)) &
horiz_interp_out%horizInterpReals4_type%area_frac_dst = horiz_interp_in%horizInterpReals4_type%area_frac_dst

horiz_interp_out%horizInterpReals4_type%max_src_dist = horiz_interp_in%horizInterpReals4_type%max_src_dist
horiz_interp_out%horizInterpReals4_type%max_src_dist = horiz_interp_in%horizInterpReals4_type%max_src_dist

horiz_interp_out%horizInterpReals4_type%is_allocated = .true.
horiz_interp_out%horizInterpReals4_type%is_allocated = .true.
! this was left out previous to mixed mode
if( allocated(horiz_interp_out%horizInterpReals4_type%mask_in)) &
horiz_interp_out%horizInterpReals4_type%mask_in = horiz_interp_in%horizInterpReals4_type%mask_in
horiz_interp_out%horizInterpReals4_type%mask_in = horiz_interp_in%horizInterpReals4_type%mask_in

else
call mpp_error(FATAL, "horiz_interp_type_eq: cannot assign unallocated real values from horiz_interp_in")
Expand Down

0 comments on commit 06388e9

Please sign in to comment.