Skip to content

Commit eff269d

Browse files
committed
Pull request #12: dwd-verbose-aerosol
Merge in ESCAPE/dwarf-p-radiation-ecrad from dwd-verbose-aerosol to master * commit 'b37dcdef664cc6d11188cbc1a647217196f612be': [dwd-verbose-aerosol] Moved aerosol_optics%print_description call into iverbosesetup >= 1 as this produces a lot of stdout otherwise (when running with multiple tasks)
2 parents 8afda50 + b37dcde commit eff269d

File tree

1 file changed

+3
-1
lines changed

1 file changed

+3
-1
lines changed

radiation/radiation_aerosol_optics.F90

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -62,7 +62,9 @@ subroutine setup_aerosol_optics(config)
6262
call config%aerosol_optics%set_types(config%i_aerosol_type_map(1:config%n_aerosol_types))
6363
end if
6464

65-
call config%aerosol_optics%print_description(config%i_aerosol_type_map(1:config%n_aerosol_types))
65+
if (config%iverbosesetup >= 1) then
66+
call config%aerosol_optics%print_description(config%i_aerosol_type_map(1:config%n_aerosol_types))
67+
end if
6668

6769
if (lhook) call dr_hook('radiation_aerosol_optics:setup_aerosol_optics',1,hook_handle)
6870

0 commit comments

Comments
 (0)