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

Timestamp:

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

Author:

bellier

Message:

Modify examples according to the new version of histdef

File:

• IOIPSL/trunk/example/testhist1.f90 (modified) (1 diff)

IOIPSL/trunk/example/testhist1.f90

@@ -72 +72 @@
   CALL histdef (id,"champ1","Some field","m", &
  &       iim,jjm,hori_id,1,1,1,-99,32,"inst(scatter(x))", &
- &       dt_op,dt_wrt,var_range=(/1.,-1./))
+ &       dt_op,dt_wrt,var_range=(/1.,-1./),standard_name='thickness')
 !-
   CALL histdef (id,"champ2","Another field","m", &
  &       iim,jjm,hori_id,llm,1,llm,sig_id,32,"t_max(max(x,1.0)*2)", &
- &       deltat,dt_wrt,var_range=(/0.,90./))
+ &       deltat,dt_wrt,var_range=(/0.,90./),standard_name='thickness')
 !-
   CALL histdef (id,"champ3","A field without time","m", &
  &       iim,jjm,hori_id,1,1,1,-99, 32,"once", &
- &       deltat,dt_wrt)
+ &       deltat,dt_wrt,standard_name='thickness')
 !-
   CALL histend (id)