Skip to content

Commit

Permalink
Fix format string for input_mod
Browse files Browse the repository at this point in the history
  • Loading branch information
jimmielin committed Apr 18, 2022
1 parent 56cacb8 commit 41ff6b3
Show file tree
Hide file tree
Showing 2 changed files with 5 additions and 4 deletions.
7 changes: 4 additions & 3 deletions GeosCore/input_mod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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 : ', &
Expand All @@ -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
Expand All @@ -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
Expand Down
2 changes: 1 addition & 1 deletion run/GCClassic/input.geos.templates/input.geos.fullchem
Original file line number Diff line number Diff line change
Expand Up @@ -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 %%% :
Expand Down

0 comments on commit 41ff6b3

Please # to comment.