diff --git a/dyn_em/solve_em.F b/dyn_em/solve_em.F index 0fe7edebdd..91770e4f40 100644 --- a/dyn_em/solve_em.F +++ b/dyn_em/solve_em.F @@ -1,6 +1,7 @@ -!WRF:MEDIATION_LAYER:SOLVER +!WRF:MEDIATION_LAYER:SOLVER +!SCALA TEST LINE: 006, Dave, 16:02 PM MTN 16 Oct -SUBROUTINE solve_em ( grid , config_flags & +SUBROUTINE solve_em ( grid , config_flags & ! Arguments generated from Registry #include "dummy_new_args.inc" ! @@ -8,7 +9,7 @@ SUBROUTINE solve_em ( grid , config_flags & ! Driver layer modules USE module_state_description USE module_domain, ONLY : & - domain, get_ijk_from_grid, get_ijk_from_subgrid & + domain, get_ijk_from_grid, get_ijk_from_subgrid & ,domain_get_current_time, domain_get_start_time & ,domain_get_sim_start_time, domain_clock_get,is_alarm_tstep USE module_domain_type, ONLY : history_alarm, restart_alarm, auxinput4_alarm & diff --git a/main/ideal_nmm.F b/main/ideal_nmm.F index ad434c2440..af26cf3f30 100644 --- a/main/ideal_nmm.F +++ b/main/ideal_nmm.F @@ -1,5 +1,5 @@ -! Create an initial data set for the WRF model based on an ideal condition -! This program is specifically set up for the NMM core. +! Create an initial data set for the WRF model based on an ideal condition +! This program is specifically set up for the NMM core. PROGRAM ideal_nmm