Changeset 163 for trunk/tools/bsf


Ignore:
Timestamp:
11/13/09 10:01:51 (15 years ago)
Author:
pinsard
Message:

going on modify unformal header to idldoc 2. header syntax

Location:
trunk/tools/bsf
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • trunk/tools/bsf/boundperio.pro

    r2 r163  
    11;+ 
    2 ;; 
    3 ;; Controle les conditions cycliques 
    4 ;; 
     2; 
     3; Controle les conditions cycliques 
     4; 
     5; @version 
     6; $Id$ 
     7; 
    58;- 
    69FUNCTION boundperio, z, uu = uu, vv = vv, ff1 = ff1 

  • trunk/tools/bsf/build_laplacien_f.pro

    r2 r163  
    11;+ 
    2 ;;    
    3 ;; Construction du laplacien 2D 
    4 ;; cherche a le lire dans le fichier 
    5 ;; '/workdir/rech/ces/rces023/laplacien_T.dat', sinon il le calcul    
    6 ;; 
    7 ;; 
    8 ;; le laplacien correspond a l''ancienne grille globale d''OPA 
    9 ;; 
    10 ;; il faut modifier cette routine pour toute autre grille 
    11 ;; 
    12 ;; Creation     : juin 1998 :  G. Roullet 
    13 ;; Modification : 26/02/00  :  G.Roullet  
    14 ;;                                Adpation pour ORCA : repliement au pole 
    15 ;;                                Changement du traitement des conditions 
    16 ;;                                Est-Ouest (on masque au lieu de supprimer les points) 
    17 ;;                                   => routine inversion corrigee 
    18 ;; 
     2;    
     3; Construction du laplacien 2D 
     4; cherche a le lire dans le fichier 
     5; '/workdir/rech/ces/rces023/laplacien_T.dat', sinon il le calcul    
     6; 
     7; le laplacien correspond a l''ancienne grille globale d''OPA 
     8; 
     9; il faut modifier cette routine pour toute autre grille 
     10; 
     11; @history 
     12; Creation     : juin 1998 :  G. Roullet 
     13; Modification : 26/02/00  :  G.Roullet  
     14;                                Adpation pour ORCA : repliement au pole 
     15;                                Changement du traitement des conditions 
     16;                                Est-Ouest (on masque au lieu de supprimer les points) 
     17;                                   => routine inversion corrigee 
     18; 
     19; @version 
     20; $Id$ 
     21; 
    1922;- 
    2023PRO build_laplacien_f 

  • trunk/tools/bsf/curl2.pro

    r2 r163  
    11;+ 
    2 ;; 
    3 ;; Calcul du rotationnel d'un champ de vecteur (u,v) [jpi,jpj] 
    4 ;; 
    5 ;; Creation : printemps 98 G. Roullet 
    6 ;; 
     2; 
     3; Calcul du rotationnel d'un champ de vecteur (u,v) [jpi,jpj] 
     4; 
     5; @history  
     6; Creation : printemps 98 G. Roullet 
     7; 
     8; @version 
     9; $Id$ 
     10; 
    711;- 
    812FUNCTION curl2, u, v 

  • trunk/tools/bsf/diag_bsf.pro

    r2 r163  
    11;+ 
    2 ;; 
    3 ;; Calcul de la Fonction de Courant Barotrope  
    4 ;; a partir du champ de vitesse (u,v) 
    5 ;; 
    6 ;; creation : printemps 98 G. Roullet 
    7 ;; 
     2; 
     3; Calcul de la Fonction de Courant Barotrope  
     4; a partir du champ de vitesse (u,v) 
     5; 
     6; @history 
     7; creation : printemps 98 G. Roullet 
     8; 
     9; @version 
     10; $Id$ 
     11; 
    812;- 
    9  
    1013PRO diag_bsf_mu, hu, hv, mu 
    1114@common 
    … …  
    5558   mu(13) = total( (hv*e1v*vmaskr(*, *, 0))[25:131, 100]) 
    5659end 
    57  
     60;+ 
     61; 
     62; Lecture du fichier contenant les fonctions de courant associe a 
     63; chaque ile (pour ORCA) 
     64; 
     65; @history 
     66; Creation : printemps 1998 / G. Roullet 
     67; modification : juin 99 
     68; 
     69;- 
    5870PRO diag_bsf_lec, bsf 
    5971@common 
    6072@com_eg 
    61    ;; 
    62    ;; Lecture du fichier contenant les fonctions de courant associe a 
    63    ;; chaque ile (pour ORCA) 
    64    ;; 
    65    ;; Creation : printemps 1998 / G. Roullet 
    66    ;; modification : juin 99 
    6773   ;; 
    6874   jpisl=14 
    … …  
    7783end 
    7884 
    79  
     85;+ 
     86; 
     87;- 
    8088FUNCTION diag_bsf, u, v, FLUX = flux, _EXTRA = extra 
    81    ;; 
    82    ;;  Routine principale 
    83    ;; 
    8489@common 
    8590COMMON bsf_lec, bsfislands 
    … …  
    117122 
    118123END  
    119  

  • trunk/tools/bsf/inversion.pro

    r2 r163  
    11;+ 
    2 ;; 
    3 ;; Resolution de l'equation A.X=b ou A est une matrice creuse 
    4 ;; et (x,b) sont des champs horizontaux 
    5 ;; 
    6 ;; Creation : printemps 1998 / G. Roullet 
    7 ;;  
     2; 
     3; Resolution de l'equation A.X=b ou A est une matrice creuse 
     4; et (x,b) sont des champs horizontaux 
     5; 
     6; @history 
     7; Creation : printemps 1998 / G. Roullet 
     8;  
     9; @version 
     10; $Id$ 
     11; 
    812;- 
    913FUNCTION inversion, b, GUESS = x, F = f, TOL = tol, _extra = extra 

  • trunk/tools/bsf/moyz.pro

    r2 r163  
    11;+ 
    2 ;; 
    3 ;; Calcul de la moyenne verticale 
    4 ;; 
    5 ;; Creation : printemps 1998 / G. Roullet 
    6 ;;            reecriture : 15/01/99 
    7 ;; 
     2; 
     3; Calcul de la moyenne verticale 
     4; 
     5; @history 
     6; Creation : printemps 1998 / G. Roullet 
     7;            reecriture : 15/01/99 
     8; 
     9; @version 
     10; $Id$ 
     11; 
    812;- 
    913FUNCTION moyz, z, MSK = MSK, INT = int 
Note: See TracChangeset for help on using the changeset viewer.