File tree Expand file tree Collapse file tree 1 file changed +4
-11
lines changed Expand file tree Collapse file tree 1 file changed +4
-11
lines changed Original file line number Diff line number Diff line change @@ -125,17 +125,10 @@ program test_monin_obukhov
125125 integer (ki), dimension (n_1d) :: del_m, del_t, del_q
126126 end type
127127
128- type (drag_input_t), parameter :: drag_input = drag_input_t() &
129- & ! < Input arguments for mo_drag
130-
131- type (stable_mix_input_t), parameter :: stable_mix_input = stable_mix_input_t() &
132- & ! < Input arguments for stable_mix
133-
134- type (diff_input_t), parameter :: diff_input = diff_input_t() &
135- & ! < Input arguments for mo_diff
136-
137- type (profile_input_t), parameter :: profile_input = profile_input_t() &
138- & ! < Input arguments for mo_profile
128+ type (drag_input_t), parameter :: drag_input = drag_input_t() ! < Input arguments for mo_drag
129+ type (stable_mix_input_t), parameter :: stable_mix_input = stable_mix_input_t() ! < Input arguments for stable_mix
130+ type (diff_input_t), parameter :: diff_input = diff_input_t() ! < Input arguments for mo_diff
131+ type (profile_input_t), parameter :: profile_input = profile_input_t() ! < Input arguments for mo_profile
139132
140133 ! Entries 1:n of the arrays below contain known answer keys. Entry n+1 contains
141134 ! the answers that we calculate. Represent answer data using integral arrays,
You can’t perform that action at this time.
0 commit comments