Changeset 3648 for LMDZ6/trunk/libf/phylmd/wake.F90

Timestamp:

Mar 16, 2020, 4:36:59 PM (5 years ago)

Author:

jghattas

Message:

Correction d'erreur introduit en commit [3641] pour faire tourner en mode debug.

File:

• LMDZ6/trunk/libf/phylmd/wake.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/wake.F90

@@ -360 +360 @@
   crep_sol = 1.0
 
+  ! Get wapecut from parameter file
+  wapecut = 1.
+  CALL getin_p('wapecut', wapecut)
+
   ! cc nrlmd Lecture du fichier wake_param.data
   stark=0.33
@@ -387 +391 @@
                                             ! 1: act(:)=1.
                                             ! 2: act(:)=f(Wape)
-  wapecut = 1.
-  CALL getin_p('wapecut', wapecut)
-!
+
   rzero = 5000.
   CALL getin_p('rzero_wk', rzero)