Changeset 2049 for LMDZ5/trunk/libf

Timestamp:

May 20, 2014, 2:57:44 PM (11 years ago)

Author:

lguez

Message:

Just some printing improvement.

File:

• LMDZ5/trunk/libf/phylmd/test_disvert_m.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/test_disvert_m.F90

@@ -50 +50 @@
           do i = 1, ngrid
              if (p(i, l) <= p_lay(i, l)) then
-                print 1000, "p(", i, ", ", l, ") = ", p(i, l) / 100., &
-                     " hPa <= p_lay(", i, ", ", l, ") = ", &
+                print 1000, "ps = ", ps(i) / 100., "hPa, p(level ",  l, &
+                     ") = ", p(i, l) / 100., " hPa <= p(layer ", l, ") = ", &
                      p_lay(i, l) / 100., " hPa"
              end if
              if (p_lay(i, l) <= p(i, l + 1)) then
-                print 1000, "p_lay(", i, ", ", l, ") = ", p_lay(i, l) / 100., &
-                     " hPa <= p(", i, ", ", l + 1, ") = ", &
+                print 1000, "ps = ", ps(i) / 100., "hPa, p(layer ", l, ") = ", &
+                     p_lay(i, l) / 100., " hPa <= p(level ", l + 1, ") = ", &
                      p(i, l + 1) / 100., " hPa"
              end if
@@ -64 +64 @@
     end if
 
-1000 format (2(a, 2(i0, a), g13.6), a)
+1000 format (3(a, g10.4, a, i0))
 
   end subroutine test_disvert