Changeset 359 for IOIPSL/trunk/example

Timestamp:

07/17/08 12:28:43 (16 years ago)

Author:

bellier

Message:

More compliance with the CF Metadata Convention

Location:

IOIPSL/trunk/example

Files:

• testhist1.f90 (modified) (1 diff)
• testhist2.f90 (modified) (3 diffs)

IOIPSL/trunk/example/testhist1.f90

@@ -65 +65 @@
  &              1,iim,1,jjm,itau,julday,deltat,hori_id,id)
 !-
-  CALL histvert (id,"sigma","Sigma levels","-",llm,lev,sig_id)
+  CALL histvert (id,"sigma","Sigma levels"," ",llm,lev,sig_id,pdirect="up")
 !-
   CALL histdef (id,"champ1","Some field","m", &

IOIPSL/trunk/example/testhist2.f90

@@ -17 +17 @@
   REAL :: x
 !
-  INTEGER :: i, j, l, id, id2, t, ij, sig_id, hori_id, it
+  INTEGER :: i, j, l, id, id2, sig_id, hori_id, it
   INTEGER :: day=1, month=1, year=1997
   INTEGER :: itau=0, start, index(1)
@@ -66 +66 @@
 !     Monthly means are written to test this feature
 !-
-  CALL ioconf_modname ('testhist1 produced this file')
+  CALL ioconf_modname ('testhist2 produced this file')
 !-
   CALL histbeg (histname,iim,lon,jjm,lat, &
  &       1,iim,1,jjm,itau,julday,deltat,hori_id,id)
 !-
-  CALL histvert (id,"sigma","Sigma levels","-",llm,lev,sig_id)
+  CALL histvert (id,"sigma","Sigma levels"," ",llm,lev,sig_id,pdirect="up")
 !-
   CALL histdef (id,"champ1","Some field","m", &
@@ -87 +87 @@
  &       1,iim,1,jjm,itau,julday,deltat,hori_id,id2)
 !-
-  CALL histvert (id2,"sigma","Sigma levels","-",llm,lev,sig_id)
+  CALL histvert (id2,"sigma","Sigma levels"," ",llm,lev,sig_id,pdirect="up")
 !-
   CALL histdef (id2,"champ1","Some field","m", &