Changeset 1817 for LMDZ5/trunk/libf/dyn3d

Timestamp:

Jul 25, 2013, 2:49:07 PM (11 years ago)

Author:

lguez

Message:

Write the max of CFL on countcfl time steps instead of the value for the current time step.

File:

• LMDZ5/trunk/libf/dyn3d/advtrac.F90 (modified) (1 diff)

LMDZ5/trunk/libf/dyn3d/advtrac.F90

@@ -203 +203 @@
      if (countcfl==day_step) then
         do l=1,llm
-           write(lunout,*) 'L, CFLmax ' &
-                ,l,maxval(cflx(:,l)),maxval(cfly(:,l)),maxval(cflz(:,l))
+           write(lunout,*) 'L, CFL[xyz]max:', l, cflxmax(l), cflymax(l), &
+                cflzmax(l)
         enddo
         countcfl=0