We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 9334cb6 commit b6080e5Copy full SHA for b6080e5
src/offline/progs/main_shallow.F90
@@ -222,7 +222,7 @@ PROGRAM MAIN_SHALLOW
222
223
ISTSZ=0
224
ISTSZ(KIND(IKLCL)/4) = NPROMA * 2 * KLEV
225
-ISTSZ(KIND(PRHODJ)/4) = ISTSZ(KIND(PRHODJ)/4) + NPROMA * 39 * KLEV
+ISTSZ(KIND(PRHODJ)/4) = ISTSZ(KIND(PRHODJ)/4) + NPROMA * 42 * KLEV
226
ISTSZ(KIND(PRHODJ)/4) = ISTSZ(KIND(PRHODJ)/4) + NPROMA * 16 !for ZBUF(KLON,16)
227
#ifndef USE_STACK
228
ISTSZ(2) = ISTSZ(2) + CEILING(ISTSZ(1) / 2.)
0 commit comments