Changeset 363 for IOIPSL


Ignore:
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:
3 edited

Legend:

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

    r16 r363  
    9797 &  t_axis=itauf(:),t_init=date,t_step=dt,t_calendar="gregorian") 
    9898!- 
    99   CALL fliodefv (fid,'forcing',(/ 1,2,3,4 /),units='_',v_t=flio_r4) 
     99  CALL fliodefv (fid,'forcing',(/ 1,2,3,4 /), & 
     100 &               v_t=flio_r4,units='1',long_name='Forcing field') 
    100101  CALL flioputa (fid,'forcing','vecteur_3',(/3.,5.,7./)) 
    101102  CALL flioputa (fid,'forcing','text_n',"Text attribute") 
    102103  CALL fliodefv (fid,'my_var_1',(/ 5 /), & 
    103  &               v_t=flio_r4,units='_',valid_min=-10.,valid_max=+20.) 
    104   CALL fliodefv (fid,'Var_vr4',v_t=flio_r4,units='_') 
     104 &               v_t=flio_r4,units='1',long_name='my_var_1', & 
     105 &               valid_min=-10.,valid_max=+20.) 
     106  CALL fliodefv (fid,'Var_vr4', & 
     107 &               v_t=flio_r4,units='1',long_name='Var_vr4') 
    105108  CALL flioputa (fid,'Var_vr4','att_1',735) 
    106109  CALL flioputa (fid,'?','Param_a4',REAL(parf,KIND=4)) 
    107   CALL fliodefv (fid,'Var_vr8',v_t=flio_r8,units='_') 
     110  CALL fliodefv (fid,'Var_vr8', & 
     111 &               v_t=flio_r8,units='1',long_name='Var_vr8') 
    108112  CALL fliocpya (fid,'Var_vr4','att_1',fid,'Var_vr8') 
    109113  CALL flioputa (fid,'?','Param_a8',REAL(parf,KIND=8)) 
    110   CALL fliodefv (fid,'Var_vi2',v_t=flio_i2,units='_') 
     114  CALL fliodefv (fid,'Var_vi2', & 
     115 &               v_t=flio_i2,units='1',long_name='Var_vi2') 
    111116  CALL flioputv (fid,'forcing',forcing) 
    112117  CALL flioputv (fid,'my_var_1',(/3.,4.,5./),start=(/3/)) 
  • IOIPSL/trunk/example/testhist1.f90

    r359 r363  
    127127! 4.0 The HIST routines are ended and netCDF is closed 
    128128!- 
    129 !   CALL histclo 
    130 ! This line should work but there seems to be a bug 
    131 ! in the optional argument on SUN ! 
    132 !- 
    133   CALL histclo(id) 
     129  CALL histclo () 
    134130!-------------------- 
    135131END PROGRAM testhist1 
  • IOIPSL/trunk/example/testhist2.f90

    r359 r363  
    128128! 4.0 The HIST routines are ended and netCDF is closed 
    129129!- 
    130   CALL histclo (id) 
    131   CALL histclo (id2) 
     130  CALL histclo () 
    132131!-------------------- 
    133132END PROGRAM testhist2 
Note: See TracChangeset for help on using the changeset viewer.