Changeset 2393 for LMDZ5/trunk/libf/phylmd/physiq.F90

Timestamp:

Nov 18, 2015, 12:25:20 PM (9 years ago)

Author:

jyg

Message:

Add various intializations of arrays in lmdz1d.F90
and in the convection scheme. Add output variables
for boundary layer splitting.

File:

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

LMDZ5/trunk/libf/phylmd/physiq.F90

@@ -4322 +4322 @@
      enddo
 
-     write(lunout,*) 'd_t_oli,d_t_vdf,d_t_oro,d_t_lif,d_t_ec'
+!jyg<     (En attendant de statuer sur le sort de d_t_oli)
+!jyg!     write(lunout,*) 'd_t_oli,d_t_vdf,d_t_oro,d_t_lif,d_t_ec'
+!jyg!     do k=1,klev
+!jyg!        write(lunout,*) d_t_oli(igout,k),d_t_vdf(igout,k), &
+!jyg!             d_t_oro(igout,k),d_t_lif(igout,k),d_t_ec(igout,k)
+!jyg!     enddo
+     write(lunout,*) 'd_t_vdf,d_t_oro,d_t_lif,d_t_ec'
      do k=1,klev
-        write(lunout,*) d_t_oli(igout,k),d_t_vdf(igout,k), &
+        write(lunout,*) d_t_vdf(igout,k), &
              d_t_oro(igout,k),d_t_lif(igout,k),d_t_ec(igout,k)
      enddo
+!>jyg
 
      write(lunout,*) 'd_ps ',d_ps(igout)