Changeset 2554 for LMDZ5/trunk/libf/phylmd/alpale_th.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_th.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/alpale_th.F90

@@ -160 +160 @@
 
           !cc fin nrlmd le 10/04/2012
-
-          ! ------------------------------------------------------------------
-          ! Transport de la TKE par les panaches thermiques.
-          ! FH : 2010/02/01
-          !     if (iflag_pbl.eq.10) then
-          !     call thermcell_dtke(klon,klev,nbsrf,pdtphys,fm_therm,entr_therm,
-          !    s           rg,paprs,pbl_tke)
-          !     endif
-          ! -------------------------------------------------------------------
+!
           !IM/FH: 2011/02/23 
           ! Couplage Thermiques/Emanuel seulement si T<0
@@ -180 +172 @@
                 endif
              enddo
+    print *,'In order to run with iflag_coupl=2, you have to comment out the following stop'
+             STOP
           endif
-!
    RETURN
    END