Changeset 48 for trunk/divfred.pro

Timestamp:

03/16/14 20:38:39 (10 years ago)

Author:

pinsard

Message:

fix thanks to coding rules

File:

• trunk/divfred.pro (modified) (11 diffs)

trunk/divfred.pro

@@ -25 +25 @@
 ; - Requires SAXO tools
 ; - les matrices u et v peuvent de 2 a 4 dimensions.
-; attention pour distinguer les différentes configurations de u et v
+; attention pour distinguer les différentes configurations de u et v
 ; (xy, xyz, xyt, xyzt), on regarde la variable du common
 ;        -time qui contient le calendrier en jour julien d''IDL auquel
 ;        se rapportent u et v ansi que la variable
-;        -jpt qui est le nombre de pas de temps à considérer dans time.
-; les tableaux u et v sont découpés sur le même domaine
-; géographique. A cause du décalage des grilles T, U, V et F il est
-; possible que ces 2 tableaux n''aient pas la même taille et se
-; reportent à des indices différents. Si tel est le cas les tableaux
-; sont redécoupés sur les indices qu'ils ont en commun et le dommaine
-; est redéfini pour qu'il colle à ces indices communs.
-; pour éviter ces redécoupes utiliser le mot clé /memeindice dans
+;        -jpt qui est le nombre de pas de temps à considérer dans time.
+; les tableaux u et v sont découpés sur le même domaine
+; géographique. A cause du décalage des grilles T, U, V et F il est
+; possible que ces 2 tableaux n''aient pas la même taille et se
+; reportent à des indices différents. Si tel est le cas les tableaux
+; sont redécoupés sur les indices qu'ils ont en commun et le dommaine
+; est redéfini pour qu'il colle à ces indices communs.
+; pour éviter ces redécoupes utiliser le mot clé /memeindice dans
 ; <pro>domdef</pro>
 ;
-; les points sur le bord du dessin sont mis à !values.f_nan
+; les points sur le bord du dessin sont mis à !values.f_nan
 ;
 ; @todo
-; ++ pas fini de comprendre, tester (compatibilité saxo), adapter, commenter
+; ++ pas fini de comprendre, tester (compatibilité saxo), adapter, commenter
 ; nettoyer
 ; ++ a comparer et merger avec SAXO_DIR/ToBeReviewed/CALCULS/div.pro
@@ -111 +111 @@
                v = v[indicex[0]:indicex[0]+nx-1,indicey[0]:indicey[0]+ny-1, *]
             END
-            ELSE:BEGIN
+            ELSE :BEGIN
                zdiv = -1
                GOTO, sortie
@@ -142 +142 @@
 ; mise a !values.f_nan de la bordure
 ;------------------------------------------------------------
-         if  NOT keyword_set(key_periodic) OR nx NE jpi then begin
+         if NOT keyword_set(key_periodic) OR nx NE jpi then begin
             zdiv(0, *, *) = !values.f_nan
             zdiv(nx-1, *, *) = !values.f_nan
@@ -161 +161 @@
          varunits = '1e6*s-1'
          domdef, (glamt[indice2d])[0, 0], (glamu[indice2d])[nx-1, 0],(gphit[indice2d])[0, 0], (gphiv[indice2d])[0, ny-1], vert1, vert2, grille = ['t']
-         if keyword_set(direc) then  zdiv = moyenne(zdiv,direc,/nan, boite = boite)
+         if keyword_set(direc) then zdiv = moyenne(zdiv,direc,/nan, boite = boite)
       END
 ;----------------------------------------------------------------------------
@@ -189 +189 @@
                v = v[indicex[0]:indicex[0]+nx-1,indicey[0]:indicey[0]+ny-1, *]
             END
-            ELSE:return,  -1
+            ELSE : return,  -1
          endcase
 ;------------------------------------------------------------
@@ -216 +216 @@
 ; mise a !values.f_nan de la bordure
 ;------------------------------------------------------------
-         if  NOT keyword_set(key_periodic) OR nx NE jpi then begin
+         if NOT keyword_set(key_periodic) OR nx NE jpi then begin
             zdiv(0, *, *) = !values.f_nan
             zdiv(nx-1, *, *) = !values.f_nan
@@ -232 +232 @@
          varunits = '1e6*s-1'
          domdef, (glamt[indice2d])[0, 0], (glamu[indice2d])[nx-1, 0],(gphit[indice2d])[0, 0], (gphiv[indice2d])[0, ny-1], vert1, vert2, grille = ['t']
-         if keyword_set(direc) then  zdiv = grossemoyenne(zdiv,direc,/nan, boite = boite)
+         if keyword_set(direc) then zdiv = grossemoyenne(zdiv,direc,/nan, boite = boite)
       END
 ;----------------------------------------------------------------------------
@@ -247 +247 @@
 ;----------------------------------------------------------------------------
 ;----------------------------------------------------------------------------
-      ELSE:BEGIN                ;xy
+      ELSE : BEGIN                ;xy
          indice3d = lindgen(jpi, jpj, jpk)
          indice3d = indice3d[indicex[0]:indicex[0]+nx-1,indicey[0]:indicey[0]+ny-1, firstzt]
@@ -273 +273 @@
                v = v[indice2d]
             END
-            ELSE:return,  -1
+            ELSE : return,  -1
          endcase
 ;------------------------------------------------------------
@@ -289 +289 @@
 ; mise a !values.f_nan de la bordure
 ;------------------------------------------------------------
-         if  NOT keyword_set(key_periodic) OR nx NE jpi then begin
+         if NOT keyword_set(key_periodic) OR nx NE jpi then begin
             zdiv(0, *) = !values.f_nan
             zdiv(nx-1, *) = !values.f_nan
@@ -308 +308 @@
          varunits = '1e6*s-1'
          domdef, (glamt[indice2d])[0, 0], (glamu[indice2d])[nx-1, 0],(gphit[indice2d])[0, 0], (gphiv[indice2d])[0, ny-1], vert1, vert2, grille = ['t']
-         if keyword_set(direc) then  zdiv = moyenne(zdiv,direc,/nan, boite = boite)
+         if keyword_set(direc) then zdiv = moyenne(zdiv,direc,/nan, boite = boite)
 
       END