Changeset 2554 for LMDZ5/trunk/libf/phylmd/alpale.F90

Timestamp:

Jun 9, 2016, 2:24:17 PM (8 years ago)

Author:

jyg

Message:

1/ Correcting a bug in alpale.F90: now ale_wk and
alp_wk are arguments of subroutine alpale;
their values are present in the output files.

2/ Minor changes to alpale_th.F90: (i) the
(commented) part relative to TKE transport is put
back in "physiq"; (ii) the part dealing with
iflag_coupl=2 terminates with a STOP.

File:

• LMDZ5/trunk/libf/phylmd/alpale.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/alpale.F90

@@ -4 +4 @@
                     wake_pe, wake_fip,  &
                     Ale_bl, Ale_bl_trig, Alp_bl, &
-                    Ale, Alp )
+                    Ale, Alp, Ale_wake, Alp_wake )
 
 ! **************************************************************
@@ -46 +46 @@
 !----------------
   REAL, DIMENSION(klon), INTENT(OUT)                         :: Ale, Alp
+  REAL, DIMENSION(klon), INTENT(OUT)                         :: Ale_wake, Alp_wake
 
   include "thermcell.h"
@@ -55 +56 @@
   INTEGER                                                    :: i, k
   REAL, DIMENSION(klon)                                      :: www
-  REAL, DIMENSION(klon)                                      :: ale_wake, alp_wake
   REAL, SAVE                                                 :: ale_max=1000.
   REAL, SAVE                                                 :: alp_max=2.