-
Notifications
You must be signed in to change notification settings - Fork 360
New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
Cleanup compiler warnings #3656
Changes from 1 commit
File filter
Filter by extension
Conversations
Jump to
Diff view
Diff view
There are no files selected for viewing
Original file line number | Diff line number | Diff line change |
---|---|---|
|
@@ -2925,7 +2925,7 @@ subroutine ice_HaloUpdate3DR8(array, halo, & | |
ioffset, joffset, &! address shifts for tripole | ||
isign ! sign factor for tripole grids | ||
|
||
integer (int_kind), dimension(:), allocatable, save :: & | ||
integer (int_kind), dimension(:), allocatable :: & | ||
sndRequest, &! MPI request ids | ||
rcvRequest ! MPI request ids | ||
Comment on lines
-2928
to
2930
There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more.
|
||
|
||
|
@@ -2954,10 +2954,10 @@ subroutine ice_HaloUpdate3DR8(array, halo, & | |
logical (log_kind) :: & | ||
do_allocate ! flag used to control alloc of 3D buffers | ||
#else | ||
real (dbl_kind), dimension(:,:), allocatable, save :: & | ||
real (dbl_kind), dimension(:,:), allocatable :: & | ||
bufSend, bufRecv ! 3d send,recv buffers | ||
|
||
real (dbl_kind), dimension(:,:,:), allocatable, save :: & | ||
real (dbl_kind), dimension(:,:,:), allocatable :: & | ||
bufTripole ! 3d tripole buffer | ||
#endif | ||
|
||
|
Original file line number | Diff line number | Diff line change |
---|---|---|
|
@@ -3248,12 +3248,12 @@ subroutine ocn_data_ncar_init | |
! | ||
! 1 sst------temperature---------------------------(C) \\ | ||
! 2 sss------salinity------------------------------(ppt) \\ | ||
! 3 hbl------depth---------------------------------(m) \\ | ||
! 3 hbl------depth---------------------------------(m) \\ | ||
! 4 u--------surface u current---------------------(m/s) \\ | ||
! 5 v--------surface v current---------------------(m/s) \\ | ||
! 6 dhdx-----surface tilt x direction--------------(m/m) \\ | ||
! 7 dhdy-----surface tilt y direction--------------(m/m) \\ | ||
! 8 qdp------ocean sub-mixed layer heat flux-------(W/m2)\\ | ||
! 8 qdp------ocean sub-mixed layer heat flux-------(W/m2)\\ | ||
Comment on lines
-3251
to
+3256
There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more.
|
||
! | ||
! Fields 4, 5, 6, 7 are on the U-grid; 1, 2, 3, and 8 are | ||
! on the T-grid. | ||
|
Original file line number | Diff line number | Diff line change |
---|---|---|
|
@@ -105,8 +105,6 @@ module WaterBudgetMod | |
real(r8) :: budg_stateL(s_size, p_size) | ||
real(r8), public :: budg_stateG(s_size, p_size) | ||
|
||
logical,save :: first_time = .true. | ||
|
||
Comment on lines
-108
to
-109
There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more.
This var isn't used anywhere. |
||
!----- formats ----- | ||
character(*),parameter :: FA0= "(' ',12x,(3x,a10,2x),' | ',(3x,a10,2x))" | ||
character(*),parameter :: FF = "(' ',a12,f15.8,' | ',f18.2)" | ||
|
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.