Skip to content

Commit

Permalink
Remove remaining warnings from write_data.F90
Browse files Browse the repository at this point in the history 
Fixes ufs-community#736.
  • Loading branch information
@GeorgeGayno-NOAA
GeorgeGayno-NOAA committed Dec 15, 2022
1 parent 37e14f2 commit bc7e2e5
Showing 1 changed file with 21 additions and 21 deletions.
42 changes: 21 additions & 21 deletions sorc/chgres_cube.fd/write_data.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1445,7 +1445,7 @@ subroutine write_fv3_atm_data_netcdf(localpet)
enddo

if (localpet < num_tiles_target_grid) then
dum2d(:,:) = data_one_tile(i_start:i_end, j_start:j_end)
dum2d(:,:) = real(data_one_tile(i_start:i_end, j_start:j_end),kind=4)
error = nf90_put_var( ncid, id_lon, dum2d)
call netcdf_err(error, 'WRITING LONGITUDE RECORD' )
endif
Expand All @@ -1460,7 +1460,7 @@ subroutine write_fv3_atm_data_netcdf(localpet)
enddo

if (localpet < num_tiles_target_grid) then
dum2d(:,:) = data_one_tile(i_start:i_end, j_start:j_end)
dum2d(:,:) = real(data_one_tile(i_start:i_end, j_start:j_end),kind=4)
error = nf90_put_var( ncid, id_lat, dum2d)
call netcdf_err(error, 'WRITING LATITUDE RECORD' )
endif
Expand All @@ -1475,7 +1475,7 @@ subroutine write_fv3_atm_data_netcdf(localpet)
enddo

if (localpet < num_tiles_target_grid) then
dum2d(:,:) = data_one_tile(i_start:i_end, j_start:j_end)
dum2d(:,:) = real(data_one_tile(i_start:i_end, j_start:j_end),kind=4)
error = nf90_put_var( ncid, id_ps, dum2d)
call netcdf_err(error, 'WRITING SURFACE PRESSURE RECORD' )
endif
Expand All @@ -1500,7 +1500,7 @@ subroutine write_fv3_atm_data_netcdf(localpet)
enddo

if (localpet < num_tiles_target_grid) then
dum3d(:,:,:) = data_one_tile_3d(i_start:i_end,j_start:j_end,:)
dum3d(:,:,:) = real(data_one_tile_3d(i_start:i_end,j_start:j_end,:),kind=4)
dum3d(:,:,1:levp1_target) = dum3d(:,:,levp1_target:1:-1)
error = nf90_put_var( ncid, id_zh, dum3d)
call netcdf_err(error, 'WRITING HEIGHT RECORD' )
Expand All @@ -1526,7 +1526,7 @@ subroutine write_fv3_atm_data_netcdf(localpet)
enddo

if (localpet < num_tiles_target_grid) then
dum3d(:,:,:) = data_one_tile_3d(i_start:i_end,j_start:j_end,:)
dum3d(:,:,:) = real(data_one_tile_3d(i_start:i_end,j_start:j_end,:),kind=4)
dum3d(:,:,1:lev_target) = dum3d(:,:,lev_target:1:-1)
print*,"MIN MAX W AT WRITE = ", minval(dum3d(:,:,:)), maxval(dum3d(:,:,:))
error = nf90_put_var( ncid, id_w, dum3d)
Expand All @@ -1543,7 +1543,7 @@ subroutine write_fv3_atm_data_netcdf(localpet)
enddo

if (localpet < num_tiles_target_grid) then
dum3d(:,:,:) = data_one_tile_3d(i_start:i_end,j_start:j_end,:)
dum3d(:,:,:) = real(data_one_tile_3d(i_start:i_end,j_start:j_end,:),kind=4)
dum3d(:,:,1:lev_target) = dum3d(:,:,lev_target:1:-1)
error = nf90_put_var( ncid, id_delp, dum3d)
call netcdf_err(error, 'WRITING DELP RECORD' )
Expand All @@ -1559,7 +1559,7 @@ subroutine write_fv3_atm_data_netcdf(localpet)
enddo

if (localpet < num_tiles_target_grid) then
dum3d(:,:,:) = data_one_tile_3d(i_start:i_end,j_start:j_end,:)
dum3d(:,:,:) = real(data_one_tile_3d(i_start:i_end,j_start:j_end,:),kind=4)
dum3d(:,:,1:lev_target) = dum3d(:,:,lev_target:1:-1)
error = nf90_put_var( ncid, id_t, dum3d)
call netcdf_err(error, 'WRITING TEMPERTAURE RECORD' )
Expand All @@ -1577,7 +1577,7 @@ subroutine write_fv3_atm_data_netcdf(localpet)
enddo

if (localpet < num_tiles_target_grid) then
dum3d(:,:,:) = data_one_tile_3d(i_start:i_end,j_start:j_end,:)
dum3d(:,:,:) = real(data_one_tile_3d(i_start:i_end,j_start:j_end,:),kind=4)
dum3d(:,:,1:lev_target) = dum3d(:,:,lev_target:1:-1)
error = nf90_put_var( ncid, id_tracers(n), dum3d)
call netcdf_err(error, 'WRITING TRACER RECORD' )
Expand All @@ -1596,7 +1596,7 @@ subroutine write_fv3_atm_data_netcdf(localpet)
enddo

if (localpet < num_tiles_target_grid) then
dum3d(:,:,:) = data_one_tile_3d(i_start:i_end,j_start:j_end,:)
dum3d(:,:,:) = real(data_one_tile_3d(i_start:i_end,j_start:j_end,:),kind=4)
dum3d(:,:,1:lev_target) = dum3d(:,:,lev_target:1:-1)
error = nf90_put_var( ncid, id_qnifa, dum3d)
call netcdf_err(error, 'WRITING QNIFA RECORD' )
Expand All @@ -1612,7 +1612,7 @@ subroutine write_fv3_atm_data_netcdf(localpet)
enddo

if (localpet < num_tiles_target_grid) then
dum3d(:,:,:) = data_one_tile_3d(i_start:i_end,j_start:j_end,:)
dum3d(:,:,:) = real(data_one_tile_3d(i_start:i_end,j_start:j_end,:),kind=4)
dum3d(:,:,1:lev_target) = dum3d(:,:,lev_target:1:-1)
error = nf90_put_var( ncid, id_qnwfa, dum3d)
call netcdf_err(error, 'WRITING QNWFA RECORD' )
Expand All @@ -1639,7 +1639,7 @@ subroutine write_fv3_atm_data_netcdf(localpet)
enddo

if (localpet < num_tiles_target_grid) then
dum2d(:,:) = data_one_tile(i_start:i_end,j_start:jp1_end)
dum2d(:,:) = real(data_one_tile(i_start:i_end,j_start:jp1_end),kind=4)
error = nf90_put_var( ncid, id_lon_s, dum2d)
call netcdf_err(error, 'WRITING LON_S RECORD' )
endif
Expand All @@ -1652,7 +1652,7 @@ subroutine write_fv3_atm_data_netcdf(localpet)
enddo

if (localpet < num_tiles_target_grid) then
dum2d(:,:) = data_one_tile(i_start:i_end,j_start:jp1_end)
dum2d(:,:) = real(data_one_tile(i_start:i_end,j_start:jp1_end),kind=4)
error = nf90_put_var( ncid, id_lat_s, dum2d)
call netcdf_err(error, 'WRITING LAT_S RECORD' )
endif
Expand All @@ -1677,7 +1677,7 @@ subroutine write_fv3_atm_data_netcdf(localpet)
enddo

if (localpet < num_tiles_target_grid) then
dum3d(:,:,:) = data_one_tile_3d(i_start:i_end,j_start:jp1_end,:)
dum3d(:,:,:) = real(data_one_tile_3d(i_start:i_end,j_start:jp1_end,:),kind=4)
dum3d(:,:,1:lev_target) = dum3d(:,:,lev_target:1:-1)
print*,"MIN MAX US AT WRITE = ", minval(dum3d(:,:,:)), maxval(dum3d(:,:,:))
error = nf90_put_var( ncid, id_u_s, dum3d)
Expand All @@ -1694,7 +1694,7 @@ subroutine write_fv3_atm_data_netcdf(localpet)
enddo

if (localpet < num_tiles_target_grid) then
dum3d(:,:,:) = data_one_tile_3d(i_start:i_end,j_start:jp1_end,:)
dum3d(:,:,:) = real(data_one_tile_3d(i_start:i_end,j_start:jp1_end,:),kind=4)
dum3d(:,:,1:lev_target) = dum3d(:,:,lev_target:1:-1)
print*,"MIN MAX VS AT WRITE = ", minval(dum3d(:,:,:)), maxval(dum3d(:,:,:))
error = nf90_put_var( ncid, id_v_s, dum3d)
Expand All @@ -1721,7 +1721,7 @@ subroutine write_fv3_atm_data_netcdf(localpet)
enddo

if (localpet < num_tiles_target_grid) then
dum2d(:,:) = data_one_tile(i_start:ip1_end,j_start:j_end)
dum2d(:,:) = real(data_one_tile(i_start:ip1_end,j_start:j_end),kind=4)
error = nf90_put_var( ncid, id_lon_w, dum2d)
call netcdf_err(error, 'WRITING LON_W RECORD' )
endif
Expand All @@ -1734,7 +1734,7 @@ subroutine write_fv3_atm_data_netcdf(localpet)
enddo

if (localpet < num_tiles_target_grid) then
dum2d(:,:) = data_one_tile(i_start:ip1_end,j_start:j_end)
dum2d(:,:) = real(data_one_tile(i_start:ip1_end,j_start:j_end),kind=4)
error = nf90_put_var( ncid, id_lat_w, dum2d)
call netcdf_err(error, 'WRITING LAT_W RECORD' )
endif
Expand All @@ -1759,7 +1759,7 @@ subroutine write_fv3_atm_data_netcdf(localpet)
enddo

if (localpet < num_tiles_target_grid) then
dum3d(:,:,:) = data_one_tile_3d(i_start:ip1_end,j_start:j_end,:)
dum3d(:,:,:) = real(data_one_tile_3d(i_start:ip1_end,j_start:j_end,:),kind=4)
dum3d(:,:,1:lev_target) = dum3d(:,:,lev_target:1:-1)
print*,"MIN MAX UW AT WRITE = ", minval(dum3d(:,:,:)), maxval(dum3d(:,:,:))
error = nf90_put_var( ncid, id_u_w, dum3d)
Expand All @@ -1776,7 +1776,7 @@ subroutine write_fv3_atm_data_netcdf(localpet)
enddo

if (localpet < num_tiles_target_grid) then
dum3d(:,:,:) = data_one_tile_3d(i_start:ip1_end,j_start:j_end,:)
dum3d(:,:,:) = real(data_one_tile_3d(i_start:ip1_end,j_start:j_end,:),kind=4)
dum3d(:,:,1:lev_target) = dum3d(:,:,lev_target:1:-1)
print*,"MIN MAX VW AT WRITE = ", minval(dum3d(:,:,:)), maxval(dum3d(:,:,:))
error = nf90_put_var( ncid, id_v_w, dum3d)
Expand Down Expand Up @@ -1916,17 +1916,17 @@ subroutine write_fv3_sfc_data_netcdf(localpet)

allocate(lsoil_data(lsoil_target))
do i = 1, lsoil_target
lsoil_data(i) = float(i)
lsoil_data(i) = real(float(i),kind=4)
enddo

allocate(x_data(i_target_out))
do i = 1, i_target_out
x_data(i) = float(i)
x_data(i) = real(float(i),kind=4)
enddo

allocate(y_data(j_target_out))
do i = 1, j_target_out
y_data(i) = float(i)
y_data(i) = real(float(i),kind=4)
enddo

if (convert_nst) then
Expand Down

0 comments on commit bc7e2e5

Please sign in to comment.