Ignore:
Timestamp:
07/28/08 10:27:27 (14 years ago)
Author:
bellier
Message:

Some cleaning

File:
1 edited

Legend:

Unmodified
Added
Removed
  • IOIPSL/trunk/example/testrest.f90

    r122 r366  
    1818  REAL :: champ_read(iim,jjm,llm) 
    1919  REAL :: lon(iim,jjm),lat(iim,jjm),lev(llm) 
    20   REAL :: x 
    2120! 
    22   INTEGER :: i,j,l,fid,t,ij,sig_id,hori_id,it 
    23   INTEGER :: day=1,month=1,year=1997 
    24   INTEGER :: itau=1,start,INDEX(1) 
     21  INTEGER :: i,j,l,fid 
     22  INTEGER :: day=1,month=1,year=1997,itau=1 
    2523! 
    2624  REAL :: julday,un_mois,un_an 
    2725  REAL :: deltat=86400,dt_wrt,dt_op,dt_wrt2,dt_op2 
    28   CHARACTER*20 :: fnamein,fnameout,keyword,value 
     26  CHARACTER*20 :: fnamein,fnameout 
    2927! 
    3028  REAL :: pi=3.1415 
     
    7472  champ2(:,:,:) = EXP(ASIN(1.0)) 
    7573!- 
    76   CALL ioconf_setatt ('units','?') 
     74  CALL ioconf_setatt ('units','1') 
    7775  CALL ioconf_setatt ('long_name','Tests 1 for a real variable') 
    7876  CALL restput (fid,'test1',iim,jjm,llm,itau,champ1) 
    7977!- 
    80   CALL ioconf_setatt ('units','?') 
     78  CALL ioconf_setatt ('units','1') 
    8179  CALL ioconf_setatt ('long_name','Tests 2 for a real variable') 
    8280  CALL restput (fid,'test2',iim,jjm,llm+1,itau,champ2) 
     
    119117  itau = itau+10 
    120118  CALL restput (fid,'test1',iim,jjm,llm,itau,champ1) 
    121   CALL ioconf_setatt ('units','?') 
     119  CALL ioconf_setatt ('units','1') 
    122120  CALL ioconf_setatt ('long_name', & 
    123121 &                    'Test a variable with another dimension') 
Note: See TracChangeset for help on using the changeset viewer.