Changeset 22 for trunk


Ignore:
Timestamp:
06/06/07 17:05:32 (17 years ago)
Author:
pinsard
Message:

correction for DRAKKAR_EXP usage

Location:
trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/condmag_from_orca.pro

    r19 r22  
    7777; 
    7878; @history 
     79; reee522 2007-06-06T14:57:39Z rhodes (IRIX64) 
     80; correction for DRAKKAR_EXP usage 
    7981; fplod 2007-03-21T13:23:55Z aedon.locean-ipsl.upmc.fr (Darwin) 
    8082; create from condmag_on_orca to validate step1 of GEOMAG 
    … …  
    138140                    ENDCASE 
    139141                    filename_oce = orcares + '-' + drakkar_exp + '_mesh_hgr.nc' 
    140                  END 
     142                 ENDIF ELSE BEGIN 
     143                    msg = 'eee : unset DRAKKAR_EXP keyword' 
     144                    ras = report(msg) 
     145                    msg = 'eee : orcares must be G42 or G70' 
     146                    ras = report(msg) 
     147                    RETURN 
     148                 ENDELSE 
    141149              END 
    142150      ELSE  : BEGIN 

  • trunk/condmag_on_orca.pro

    r20 r22  
    5757; 
    5858; @history 
     59; reee522 2007-06-06T14:57:39Z rhodes (IRIX64) 
     60; correction for DRAKKAR_EXP usage 
    5961; reee522 2006-12-13T13:50:32Z rhodes (IRIX64) 
    6062; add optional keyword drakkar_exp 
    … …  
    135137                    ENDCASE 
    136138                    filename_oce = orcares + '-' + drakkar_exp + '_mesh_hgr.nc' 
    137                  END 
     139                 ENDIF ELSE BEGIN 
     140                    msg = 'eee : unset DRAKKAR_EXP keyword'  
     141                    ras = report(msg) 
     142                    RETURN 
     143                 ENDELSE 
    138144              END 
    139145      ELSE  : BEGIN 

  • trunk/initocemesh.pro

    r21 r22  
    2525; 
    2626; @history 
     27; reee522 2007-06-06T14:57:39Z rhodes (IRIX64) 
     28; correction for DRAKKAR_EXP usage 
    2729; F. Vivier 2003 
    2830; F. Pinsard adaptation to new SAXO 
    … …  
    99101                    ENDCASE 
    100102                    filename_oce = orcares + '-' + drakkar_exp + '_mesh_hgr.nc' 
    101                  END 
     103                 ENDIF ELSE BEGIN 
     104                    msg = 'eee : unset DRAKKAR_EXP keyword' 
     105                    ras = report(msg) 
     106                    msg = 'eee : orcares must be G42 or G70' 
     107                    ras = report(msg) 
     108                    RETURN 
     109                 ENDELSE 
    102110              END 
    103111    ELSE  : BEGIN 
Note: See TracChangeset for help on using the changeset viewer.