Changeset 807 for IOIPSL/trunk/example/testhist2.f90
- Timestamp:
- 11/23/09 13:11:55 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
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.