Changeset 842 for trunk/LMDZ.TITAN/Tools

Timestamp:

Nov 13, 2012, 5:21:58 PM (12 years ago)

Author:

slebonnois

Message:

SL: small modif on angmom (Titan/Venus? Tools)

File:

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

trunk/LMDZ.TITAN/Tools/angmom.F90

@@ -728 +728 @@
   if (flag_dudyn .and.( tdyn(itim).eq.miss_val)) flag_dudyn =.false.
   if (flag_duajs .and.( tajs(itim).eq.miss_val)) flag_duajs =.false.
-  if (flag_duvdf .and.( tvdf(itim).eq.miss_val)) flag_duvdf =.false.
+  if (flag_duvdf .and.( tbls(itim).eq.miss_val)) flag_duvdf =.false.
   if (flag_dugwo .and.( tgwo(itim).eq.miss_val)) flag_dugwo =.false.
   if (flag_dugwno.and.(tgwno(itim).eq.miss_val)) flag_dugwno=.false.