Changeset 2048 for LMDZ5/trunk


Ignore:
Timestamp:
May 20, 2014, 1:38:23 PM (11 years ago)
Author:
lguez
Message:

Added a check. nstra can be 0 for small values of llm. If nstra
computed by sugwd_strato is 0 then there is an array index out of
bounds later in gwprofil_strato. The check does not cost much because
sugwd_strato is called only once per run.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/orografi_strato.F90

    r1992 r2048  
    18731873  PRINT *, ' DANS SUGWD nktopg=', nktopg
    18741874  PRINT *, ' DANS SUGWD nstra=', nstra
     1875  if (nstra == 0) call abort_gcm("sugwd_strato", "no level in stratosphere", 1)
    18751876
    18761877  gsigcr = 0.80
Note: See TracChangeset for help on using the changeset viewer.