Changeset 593

Timestamp:

07/23/12 13:38:39 (12 years ago)

Author:

lelod

Message:

adaptation de cresamsu a amsub

File:

• trunk/src/cresamsu.pro (modified) (2 diffs)

trunk/src/cresamsu.pro

@@ -220 +220 @@
 ;indifferemment (temp='d')
 rtemphor=rtemp*24. ; en heures
-
 ; caracteristiques de la grille de sortie
-; par defaut: orbites du matin
+; par defaut: orbites du matin ('m')
 pastemp=1
 hdeb=0
@@ -234 +233 @@
 if temp eq 'd' then begin
    hdeb=0
-   hfin=24                      ; on prend toutes les orbites de la journee (regule par rtemp)
-   if rtemp le 0.5 then begin
-      pastemp=0.5
-   endif else begin
-      pastemp=1
-   endelse
+   hfin=24                      ; on prend toutes les orbites de la journee (regule par rtemp)  
+   if rtemp eq 0.5 then pastemp=0.5
+   if rtemp gt 0.5 then pastemp=1
+   if rtemp lt 0.5 then pastemp=0.25
 endif
 pasthor=pastemp*24.