Changeset 2556 for LMDZ5/trunk/libf

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.

Location:

LMDZ5/trunk/libf/phylmd

Files:

• alpale_th.F90 (modified) (3 diffs)
• physiq_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/alpale_th.F90

@@ -2 +2 @@
                        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)
 
 ! **************************************************************
@@ -37 +38 @@
   REAL, DIMENSION(klon), INTENT(INOUT)                       :: alp_bl_stat
 
+  REAL, DIMENSION(klon), INTENT(OUT)                         :: proba_notrig, random_notrig
+
   include "thermcell.h"
 
@@ -44 +47 @@
   LOGICAL, SAVE                                              :: first = .TRUE.
   REAL, SAVE                                                 :: random_notrig_max=1.
-  REAL, DIMENSION(klon)                                      :: proba_notrig, tau_trig, random_notrig
+  REAL, DIMENSION(klon)                                      :: tau_trig
 !
     !$OMP THREADPRIVATE(random_notrig_max) 

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)
 
           ! ------------------------------------------------------------------