Ignore:
Timestamp:
07/17/08 12:28:43 (14 years ago)
Author:
bellier
Message:

More compliance with the CF Metadata Convention

File:
1 edited

Legend:

Unmodified
Added
Removed
  • IOIPSL/trunk/example/testhist2.f90

    r16 r359  
    1717  REAL :: x 
    1818! 
    19   INTEGER :: i, j, l, id, id2, t, ij, sig_id, hori_id, it 
     19  INTEGER :: i, j, l, id, id2, sig_id, hori_id, it 
    2020  INTEGER :: day=1, month=1, year=1997 
    2121  INTEGER :: itau=0, start, index(1) 
     
    6666!     Monthly means are written to test this feature 
    6767!- 
    68   CALL ioconf_modname ('testhist1 produced this file') 
     68  CALL ioconf_modname ('testhist2 produced this file') 
    6969!- 
    7070  CALL histbeg (histname,iim,lon,jjm,lat, & 
    7171 &       1,iim,1,jjm,itau,julday,deltat,hori_id,id) 
    7272!- 
    73   CALL histvert (id,"sigma","Sigma levels","-",llm,lev,sig_id) 
     73  CALL histvert (id,"sigma","Sigma levels"," ",llm,lev,sig_id,pdirect="up") 
    7474!- 
    7575  CALL histdef (id,"champ1","Some field","m", & 
     
    8787 &       1,iim,1,jjm,itau,julday,deltat,hori_id,id2) 
    8888!- 
    89   CALL histvert (id2,"sigma","Sigma levels","-",llm,lev,sig_id) 
     89  CALL histvert (id2,"sigma","Sigma levels"," ",llm,lev,sig_id,pdirect="up") 
    9090!- 
    9191  CALL histdef (id2,"champ1","Some field","m", & 
Note: See TracChangeset for help on using the changeset viewer.