Changeset 807 for IOIPSL/trunk
- Timestamp:
- 11/23/09 13:11:55 (15 years ago)
- Location:
- IOIPSL/trunk/example
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
IOIPSL/trunk/example/testhist1.f90
r386 r807 72 72 CALL histdef (id,"champ1","Some field","m", & 73 73 & iim,jjm,hori_id,1,1,1,-99,32,"inst(scatter(x))", & 74 & dt_op,dt_wrt,var_range=(/1.,-1./) )74 & dt_op,dt_wrt,var_range=(/1.,-1./),standard_name='thickness') 75 75 !- 76 76 CALL histdef (id,"champ2","Another field","m", & 77 77 & iim,jjm,hori_id,llm,1,llm,sig_id,32,"t_max(max(x,1.0)*2)", & 78 & deltat,dt_wrt,var_range=(/0.,90./) )78 & deltat,dt_wrt,var_range=(/0.,90./),standard_name='thickness') 79 79 !- 80 80 CALL histdef (id,"champ3","A field without time","m", & 81 81 & iim,jjm,hori_id,1,1,1,-99, 32,"once", & 82 & deltat,dt_wrt )82 & deltat,dt_wrt,standard_name='thickness') 83 83 !- 84 84 CALL histend (id) -
IOIPSL/trunk/example/testhist2.f90
r386 r807 76 76 CALL histvert (id,"sigma","Sigma levels"," ",llm,lev,sig_id,pdirect="up") 77 77 !- 78 CALL histdef (id,"champ1","Some field","m", &79 & iim,jjm,hori_id,1,1,1,-99,32,"t_sum",dt_op,dt_wrt)78 CALL histdef (id,"champ1","Some field","m",iim,jjm,hori_id, & 79 & 1,1,1,-99,32,"t_sum",dt_op,dt_wrt,standard_name='thickness') 80 80 !- 81 CALL histdef (id,"champ2","summed field","m", &82 & iim,jjm,hori_id,1,1,1,-99,32,"t_sum",dt_op,dt_wrt)81 CALL histdef (id,"champ2","summed field","m",iim,jjm,hori_id, & 82 & 1,1,1,-99,32,"t_sum",dt_op,dt_wrt,standard_name='thickness') 83 83 !- 84 84 CALL histend (id) … … 92 92 CALL histvert (id2,"sigma","Sigma levels"," ",llm,lev,sig_id,pdirect="up") 93 93 !- 94 CALL histdef (id2,"champ1","Some field","m", &95 & iim,jjm,hori_id,1,1,1,-99,32,"t_sum",dt_op2,dt_wrt2)94 CALL histdef (id2,"champ1","Some field","m",iim,jjm,hori_id, & 95 & 1,1,1,-99,32,"t_sum",dt_op2,dt_wrt2,standard_name='thickness') 96 96 !- 97 CALL histdef (id2,"champ2","summed field","m", &98 & iim,jjm,hori_id,1,1,1,-99,32,"t_sum",dt_op2,dt_wrt2)97 CALL histdef (id2,"champ2","summed field","m",iim,jjm,hori_id, & 98 & 1,1,1,-99,32,"t_sum",dt_op2,dt_wrt2,standard_name='thickness') 99 99 !- 100 100 CALL histend (id2)
Note: See TracChangeset
for help on using the changeset viewer.