Skip to content

Commit b6080e5

Browse files
Update memory footprint for main_shallow.F90
1 parent 9334cb6 commit b6080e5

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/offline/progs/main_shallow.F90

+1-1
Original file line numberDiff line numberDiff line change
@@ -222,7 +222,7 @@ PROGRAM MAIN_SHALLOW
222222

223223
ISTSZ=0
224224
ISTSZ(KIND(IKLCL)/4) = NPROMA * 2 * KLEV
225-
ISTSZ(KIND(PRHODJ)/4) = ISTSZ(KIND(PRHODJ)/4) + NPROMA * 39 * KLEV
225+
ISTSZ(KIND(PRHODJ)/4) = ISTSZ(KIND(PRHODJ)/4) + NPROMA * 42 * KLEV
226226
ISTSZ(KIND(PRHODJ)/4) = ISTSZ(KIND(PRHODJ)/4) + NPROMA * 16 !for ZBUF(KLON,16)
227227
#ifndef USE_STACK
228228
ISTSZ(2) = ISTSZ(2) + CEILING(ISTSZ(1) / 2.)

0 commit comments

Comments
 (0)