Changeset 1991 for vendors/IOIPSL/current/example/testhist1.f90

Timestamp:

2010-07-08T15:39:26+02:00 (14 years ago)

Author:

smasson

Message:

Load working_directory into vendors/IOIPSL/current.

File:

• vendors/IOIPSL/current/example/testhist1.f90 (modified) (2 diffs)

vendors/IOIPSL/current/example/testhist1.f90

@@ -1 +1 @@
 PROGRAM testhist1
 !-
-!$Id: testhist1.f90 386 2008-09-04 08:38:48Z bellier $
+!$Id: testhist1.f90 807 2009-11-23 12:11:55Z bellier $
 !-
 ! This software is governed by the CeCILL license
@@ -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)