diff --git a/src/MNH/ini_modeln.f90 b/src/MNH/ini_modeln.f90 index 7b0e7f9ce6b2b6d5d5d3f4ed6e32ccf4f768f0ec..4d8fe9c3ed689aa331b6c276588ed64f1e852e68 100644 --- a/src/MNH/ini_modeln.f90 +++ b/src/MNH/ini_modeln.f90 @@ -2641,8 +2641,8 @@ RCCO2 = 360.0E-06 * 44.0E-03 / XMD IF ( CPROGRAM == 'MESONH' ) THEN ! Add sea salt fluxes IF ( LSALT ) THEN; - ALLOCATE( XFLXT_SLT(IIU, IJU, NMODE_SLT) ) ; XFLX_SLT( :,:,:) = 0. - ALLOCATE( XFLX_SLT (IIU, IJU, NMODE_SLT) ) ; XFLXT_SLT(:,:,:) = 0. + ALLOCATE( XFLX_SLT(IIU, IJU, NMODE_SLT) ) ; XFLX_SLT( :,:,:) = 0. + ALLOCATE( XFLXT_SLT (IIU, IJU, NMODE_SLT) ) ; XFLXT_SLT(:,:,:) = 0. ELSE ALLOCATE( XFLXT_SLT(0, 0, 0) ) ALLOCATE( XFLX_SLT (0, 0, 0) )