From 41ff6b3daa151f4dea19d60565256d32952570a0 Mon Sep 17 00:00:00 2001 From: Haipeng Lin Date: Sun, 17 Apr 2022 23:10:42 -0400 Subject: [PATCH] Fix format string for input_mod --- GeosCore/input_mod.F90 | 7 ++++--- run/GCClassic/input.geos.templates/input.geos.fullchem | 2 +- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/GeosCore/input_mod.F90 b/GeosCore/input_mod.F90 index 55008924a..b196f9011 100644 --- a/GeosCore/input_mod.F90 +++ b/GeosCore/input_mod.F90 @@ -2448,9 +2448,9 @@ SUBROUTINE READ_CHEMISTRY_MENU( Input_Opt, RC ) IF ( Input_Opt%AUTOREDUCE_IS_KEY_THRESHOLD ) THEN WRITE( 6, 100 ) 'Use target species threshold: ', & Input_Opt%AUTOREDUCE_IS_KEY_THRESHOLD - WRITE( 6, 120 ) 'OH tuning factor: ', & + WRITE( 6, 130 ) 'OH tuning factor: ', & Input_Opt%AUTOREDUCE_TUNING_OH - WRITE( 6, 120 ) 'NO2 tuning factor: ', & + WRITE( 6, 130 ) 'NO2 tuning factor: ', & Input_Opt%AUTOREDUCE_TUNING_NO2 ELSE WRITE( 6, 120 ) 'Absolute AR threshold : ', & @@ -2460,7 +2460,7 @@ SUBROUTINE READ_CHEMISTRY_MENU( Input_Opt, RC ) ENDIF WRITE( 6, 100 ) 'Keep halogen spec. active? : ', & Input_Opt%AUTOREDUCE_IS_KEEPACTIVE - WRITE( 6, 100 ) 'Use append in auto-reduce? :', & + WRITE( 6, 100 ) 'Use append in auto-reduce? : ', & Input_Opt%AUTOREDUCE_IS_APPEND IF ( Input_Opt%USE_ONLINE_O3 ) THEN @@ -2477,6 +2477,7 @@ SUBROUTINE READ_CHEMISTRY_MENU( Input_Opt, RC ) 100 FORMAT( A, L5 ) 110 FORMAT( A, F4.2 ) 120 FORMAT( A, F5.1 ) +130 FORMAT( A, ES7.1 ) END SUBROUTINE READ_CHEMISTRY_MENU !EOC diff --git a/run/GCClassic/input.geos.templates/input.geos.fullchem b/run/GCClassic/input.geos.templates/input.geos.fullchem index f87b2553c..1501a76cb 100644 --- a/run/GCClassic/input.geos.templates/input.geos.fullchem +++ b/run/GCClassic/input.geos.templates/input.geos.fullchem @@ -310,7 +310,7 @@ Target spc. threshold? : T => NO2 tuning factor : 1e-4 OR absolute threshold : 100.0 => Prs. dep. threshold?: T -Keep halogens active? : T +Keep halogens active? : F Append species? : F ------------------------+------------------------------------------------------ %%% PHOTOLYSIS MENU %%% :