Changeset 1991 for vendors/IOIPSL/current/example/testhist2.f90
- Timestamp:
- 2010-07-08T15:39:26+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
vendors/IOIPSL/current/example/testhist2.f90
r1895 r1991 1 1 PROGRAM testhist2 2 2 !- 3 !$Id: testhist2.f90 386 2008-09-04 08:38:48Z bellier $3 !$Id: testhist2.f90 807 2009-11-23 12:11:55Z bellier $ 4 4 !- 5 5 ! This software is governed by the CeCILL license … … 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.