Changeset 807 for IOIPSL


Ignore:
Timestamp:
11/23/09 13:11:55 (14 years ago)
Author:
bellier
Message:

Modify examples according to the new version of histdef

Location:
IOIPSL/trunk/example
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • IOIPSL/trunk/example/testhist1.f90

    r386 r807  
    7272  CALL histdef (id,"champ1","Some field","m", & 
    7373 &       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') 
    7575!- 
    7676  CALL histdef (id,"champ2","Another field","m", & 
    7777 &       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') 
    7979!- 
    8080  CALL histdef (id,"champ3","A field without time","m", & 
    8181 &       iim,jjm,hori_id,1,1,1,-99, 32,"once", & 
    82  &       deltat,dt_wrt) 
     82 &       deltat,dt_wrt,standard_name='thickness') 
    8383!- 
    8484  CALL histend (id) 
  • IOIPSL/trunk/example/testhist2.f90

    r386 r807  
    7676  CALL histvert (id,"sigma","Sigma levels"," ",llm,lev,sig_id,pdirect="up") 
    7777!- 
    78   CALL histdef (id,"champ1","Some field","m", & 
    79  &       iim,jjm,hori_id,1,1,1,-99,32,"t_sum",dt_op,dt_wrt) 
     78  CALL histdef (id,"champ1","Some field","m",iim,jjm,hori_id, & 
     79 &  1,1,1,-99,32,"t_sum",dt_op,dt_wrt,standard_name='thickness') 
    8080!- 
    81   CALL histdef (id,"champ2","summed field","m", & 
    82  &       iim,jjm,hori_id,1,1,1,-99,32,"t_sum",dt_op,dt_wrt) 
     81  CALL histdef (id,"champ2","summed field","m",iim,jjm,hori_id, & 
     82 &  1,1,1,-99,32,"t_sum",dt_op,dt_wrt,standard_name='thickness') 
    8383!- 
    8484  CALL histend (id) 
     
    9292  CALL histvert (id2,"sigma","Sigma levels"," ",llm,lev,sig_id,pdirect="up") 
    9393!- 
    94   CALL histdef (id2,"champ1","Some field","m", & 
    95  &       iim,jjm,hori_id,1,1,1,-99,32,"t_sum",dt_op2,dt_wrt2) 
     94  CALL histdef (id2,"champ1","Some field","m",iim,jjm,hori_id, & 
     95 &  1,1,1,-99,32,"t_sum",dt_op2,dt_wrt2,standard_name='thickness') 
    9696!- 
    97   CALL histdef (id2,"champ2","summed field","m", & 
    98  &       iim,jjm,hori_id,1,1,1,-99,32,"t_sum",dt_op2,dt_wrt2) 
     97  CALL histdef (id2,"champ2","summed field","m",iim,jjm,hori_id, & 
     98 &  1,1,1,-99,32,"t_sum",dt_op2,dt_wrt2,standard_name='thickness') 
    9999!- 
    100100  CALL histend (id2) 
Note: See TracChangeset for help on using the changeset viewer.