Skip to content

Commit 60a30be

Browse files
committed
Add optional attribute
1 parent 1ed0230 commit 60a30be

2 files changed

Lines changed: 3 additions & 1 deletion

File tree

physics/GWD/cires_ugwp.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -244,7 +244,7 @@ subroutine cires_ugwp_run(do_ugwp, me, master, im, levs, ntrac, dtp, kdt, lonr
244244
real(kind=kind_phys), intent(in), dimension(:) :: rain
245245

246246
integer, intent(in) :: ntke
247-
real(kind=kind_phys), intent(in), dimension(:,:) :: q_tke, dqdt_tke
247+
real(kind=kind_phys), intent(in), dimension(:,:), optional :: q_tke, dqdt_tke
248248

249249
logical, intent(in) :: lprnt
250250
integer, intent(in) :: ipr

physics/GWD/cires_ugwp.meta

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -791,6 +791,7 @@
791791
type = real
792792
kind = kind_phys
793793
intent = in
794+
optional = True
794795
[dqdt_tke]
795796
standard_name = process_split_cumulative_tendency_of_turbulent_kinetic_energy
796797
long_name = turbulent kinetic energy tendency due to model physics
@@ -799,6 +800,7 @@
799800
type = real
800801
kind = kind_phys
801802
intent = in
803+
optional True
802804
[lprnt]
803805
standard_name = flag_print
804806
long_name = control flag for diagnostic print out

0 commit comments

Comments
 (0)