Changeset 366 for IOIPSL

Timestamp:

07/28/08 10:27:27 (16 years ago)

Author:

bellier

Message:

Some cleaning

File:

• IOIPSL/trunk/example/testrest.f90 (modified) (3 diffs)

IOIPSL/trunk/example/testrest.f90

@@ -18 +18 @@
   REAL :: champ_read(iim,jjm,llm)
   REAL :: lon(iim,jjm),lat(iim,jjm),lev(llm)
-  REAL :: x
 !
-  INTEGER :: i,j,l,fid,t,ij,sig_id,hori_id,it
-  INTEGER :: day=1,month=1,year=1997
-  INTEGER :: itau=1,start,INDEX(1)
+  INTEGER :: i,j,l,fid
+  INTEGER :: day=1,month=1,year=1997,itau=1
 !
   REAL :: julday,un_mois,un_an
   REAL :: deltat=86400,dt_wrt,dt_op,dt_wrt2,dt_op2
-  CHARACTER*20 :: fnamein,fnameout,keyword,value
+  CHARACTER*20 :: fnamein,fnameout
 !
   REAL :: pi=3.1415
@@ -74 +72 @@
   champ2(:,:,:) = EXP(ASIN(1.0))
 !-
-  CALL ioconf_setatt ('units','?')
+  CALL ioconf_setatt ('units','1')
   CALL ioconf_setatt ('long_name','Tests 1 for a real variable')
   CALL restput (fid,'test1',iim,jjm,llm,itau,champ1)
 !-
-  CALL ioconf_setatt ('units','?')
+  CALL ioconf_setatt ('units','1')
   CALL ioconf_setatt ('long_name','Tests 2 for a real variable')
   CALL restput (fid,'test2',iim,jjm,llm+1,itau,champ2)
@@ -119 +117 @@
   itau = itau+10
   CALL restput (fid,'test1',iim,jjm,llm,itau,champ1)
-  CALL ioconf_setatt ('units','?')
+  CALL ioconf_setatt ('units','1')
   CALL ioconf_setatt ('long_name', &
  &                    'Test a variable with another dimension')