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

Modify examples according to the new version of histdef

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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.