Ignore:
Timestamp:
07/25/08 12:58:20 (16 years ago)
Author:
bellier
Message:

Updating for more compliance with CF Metadata Convention.

File:
1 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/)) 
Note: See TracChangeset for help on using the changeset viewer.