small bug in array size for zdfgls in main branch
Context
./sette.sh -b -n AMM12
with main
@6c22f390
Analysis
zstt(:,:, 1) = wmask(A2D(0), 1) ! default value not needed but avoid a bug when looking for undefined values (-fpe0)
zstt(:,:,jpk) = wmask(A2D(0),jpk) ! default value not needed but avoid a bug when looking for undefined values (-fpe0)
while
REAL(wp), DIMENSION(T2D(0),jpk) :: zstt, zstm ! stability function on tracer and momentum
Fix
zstt(:,:, 1) = wmask(T2D(0), 1) ! default value not needed but avoid a bug when looking for undefined values (-fpe0)
zstt(:,:,jpk) = wmask(T2D(0),jpk) ! default value not needed but avoid a bug when looking for undefined values (-fpe0)
Edited by Guillaume Samson