Changeset 359 for IOIPSL/trunk/example/testhist2.f90
- Timestamp:
- 07/17/08 12:28:43 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
IOIPSL/trunk/example/testhist2.f90
r16 r359 17 17 REAL :: x 18 18 ! 19 INTEGER :: i, j, l, id, id2, t, ij,sig_id, hori_id, it19 INTEGER :: i, j, l, id, id2, sig_id, hori_id, it 20 20 INTEGER :: day=1, month=1, year=1997 21 21 INTEGER :: itau=0, start, index(1) … … 66 66 ! Monthly means are written to test this feature 67 67 !- 68 CALL ioconf_modname ('testhist 1produced this file')68 CALL ioconf_modname ('testhist2 produced this file') 69 69 !- 70 70 CALL histbeg (histname,iim,lon,jjm,lat, & 71 71 & 1,iim,1,jjm,itau,julday,deltat,hori_id,id) 72 72 !- 73 CALL histvert (id,"sigma","Sigma levels"," -",llm,lev,sig_id)73 CALL histvert (id,"sigma","Sigma levels"," ",llm,lev,sig_id,pdirect="up") 74 74 !- 75 75 CALL histdef (id,"champ1","Some field","m", & … … 87 87 & 1,iim,1,jjm,itau,julday,deltat,hori_id,id2) 88 88 !- 89 CALL histvert (id2,"sigma","Sigma levels"," -",llm,lev,sig_id)89 CALL histvert (id2,"sigma","Sigma levels"," ",llm,lev,sig_id,pdirect="up") 90 90 !- 91 91 CALL histdef (id2,"champ1","Some field","m", &
Note: See TracChangeset
for help on using the changeset viewer.