- Timestamp:
- 2010-07-08T15:42:43+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/IOIPSL/example/testhist1.f90
r1895 r1993 1 1 PROGRAM testhist1 2 2 !- 3 !$Id: testhist1.f90 386 2008-09-04 08:38:48Z bellier $3 !$Id: testhist1.f90 807 2009-11-23 12:11:55Z bellier $ 4 4 !- 5 5 ! This software is governed by the CeCILL license … … 72 72 CALL histdef (id,"champ1","Some field","m", & 73 73 & iim,jjm,hori_id,1,1,1,-99,32,"inst(scatter(x))", & 74 & dt_op,dt_wrt,var_range=(/1.,-1./) )74 & dt_op,dt_wrt,var_range=(/1.,-1./),standard_name='thickness') 75 75 !- 76 76 CALL histdef (id,"champ2","Another field","m", & 77 77 & iim,jjm,hori_id,llm,1,llm,sig_id,32,"t_max(max(x,1.0)*2)", & 78 & deltat,dt_wrt,var_range=(/0.,90./) )78 & deltat,dt_wrt,var_range=(/0.,90./),standard_name='thickness') 79 79 !- 80 80 CALL histdef (id,"champ3","A field without time","m", & 81 81 & iim,jjm,hori_id,1,1,1,-99, 32,"once", & 82 & deltat,dt_wrt )82 & deltat,dt_wrt,standard_name='thickness') 83 83 !- 84 84 CALL histend (id)
Note: See TracChangeset
for help on using the changeset viewer.