Changeset 4055 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Jan 10, 2022, 1:59:19 PM (3 years ago)
Author:
lguez
Message:

Check that the value of iflag_top_bound is valid

This check is useful because if iflag_top_bound is not between 0 and
2 then the program runs with an undefined value of lambda in procedure
top_bound_loc.

Location:
LMDZ6/trunk/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3d/conf_gcm.F90

    r3865 r4055  
    322322  iflag_top_bound=1
    323323  CALL getin('iflag_top_bound',iflag_top_bound)
     324  if (iflag_top_bound < 0 .or. iflag_top_bound > 2) &
     325       call abort_gcm("conf_gcm", 'iflag_top_bound must be 0, 1 or 2', 1)
    324326
    325327  ! mode_top_bound : fields towards which sponge relaxation will be done:

  • LMDZ6/trunk/libf/dyn3dmem/conf_gcm.F90

    r3802 r4055  
    357357  iflag_top_bound=1
    358358  CALL getin('iflag_top_bound',iflag_top_bound)
     359  if (iflag_top_bound < 0 .or. iflag_top_bound > 2) &
     360       call abort_gcm("conf_gcm", 'iflag_top_bound must be 0, 1 or 2', 1)
    359361
    360362  ! mode_top_bound : fields towards which sponge relaxation will be done:
Note: See TracChangeset for help on using the changeset viewer.