Changeset 25 for trunk/ToBeReviewed/CALCULS/hdyn.pro

Timestamp:

05/02/06 14:59:12 (18 years ago)

Author:

pinsard

Message:

upgrade of CALCULS according to cerbere.lodyc.jussieu.fr: /usr/home/smasson/SAXO_RD/ : files

File:

• trunk/ToBeReviewed/CALCULS/hdyn.pro (copied) (copied from trunk/CALCULS/hdyn.pro) (4 diffs)

trunk/ToBeReviewed/CALCULS/hdyn.pro

@@ -101 +101 @@
          case 1 of
             tailles[1] eq jpi and tailles[2] eq jpj: BEGIN
-               sn = tabsn[premierxt:dernierxt, premieryt:dernieryt, *]
-               tn = tabtn[premierxt:dernierxt, premieryt:dernieryt, *]
+               sn = tabsn[firstxt:lastxt, firstyt:lastyt, *]
+               tn = tabtn[firstxt:lastxt, firstyt:lastyt, *]
             end
             tailles[1] eq  nx and tailles[2] eq  ny:BEGIN 
@@ -116 +116 @@
          e33d = replicate(1, nx*ny)#e3t
          e33d = reform(e33d, nx, ny, jpk, /over)
-         terre = where(tmask[premierxt:dernierxt, premieryt:dernieryt, *] EQ 0)
+         terre = where(tmask[firstxt:lastxt, firstyt:lastyt, *] EQ 0)
          if terre[0] NE -1 then vol[terre] = !values.f_nan
          case level of
@@ -128 +128 @@
          case 1 of
             tailles[1] eq jpi and tailles[2] eq jpj AND tailles[4] EQ jpt: BEGIN
-               sn = tabsn[premierxt:dernierxt, premieryt:dernieryt, *, *]
-               tn = tabtn[premierxt:dernierxt, premieryt:dernieryt, *, *]
+               sn = tabsn[firstxt:lastxt, firstyt:lastyt, *, *]
+               tn = tabtn[firstxt:lastxt, firstyt:lastyt, *, *]
             end
             tailles[1] eq  nx and tailles[2] eq  ny AND tailles[4] EQ jpt:BEGIN 
@@ -144 +144 @@
          e33d = e33d[*]#replicate(1, jpt)
          e33d = reform(e33d, nx, ny, jpk, jpt, /over)
-         mask = tmask[premierxt:dernierxt, premieryt:dernieryt, *]
+         mask = tmask[firstxt:lastxt, firstyt:lastyt, *]
          mask = mask[*]#replicate(1, jpt)
          terre = where(mask EQ 0)