Changeset 363 for IOIPSL/trunk

Timestamp:

07/25/08 12:58:20 (16 years ago)

Author:

bellier

Message:

Updating for more compliance with CF Metadata Convention.

Location:

IOIPSL/trunk/example

Files:

• testflio.f90 (modified) (1 diff)
• testhist1.f90 (modified) (1 diff)
• testhist2.f90 (modified) (1 diff)

IOIPSL/trunk/example/testflio.f90

@@ -97 +97 @@
  &  t_axis=itauf(:),t_init=date,t_step=dt,t_calendar="gregorian")
 !-
-  CALL fliodefv (fid,'forcing',(/ 1,2,3,4 /),units='_',v_t=flio_r4)
+  CALL fliodefv (fid,'forcing',(/ 1,2,3,4 /), &
+ &               v_t=flio_r4,units='1',long_name='Forcing field')
   CALL flioputa (fid,'forcing','vecteur_3',(/3.,5.,7./))
   CALL flioputa (fid,'forcing','text_n',"Text attribute")
   CALL fliodefv (fid,'my_var_1',(/ 5 /), &
- &               v_t=flio_r4,units='_',valid_min=-10.,valid_max=+20.)
-  CALL fliodefv (fid,'Var_vr4',v_t=flio_r4,units='_')
+ &               v_t=flio_r4,units='1',long_name='my_var_1', &
+ &               valid_min=-10.,valid_max=+20.)
+  CALL fliodefv (fid,'Var_vr4', &
+ &               v_t=flio_r4,units='1',long_name='Var_vr4')
   CALL flioputa (fid,'Var_vr4','att_1',735)
   CALL flioputa (fid,'?','Param_a4',REAL(parf,KIND=4))
-  CALL fliodefv (fid,'Var_vr8',v_t=flio_r8,units='_')
+  CALL fliodefv (fid,'Var_vr8', &
+ &               v_t=flio_r8,units='1',long_name='Var_vr8')
   CALL fliocpya (fid,'Var_vr4','att_1',fid,'Var_vr8')
   CALL flioputa (fid,'?','Param_a8',REAL(parf,KIND=8))
-  CALL fliodefv (fid,'Var_vi2',v_t=flio_i2,units='_')
+  CALL fliodefv (fid,'Var_vi2', &
+ &               v_t=flio_i2,units='1',long_name='Var_vi2')
   CALL flioputv (fid,'forcing',forcing)
   CALL flioputv (fid,'my_var_1',(/3.,4.,5./),start=(/3/))

IOIPSL/trunk/example/testhist1.f90

@@ -127 +127 @@
 ! 4.0 The HIST routines are ended and netCDF is closed
 !-
-!   CALL histclo
-! This line should work but there seems to be a bug
-! in the optional argument on SUN !
-!-
-  CALL histclo(id)
+  CALL histclo ()
 !--------------------
 END PROGRAM testhist1

IOIPSL/trunk/example/testhist2.f90

@@ -128 +128 @@
 ! 4.0 The HIST routines are ended and netCDF is closed
 !-
-  CALL histclo (id)
-  CALL histclo (id2)
+  CALL histclo ()
 !--------------------
 END PROGRAM testhist2