Changeset 97 for trunk/SRC/ToBeReviewed/CALCULS

Timestamp:

06/09/06 17:18:59 (18 years ago)

Author:

pinsard

Message:

start to modify headers of Obsolete *.pro files for better idldoc output

Location:

trunk/SRC/ToBeReviewed/CALCULS

Files:

• fsfzpt.pro (modified) (2 diffs)
• remplit.pro (modified) (2 diffs)
• rhon.pro (modified) (2 diffs)

trunk/SRC/ToBeReviewed/CALCULS/fsfzpt.pro

@@ -1 @@
-FUNCTION fsfzpt, pfs, pfp
 
 ;+
@@ -14 +13 @@
 ;       checkvalue: fsfzpt=-2.588567 deg.c,for s=40.0,p=500 decibars
 ;-
+FUNCTION fsfzpt, pfs, pfp
   RETURN, ( -0.0575 + 1.710523e-3 * sqrt(pfs) - 2.154996e-4 * pfs  ) * pfs - 7.53e-4 * pfp
 END

trunk/SRC/ToBeReviewed/CALCULS/remplit.pro

@@ -1 @@
-FUNCTION remplit, zinput, NAN = nan, NITER = niter, BASIQUE = basique, mask = mask, FILLXDIR = fillxdir, FILLYDIR = fillydir, FILLVAL = fillval, _extra = ex
-@common
-  tempsun = systime(1)          ; pour key_performance
 ;+
   ;;
@@ -19 +16 @@
 ;
 ;-
+FUNCTION remplit, zinput, NAN = nan, NITER = niter, BASIQUE = basique, mask = mask, FILLXDIR = fillxdir, FILLYDIR = fillydir, FILLVAL = fillval, _extra = ex
+@common
+  tempsun = systime(1)          ; pour key_performance
 ; les points non remplis sont masques a valmask
   IF n_elements(niter) EQ 0 THEN niter = 1

trunk/SRC/ToBeReviewed/CALCULS/rhon.pro

@@ -1 @@
-FUNCTION rhon, sn, tn, INSITU = insitu, SIGMA_N = sigma_n
-@common
-   tempsun = systime(1)         ; pour key_performance
 ;+
    ;;
@@ -11 +8 @@
    ;;
 ;-
+FUNCTION rhon, sn, tn, INSITU = insitu, SIGMA_N = sigma_n
+@common
+   tempsun = systime(1)         ; pour key_performance
       sn = -1e5 > double(sn) < 1e5
       tn = -1e5 > double(tn) < 1e5