Changeset 98


Ignore:
Timestamp:
06/09/06 17:55:26 (18 years ago)
Author:
smasson
Message:

bugfix ncdf_meshread + comments in compute_fromreg_bilinear_weigaddr

Location:
trunk/SRC
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/SRC/Documentation/xmldoc/savesaxo.sh

    r97 r98  
    2525doSRClodyc=0 
    2626doDTAlodyc=0 
    27 doSRCidris=0 
    28 doDTAidris=0 
     27doSRCidris=1 
     28doDTAidris=1 
    2929# 
    3030# 
     
    179179filesrc=$(echo ${infosrc} | awk '{print $NF}') 
    180180filesrc=$( basename $filesrc ) 
     181[ $doSRClodyc -eq 1 ] && rshell=bash || rshell=ksh 
    181182# 
    182183    cat <<EOF > job_src_$$ 
    183 #!/bin/bash 
     184#!/bin/${rshell} 
    184185cd SAXO_DIR 
    185186# 
     
    187188wget http://forge.ipsl.jussieu.fr/saxo/download/$filesrc 
    188189gunzip $filesrc 
    189 tar xf $( basename $filesrc .gz ) 
     190tar vxf $( basename $filesrc .gz ) 
    190191rm -f $( basename $filesrc .gz ) 
    191192# 
     
    201202filedata=$(echo ${infodata} | awk '{print $NF}') 
    202203filedata=$(basename $filedata) 
     204[ $doDTAlodyc -eq 1 ] && rshell=bash || rshell=ksh 
    203205    cat <<EOF > job_data_$$ 
    204 #!/bin/bash 
     206#!/bin/${rshell} 
    205207cd SAXO_DIR 
    206208# 
     
    208210wget http://forge.ipsl.jussieu.fr/saxo/download/$filedata 
    209211gunzip $filedata 
    210 tar xf $( basename $filedata .gz ) 
     212tar vxf $( basename $filedata .gz ) 
    211213rm -f $( basename $filedata .gz ) 
    212214# 
  • trunk/SRC/Grid/ncdf_meshread.pro

    r74 r98  
    440440    ny = lasty-firsty+1 
    441441@read_ncdf_varget 
     442    IF jpk EQ 1 THEN res = reform(res, jpi, 1, jpk, /over) 
    442443    vmaskred = transpose(temporary(res), [1, 0, 2]) 
    443444    vmaskred = reform(binary(vmaskred), 8*ny, nx, nz, /over) 
     
    453454  IF micromask NE -1 THEN BEGIN 
    454455@read_ncdf_varget 
     456    IF jpk EQ 1 THEN res = reform(res, jpi, 1, jpk, /over) 
    455457    fmaskredx = transpose(temporary(res), [1, 0, 2]) 
    456458    fmaskredx = reform(binary(fmaskredx), 8*ny, nx, nz, /over) 
  • trunk/SRC/Interpolation/compute_fromreg_bilinear_weigaddr.pro

    r59 r98  
    1111; 
    1212; INPUTS: 
    13 ;     lonin and latin: longitude/latitude of the input data  
    14 ;     lonout and latout: longitude/latitude of the output data  
     13;     lonin and latin: longitude/latitude of the input data. Must be 1D arrays 
     14;     lonout and latout: longitude/latitude of the output data. Must be 2D arrays 
    1515; 
    1616; KEYWORD PARAMETERS:  
Note: See TracChangeset for help on using the changeset viewer.