Changeset 807 for IOIPSL/trunk/example/testhist2.f90

Timestamp:

11/23/09 13:11:55 (15 years ago)

Author:

bellier

Message:

Modify examples according to the new version of histdef

File:

• IOIPSL/trunk/example/testhist2.f90 (modified) (2 diffs)

IOIPSL/trunk/example/testhist2.f90

@@ -76 +76 @@
   CALL histvert (id,"sigma","Sigma levels"," ",llm,lev,sig_id,pdirect="up")
 !-
-  CALL histdef (id,"champ1","Some field","m", &
- &       iim,jjm,hori_id,1,1,1,-99,32,"t_sum",dt_op,dt_wrt)
+  CALL histdef (id,"champ1","Some field","m",iim,jjm,hori_id, &
+ &  1,1,1,-99,32,"t_sum",dt_op,dt_wrt,standard_name='thickness')
 !-
-  CALL histdef (id,"champ2","summed field","m", &
- &       iim,jjm,hori_id,1,1,1,-99,32,"t_sum",dt_op,dt_wrt)
+  CALL histdef (id,"champ2","summed field","m",iim,jjm,hori_id, &
+ &  1,1,1,-99,32,"t_sum",dt_op,dt_wrt,standard_name='thickness')
 !-
   CALL histend (id)
@@ -92 +92 @@
   CALL histvert (id2,"sigma","Sigma levels"," ",llm,lev,sig_id,pdirect="up")
 !-
-  CALL histdef (id2,"champ1","Some field","m", &
- &       iim,jjm,hori_id,1,1,1,-99,32,"t_sum",dt_op2,dt_wrt2)
+  CALL histdef (id2,"champ1","Some field","m",iim,jjm,hori_id, &
+ &  1,1,1,-99,32,"t_sum",dt_op2,dt_wrt2,standard_name='thickness')
 !-
-  CALL histdef (id2,"champ2","summed field","m", &
- &       iim,jjm,hori_id,1,1,1,-99,32,"t_sum",dt_op2,dt_wrt2)
+  CALL histdef (id2,"champ2","summed field","m",iim,jjm,hori_id, &
+ &  1,1,1,-99,32,"t_sum",dt_op2,dt_wrt2,standard_name='thickness')
 !-
   CALL histend (id2)