typo

src/inital.F90

@@ -211,7 +211,7 @@ SUBROUTINE init_phi
         ENDDO
       ENDDO
 
-    ELSEIF(INIT_ZF_PHI .GT. 0)
+    ELSEIF(INIT_ZF_PHI .GT. 0) THEN
 
       !**** Zonal Flow initialization *******************************************
       ! Every mode is zero
@@ -222,7 +222,7 @@ SUBROUTINE init_phi
       END DO
       ! Except at ikr = mode number + 1, symmetry is already included since kr>=0
       phi(INIT_ZF_PHI+1,ikz_0) = -init_background * imagu/2._dp
-      
+
     ELSE ! we compute phi from noisy moments and poisson
 
       CALL poisson