Changeset 2556 for LMDZ5/trunk/libf/phylmd/physiq_mod.F90

Timestamp:

Jun 10, 2016, 12:23:57 PM (8 years ago)

Author:

jyg

Message:

Correcting a bug in alpale_th.F90: now

proba_notrig and random_notrig are arguments of
subroutine alpale; their values are present in the
output files.

File:

• LMDZ5/trunk/libf/phylmd/physiq_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/physiq_mod.F90

@@ -2776 +2776 @@
 !jyg<
 !
-          CALL alpale_th( dtime, lmax_th, t_seri, &
+          CALL alpale_th( dtime, lmax_th, t_seri,  &
                           cin, s2, n2,  &
                           ale_bl_trig, ale_bl_stat, ale_bl,  &
-                          alp_bl, alp_bl_stat )
+                          alp_bl, alp_bl_stat, &
+                          proba_notrig, random_notrig)
 
           ! ------------------------------------------------------------------