Changeset 75 for IOIPSL/trunk/example

Timestamp:

06/25/07 14:19:52 (17 years ago)

Author:

bellier

Message:

JB: new version of histcom (min-max values) and test

File:

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

IOIPSL/trunk/example/testhist1.f90

@@ -68 +68 @@
 !-
   CALL histdef (id,"champ1","Some field","m", &
- &       iim,jjm,hori_id,1,1,1,-99,32,"inst(scatter(x))",dt_op,dt_wrt)
+ &       iim,jjm,hori_id,1,1,1,-99,32,"inst(scatter(x))", &
+ &       dt_op,dt_wrt,var_range=(/1.,-1./))
 !-
   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)
+ &       deltat,dt_wrt,var_range=(/0.,90./))
 !-
   CALL histdef (id,"champ3","A field without time","m", &