- Timestamp:
- 07/25/08 12:58:20 (16 years ago)
- Location:
- IOIPSL/trunk/example
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
IOIPSL/trunk/example/testflio.f90
r16 r363 97 97 & t_axis=itauf(:),t_init=date,t_step=dt,t_calendar="gregorian") 98 98 !- 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') 100 101 CALL flioputa (fid,'forcing','vecteur_3',(/3.,5.,7./)) 101 102 CALL flioputa (fid,'forcing','text_n',"Text attribute") 102 103 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') 105 108 CALL flioputa (fid,'Var_vr4','att_1',735) 106 109 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') 108 112 CALL fliocpya (fid,'Var_vr4','att_1',fid,'Var_vr8') 109 113 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') 111 116 CALL flioputv (fid,'forcing',forcing) 112 117 CALL flioputv (fid,'my_var_1',(/3.,4.,5./),start=(/3/)) -
IOIPSL/trunk/example/testhist1.f90
r359 r363 127 127 ! 4.0 The HIST routines are ended and netCDF is closed 128 128 !- 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 () 134 130 !-------------------- 135 131 END PROGRAM testhist1 -
IOIPSL/trunk/example/testhist2.f90
r359 r363 128 128 ! 4.0 The HIST routines are ended and netCDF is closed 129 129 !- 130 CALL histclo (id) 131 CALL histclo (id2) 130 CALL histclo () 132 131 !-------------------- 133 132 END PROGRAM testhist2
Note: See TracChangeset
for help on using the changeset viewer.