Skip to content

Commit 3b854b1

Browse files
author
dustinswales
committed
Cleanup from previous sync
1 parent 7b65fe7 commit 3b854b1

15 files changed

+51
-191
lines changed

physics/CONV/SAMF/samfdeepcnv.meta

Lines changed: 7 additions & 64 deletions
Original file line numberDiff line numberDiff line change
@@ -437,70 +437,6 @@
437437
type = real
438438
kind = kind_phys
439439
intent = inout
440-
[sigmain]
441-
standard_name = prognostic_updraft_area_fraction_in_convection
442-
long_name = convective updraft area fraction
443-
units = frac
444-
dimensions = (horizontal_loop_extent,vertical_layer_dimension)
445-
type = real
446-
kind = kind_phys
447-
intent = in
448-
optional = True
449-
[sigmaout]
450-
standard_name = updraft_area_fraction_updated_by_physics
451-
long_name = convective updraft area fraction updated by physics
452-
units = frac
453-
dimensions = (horizontal_loop_extent,vertical_layer_dimension)
454-
type = real
455-
kind = kind_phys
456-
intent = out
457-
optional = True
458-
[betascu]
459-
standard_name = tuning_param_for_shallow_cu
460-
long_name = tuning param for shallow cu in case prognostic closure is used
461-
units = none
462-
dimensions = ()
463-
type = real
464-
kind = kind_phys
465-
intent = in
466-
[betamcu]
467-
standard_name = tuning_param_for_midlevel_cu
468-
long_name = tuning param for midlevel cu in case prognostic closure is used
469-
units = none
470-
dimensions = ()
471-
type = real
472-
kind = kind_phys
473-
intent = in
474-
[betadcu]
475-
standard_name = tuning_param_for_deep_cu
476-
long_name = tuning param for deep cu in case prognostic closure is used
477-
units = none
478-
dimensions = ()
479-
type = real
480-
intent = in
481-
[maxMF]
482-
standard_name = maximum_mass_flux
483-
long_name = maximum mass flux within a column
484-
units = m s-1
485-
dimensions = (horizontal_loop_extent)
486-
type = real
487-
kind = kind_phys
488-
intent = in
489-
optional = True
490-
[do_mynnedmf]
491-
standard_name = flag_for_mellor_yamada_nakanishi_niino_pbl_scheme
492-
long_name = flag to activate MYNN-EDMF
493-
units = flag
494-
dimensions = ()
495-
type = logical
496-
intent = in
497-
[sigmab_coldstart]
498-
standard_name = flag_to_cold_start_for_sigmab_init
499-
long_name = flag to cold start for sigmab initialization
500-
units = flag
501-
dimensions = ()
502-
type = logical
503-
intent = in
504440
[qlcn]
505441
standard_name = mass_fraction_of_convective_cloud_liquid_water
506442
long_name = mass fraction of convective cloud liquid water
@@ -779,6 +715,13 @@
779715
dimensions = ()
780716
type = logical
781717
intent = in
718+
[sigmab_coldstart]
719+
standard_name = flag_to_cold_start_for_sigmab_init
720+
long_name = flag to cold start for sigmab initialization
721+
units = flag
722+
dimensions = ()
723+
type = logical
724+
intent = in
782725
[errmsg]
783726
standard_name = ccpp_error_message
784727
long_name = error message for error handling in CCPP

physics/GWD/cires_ugwp.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -229,7 +229,7 @@ subroutine cires_ugwp_run(do_ugwp, me, master, im, levs, ntrac, dtp, kdt, lonr
229229
real(kind=kind_phys), intent(out), dimension(:) :: tau_mtb, tau_ogw, tau_tofd, tau_ngw
230230
real(kind=kind_phys), intent(out), dimension(:, :):: gw_dudt, gw_dvdt, gw_dtdt, gw_kdis
231231
real(kind=kind_phys), intent(out), dimension(:, :):: dudt_mtb, dudt_tms
232-
real(kind=kind_phys), intent(out), dimension(:, :), optional :: dudt_ogw
232+
real(kind=kind_phys), intent(out), dimension(:, :):: dudt_ogw
233233
real(kind=kind_phys), intent(out), dimension(:), optional :: dusfc_ms, dvsfc_ms, dusfc_bl, dvsfc_bl
234234
real(kind=kind_phys), intent(out), dimension(:, :), optional :: dtauy2d_ms
235235
real(kind=kind_phys), intent(out), dimension(:, :), optional :: dtaux2d_bl, dtauy2d_bl

physics/GWD/cires_ugwp.meta

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -640,7 +640,6 @@
640640
type = real
641641
kind = kind_phys
642642
intent = out
643-
optional = True
644643
[dtauy2d_ms]
645644
standard_name = tendency_of_y_wind_due_to_mesoscale_orographic_gravity_wave_drag
646645
long_name = instantaneous change in y wind due to orographic gw drag

physics/GWD/cires_ugwp_post.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -35,7 +35,7 @@ subroutine cires_ugwp_post_run (ldiag_ugwp, dtf, im, levs, &
3535
real(kind=kind_phys), intent(inout), dimension(:) :: tot_mtb, tot_ogw, tot_tofd, tot_ngw
3636
real(kind=kind_phys), intent(inout), dimension(:) :: tot_zmtb, tot_zlwb, tot_zogw
3737
real(kind=kind_phys), intent(in), dimension(:,:) :: gw_dtdt, gw_dudt, gw_dvdt, dudt_mtb, dudt_tms
38-
real(kind=kind_phys), intent(in), dimension(:,:), optional :: dudt_ogw
38+
real(kind=kind_phys), intent(in), dimension(:,:) :: dudt_ogw
3939
real(kind=kind_phys), intent(inout), dimension(:,:), optional :: du3dt_mtb, du3dt_ogw, du3dt_tms, du3dt_ngw, dv3dt_ngw
4040
real(kind=kind_phys), intent(inout), dimension(:,:) :: dtdt, dudt, dvdt
4141

physics/GWD/cires_ugwp_post.meta

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -132,7 +132,6 @@
132132
type = real
133133
kind = kind_phys
134134
intent = in
135-
optional = True
136135
[dudt_tms]
137136
standard_name = tendency_of_x_wind_due_to_turbulent_orographic_form_drag
138137
long_name = instantaneous change in x wind due to TOFD

physics/GWD/drag_suite.F90

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -383,9 +383,10 @@ subroutine drag_suite_run( &
383383
& dusfc_ms(:),dvsfc_ms(:), &
384384
& dusfc_bl(:),dvsfc_bl(:), &
385385
& dusfc_ss(:),dvsfc_ss(:), &
386-
& dusfc_fd(:),dvsfc_fd(:)
386+
& dusfc_fd(:),dvsfc_fd(:), &
387+
& dtaux2d_ms(:,:)
387388
real(kind=kind_phys), intent(inout), optional :: &
388-
& dtaux2d_ms(:,:),dtauy2d_ms(:,:), &
389+
& dtauy2d_ms(:,:), &
389390
& dtaux2d_bl(:,:),dtauy2d_bl(:,:), &
390391
& dtaux2d_ss(:,:),dtauy2d_ss(:,:), &
391392
& dtaux2d_fd(:,:),dtauy2d_fd(:,:)

physics/GWD/drag_suite.meta

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -282,7 +282,6 @@
282282
type = real
283283
kind = kind_phys
284284
intent = inout
285-
optional = True
286285
[dtauy2d_ms]
287286
standard_name = tendency_of_y_wind_due_to_mesoscale_orographic_gravity_wave_drag
288287
long_name = y wind tendency from mesoscale gwd

physics/GWD/ugwpv1_gsldrag.F90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -419,11 +419,11 @@ subroutine ugwpv1_gsldrag_run(me, master, im, levs, ak, bk, ntrac, lonr, dtp,
419419
real(kind=kind_phys), intent(out), dimension(:) :: tau_ogw, tau_ngw, tau_oss
420420

421421
real(kind=kind_phys), intent(out) , dimension(:,:), optional :: &
422-
dudt_ogw, dvdt_ogw, dudt_obl, dvdt_obl, &
422+
dvdt_ogw, dudt_obl, dvdt_obl, &
423423
dudt_oss, dvdt_oss, dudt_ofd, dvdt_ofd
424424

425425
real(kind=kind_phys), intent(out) , dimension(:,:), optional :: dudt_ngw, dvdt_ngw, kdis_ngw, dtdt_ngw
426-
real(kind=kind_phys), intent(out) , dimension(:,:) :: dudt_gw, dvdt_gw, dtdt_gw, kdis_gw
426+
real(kind=kind_phys), intent(out) , dimension(:,:) :: dudt_gw, dvdt_gw, dtdt_gw, kdis_gw, dudt_ogw
427427

428428
real(kind=kind_phys), intent(out) , dimension(:) :: zogw, zlwb, zobl, zngw
429429
!

physics/GWD/ugwpv1_gsldrag.meta

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -786,7 +786,6 @@
786786
type = real
787787
kind = kind_phys
788788
intent = out
789-
optional = True
790789
[dvdt_ogw]
791790
standard_name = tendency_of_y_wind_due_to_mesoscale_orographic_gravity_wave_drag
792791
long_name = y wind tendency from meso scale ogw

physics/GWD/ugwpv1_gsldrag_post.F90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -40,8 +40,8 @@ subroutine ugwpv1_gsldrag_post_run ( im, levs, ldiag_ugwp, &
4040
real(kind=kind_phys), intent(inout), dimension(:) :: tot_mtb, tot_ogw, tot_tofd, tot_ngw
4141
real(kind=kind_phys), intent(inout), dimension(:) :: tot_zmtb, tot_zlwb, tot_zogw
4242

43-
real(kind=kind_phys), intent(in), dimension(:,:) :: dtdt_gw, dudt_gw, dvdt_gw
44-
real(kind=kind_phys), intent(in), dimension(:,:), optional :: dudt_obl, dvdt_obl, dudt_ogw
43+
real(kind=kind_phys), intent(in), dimension(:,:) :: dtdt_gw, dudt_gw, dvdt_gw, dudt_ogw
44+
real(kind=kind_phys), intent(in), dimension(:,:), optional :: dudt_obl, dvdt_obl
4545
real(kind=kind_phys), intent(in), dimension(:,:), optional :: dvdt_ogw, dudt_ofd, dvdt_ofd
4646
real(kind=kind_phys), intent(in), dimension(:,:), optional :: dudt_oss, dvdt_oss
4747
real(kind=kind_phys), intent(inout), dimension(:,:), optional :: du3dt_mtb, du3dt_ogw, du3dt_tms

0 commit comments

Comments
 (0)