From 3d636b95fda5ad0bfd7c0731b5090f5636bb55b5 Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Mon, 17 May 2021 16:12:32 +0200
Subject: [PATCH] typo
---
src/inital.F90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/inital.F90 b/src/inital.F90
index f6a7f2f8..19690e50 100644
--- a/src/inital.F90
+++ b/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
--
GitLab