Changeset 75 for IOIPSL/trunk/example/testhist1.f90
- Timestamp:
- 06/25/07 14:19:52 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
IOIPSL/trunk/example/testhist1.f90
r30 r75 68 68 !- 69 69 CALL histdef (id,"champ1","Some field","m", & 70 & iim,jjm,hori_id,1,1,1,-99,32,"inst(scatter(x))",dt_op,dt_wrt) 70 & iim,jjm,hori_id,1,1,1,-99,32,"inst(scatter(x))", & 71 & dt_op,dt_wrt,var_range=(/1.,-1./)) 71 72 !- 72 73 CALL histdef (id,"champ2","Another field","m", & 73 74 & iim,jjm,hori_id,llm,1,llm,sig_id,32,"t_max(max(x,1.0)*2)", & 74 & deltat,dt_wrt )75 & deltat,dt_wrt,var_range=(/0.,90./)) 75 76 !- 76 77 CALL histdef (id,"champ3","A field without time","m", &
Note: See TracChangeset
for help on using the changeset viewer.