Skip to content

Commit a5709b3

Browse files
committed
Remove additional unused local variables from GWD schemes and remove
duplicate lines from meta files
1 parent c6dd1ee commit a5709b3

5 files changed

Lines changed: 1 addition & 18 deletions

File tree

physics/GWD/cires_ugwp.F90

Lines changed: 0 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -63,11 +63,6 @@ subroutine cires_ugwp_init (me, master, nlunit, input_nml_file, logunit, &
6363
character(len=*), intent (in) :: fn_nml2
6464
!character(len=*), parameter :: fn_nml='input.nml'
6565

66-
integer :: ios
67-
logical :: exists
68-
real :: dxsg
69-
integer :: k
70-
7166
character(len=*), intent(out) :: errmsg
7267
integer, intent(out) :: errflg
7368

physics/GWD/ugwpv1_gsldrag.F90

Lines changed: 0 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -106,11 +106,6 @@ subroutine ugwpv1_gsldrag_init ( &
106106
character(len=*), intent (in) :: fn_nml2
107107
!character(len=*), parameter :: fn_nml='input.nml'
108108

109-
integer :: ios
110-
logical :: exists
111-
real :: dxsg
112-
integer :: k
113-
114109
character(len=*), intent(out) :: errmsg
115110
integer, intent(out) :: errflg
116111

physics/GWD/ugwpv1_gsldrag.meta

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1037,7 +1037,6 @@
10371037
type = real
10381038
kind = kind_phys
10391039
intent = out
1040-
intent = out
10411040
[dudt]
10421041
standard_name = process_split_cumulative_tendency_of_x_wind
10431042
long_name = zonal wind tendency due to model physics

physics/GWD/unified_ugwp.F90

Lines changed: 1 addition & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -48,7 +48,7 @@ module unified_ugwp
4848

4949
public unified_ugwp_init, unified_ugwp_run, unified_ugwp_finalize
5050

51-
logical :: is_initialized = .False.
51+
logical :: is_initialized = .false.
5252

5353
contains
5454

@@ -94,11 +94,6 @@ subroutine unified_ugwp_init (me, master, nlunit, input_nml_file, logunit, &
9494
character(len=*), intent (in) :: fn_nml2
9595
!character(len=*), parameter :: fn_nml='input.nml'
9696

97-
integer :: ios
98-
logical :: exists
99-
real :: dxsg
100-
integer :: k
101-
10297
integer, intent(in) :: gwd_opt
10398
character(len=*), intent(out) :: errmsg
10499
integer, intent(out) :: errflg

physics/GWD/unified_ugwp.meta

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -854,7 +854,6 @@
854854
type = real
855855
kind = kind_phys
856856
intent = out
857-
intent = out
858857
[gw_dudt]
859858
standard_name = tendency_of_x_wind_due_to_gravity_wave_drag
860859
long_name = zonal wind tendency due to UGWP

0 commit comments

Comments
 (0)