Changeset 1468 for trunk/LMDZ.TITAN/Tools

Timestamp:

Aug 19, 2015, 1:45:31 PM (9 years ago)

Author:

slebonnois

Message:

SL: bug corrections

File:

• trunk/LMDZ.TITAN/Tools/tmc.F90 (modified) (1 diff)

trunk/LMDZ.TITAN/Tools/tmc.F90

@@ -281 +281 @@
   do ilev=1,altlength
 ! Need to be consistent with GCM computations
-!    if (za(ilon,ilat,ilev,itim).ne.miss_val) then
+    if (vitu(ilon,ilat,ilev,itim).ne.miss_val) then
      rayon(ilon,ilat,ilev,itim) = a0
 !     rayon(ilon,ilat,ilev,itim) = za(ilon,ilat,ilev,itim) + a0
       grav(ilon,ilat,ilev,itim) = g0*a0*a0 &
                  /(rayon(ilon,ilat,ilev,itim)*rayon(ilon,ilat,ilev,itim))
-!    else
-!     rayon(ilon,ilat,ilev,itim) = miss_val
-!      grav(ilon,ilat,ilev,itim) = miss_val
-!    endif
+    else
+     rayon(ilon,ilat,ilev,itim) = miss_val
+      grav(ilon,ilat,ilev,itim) = miss_val
+    endif
   enddo
  enddo