Skip to content

Fix range size check if statements in diag_manager.F90 #6

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
MinsukJi-NOAA merged 10 commits into from
Oct 21, 2021
Merged

Fix range size check if statements in diag_manager.F90 #6

Changes from all commits
Commits
Show all changes
10 commits
Select commit Hold shift + click to select a range
84fb687
Modify set_tracer_profile in tracer_manager.F90
MinsukJi-NOAA Oct 8, 2021
ba92db8
Specify platform_mod variables used
MinsukJi-NOAA Oct 8, 2021
8a47920
Merge remote-tracking branch 'emc/fms_mixedmode' into feature/mji_mix…
MinsukJi-NOAA Oct 8, 2021
4b63ab9
Modify real_to_time_type in time_manager.F90
MinsukJi-NOAA Oct 9, 2021
fbe2aa2
Merge remote-tracking branch 'emc/fms_mixedmode' into feature/mji_mix…
MinsukJi-NOAA Oct 9, 2021
a9d1638
Modify files in the sat_vapor_pres directory
MinsukJi-NOAA Oct 10, 2021
07ef656
Fix select type statement in sat_vapor_pres_k.F90
MinsukJi-NOAA Oct 10, 2021
d68a06c
Move write temp statement inside select type
MinsukJi-NOAA Oct 10, 2021
b6e5fb4
Merge remote-tracking branch 'emc/fms_mixedmode' into feature/mji_mix…
MinsukJi-NOAA Oct 21, 2021
906b3a6
Fix range size check if statements
MinsukJi-NOAA Oct 21, 2021
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
24 changes: 15 additions & 9 deletions diag_manager/diag_manager.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -383,9 +383,11 @@ INTEGER FUNCTION register_diag_field_scalar(module_name, field_name, init_time,
IF ( PRESENT(err_msg) ) err_msg = ''

! Fatal error if range is present and its extent is not 2.
IF ( PRESENT(range) .AND. (SIZE(range) .NE. 2) ) THEN
! <ERROR STATUS="FATAL">extent of range should be 2</ERROR>
CALL error_mesg ('diag_manager_mod::register_diag_field', 'extent of range should be 2', FATAL)
IF ( PRESENT(range) ) THEN
IF ( SIZE(range) .NE. 2 ) THEN
! <ERROR STATUS="FATAL">extent of range should be 2</ERROR>
CALL error_mesg ('diag_manager_mod::register_diag_field', 'extent of range should be 2', FATAL)
END IF
END IF

IF ( PRESENT(init_time) ) THEN
Expand Down Expand Up @@ -449,9 +451,11 @@ INTEGER FUNCTION register_diag_field_array(module_name, field_name, axes, init_t
IF ( PRESENT(err_msg) ) err_msg = ''

! Fatal error if range is present and its extent is not 2.
IF ( PRESENT(range) .AND. (SIZE(range) .NE. 2) ) THEN
! <ERROR STATUS="FATAL">extent of range should be 2</ERROR>
CALL error_mesg ('diag_manager_mod::register_diag_field', 'extent of range should be 2', FATAL)
IF ( PRESENT(range) ) THEN
IF ( SIZE(range) .NE. 2 ) THEN
! <ERROR STATUS="FATAL">extent of range should be 2</ERROR>
CALL error_mesg ('diag_manager_mod::register_diag_field', 'extent of range should be 2', FATAL)
END IF
END IF

! Call register static, then set static back to false
Expand Down Expand Up @@ -671,9 +675,11 @@ INTEGER FUNCTION register_static_field(module_name, field_name, axes, long_name,
END IF

! Fatal error if range is present and its extent is not 2.
IF ( PRESENT(range) .AND. (SIZE(range) .NE. 2) ) THEN
! <ERROR STATUS="FATAL">extent of range should be 2</ERROR>
CALL error_mesg ('diag_manager_mod::register_static_field', 'extent of range should be 2', FATAL)
IF ( PRESENT(range) ) THEN
IF ( SIZE(range) .NE. 2 ) THEN
! <ERROR STATUS="FATAL">extent of range should be 2</ERROR>
CALL error_mesg ('diag_manager_mod::register_static_field', 'extent of range should be 2', FATAL)
END IF
END IF

! Namelist do_diag_field_log is by default false. Thus to log the
Expand Down