Ignore:
Timestamp:
02/16/11 16:13:10 (13 years ago)
Author:
jgipsl
Message:

Bug correction :

  • changed to use file grilles_gcm.nc instead of start.nc

Some simplifications.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • CONFIG/LMDZOR/branches/LMDZOR_v4/CREATE/SCRIPT/era2gcm.x

    r1190 r1311  
    1313##################################################################### 
    1414if ( ! -f $GRILLE_FI ) then 
    15     echo fichier start.nc must exist 
     15    echo fichier grilles_gcm.nc must exist 
    1616    exit 
    1717endif 
    18  
    19 set iip1=`ncdump -h $GRILLE_FI | grep rlonu | head -1 | awk ' { print $3 } '` 
    20 set jjm=`ncdump -h $GRILLE_FI | grep rlatv | head -1 | awk ' { print $3 } '` 
    21 set jjp1=`expr $jjm + 1` 
    22 set iim=`expr $iip1 - 1` 
    23  
    24 echo iim=$iim jjm=$jjm 
    2518 
    2619################################################################### 
    … …  
    9386 
    9487define axis/t=1-jan-${an}:31-dec-${an}:6/units=hours thour 
    95 define grid/like=uwnd[d=2]/x=cu[d=1]/y=cu[d=1] grille_u 
    96 define grid/like=vwnd[d=3]/x=cv[d=1]/y=cv[d=1] grille_v 
    97 define grid/like=air[d=4]/x=cv[d=1]/y=cu[d=1] grille_T 
     88define grid/like=uwnd[d=2]/x=grille_u[d=1]/y=grille_u[d=1] grille_u 
     89define grid/like=vwnd[d=3]/x=grille_v[d=1]/y=grille_v[d=1] grille_v 
     90define grid/like=air[d=4]/x=grille_v[d=1]/y=grille_u[d=1] grille_T 
    9891 
    99 !save/clobber/file=T$outsuf air[d=4,g=grille_T,i=1:$iip1,j=1:$jjp1,$t0,gt=thour@asn] 
    100 !repeat/$t1tn save/file="T$outsuf"/append air[d=4,g=grille_T,i=1:$iip1,j=1:$jjp1,gt=thour@asn] 
     92save/clobber/file=T$outsuf air[d=4,g=grille_T,$t0,gt=thour@asn] 
     93repeat/$t1tn save/file="T$outsuf"/append air[d=4,g=grille_T,gt=thour@asn] 
    10194 
    102 save/clobber/file=u$outsuf uwnd[d=2,g=grille_u,i=1:$iip1,j=1:$jjp1,$t0,gt=thour@asn] 
    103 repeat/$t1tn save/file="u$outsuf"/append uwnd[d=2,g=grille_u,i=1:$iip1,j=1:$jjp1,gt=thour@asn] 
     95save/clobber/file=u$outsuf uwnd[d=2,g=grille_u,$t0,gt=thour@asn] 
     96repeat/$t1tn save/file="u$outsuf"/append uwnd[d=2,g=grille_u,gt=thour@asn] 
    10497 
    105 save/clobber/file=v$outsuf vwnd[d=3,g=grille_v,i=1:$iip1,j=1:$jjm,$t0,gt=thour@asn] 
    106 repeat/$t1tn save/file="v$outsuf"/append vwnd[d=3,g=grille_v,i=1:$iip1,j=1:$jjm,gt=thour@asn] 
     98save/clobber/file=v$outsuf vwnd[d=3,g=grille_v,$t0,gt=thour@asn] 
     99repeat/$t1tn save/file="v$outsuf"/append vwnd[d=3,g=grille_v,gt=thour@asn] 
    107100 
    108 !save/clobber/file=hur$outsuf rh[d=5,g=grille_T,i=1:$iip1,j=1:$jjp1,$t0,gt=thour@asn] 
    109 !repeat/$t1tn save/file="hur$outsuf"/append rh[d=5,g=grille_T,i=1:$iip1,j=1:$jjp1,gt=thour@asn] 
     101save/clobber/file=hur$outsuf rh[d=5,g=grille_T,$t0,gt=thour@asn] 
     102repeat/$t1tn save/file="hur$outsuf"/append rh[d=5,g=grille_T,gt=thour@asn] 
    110103 
    111 !save/clobber/file=ps$outsuf sp[d=6,g=grille_T,i=1:$iip1,j=1:$jjp1,$t0,gt=thour@asn] 
    112 !repeat/$t1tn save/file="ps$outsuf"/append sp[d=6,g=grille_T,i=1:$iip1,j=1:$jjp1,gt=thour@asn] 
     104save/clobber/file=ps$outsuf sp[d=6,g=grille_T,$t0,gt=thour@asn] 
     105repeat/$t1tn save/file="ps$outsuf"/append sp[d=6,g=grille_T,gt=thour@asn] 
    113106 
    114107eod 
Note: See TracChangeset for help on using the changeset viewer.