diff --git a/src/MNH/modeln.f90 b/src/MNH/modeln.f90 index 51d29f1f855e73a8e480c439b2fcc83d24370ed7..d1bd8dbf3909c9c2ceee7a03d6588244d0514c22 100644 --- a/src/MNH/modeln.f90 +++ b/src/MNH/modeln.f90 @@ -1618,9 +1618,11 @@ ZRUS=XRUS ZRVS=XRVS ZRWS=XRWS -if ( lbudget_u ) call Budget_store_init( tbudgets(NBUDGET_U), 'PRES', xrus(:, :, :) ) -if ( lbudget_v ) call Budget_store_init( tbudgets(NBUDGET_V), 'PRES', xrvs(:, :, :) ) -if ( lbudget_w ) call Budget_store_init( tbudgets(NBUDGET_W), 'PRES', xrws(:, :, :) ) +if ( .not. l1d ) then + if ( lbudget_u ) call Budget_store_init( tbudgets(NBUDGET_U), 'PRES', xrus(:, :, :) ) + if ( lbudget_v ) call Budget_store_init( tbudgets(NBUDGET_V), 'PRES', xrvs(:, :, :) ) + if ( lbudget_w ) call Budget_store_init( tbudgets(NBUDGET_W), 'PRES', xrws(:, :, :) ) +end if CALL RAD_BOUND (CLBCX,CLBCY,CTURB,XCARPKMAX, & XTSTEP, &