New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 1991 for vendors/IOIPSL/current/example/testhist2.f90 – NEMO

Ignore:
Timestamp:
2010-07-08T15:39:26+02:00 (14 years ago)
Author:
smasson
Message:

Load working_directory into vendors/IOIPSL/current.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • vendors/IOIPSL/current/example/testhist2.f90

    r1895 r1991  
    11PROGRAM testhist2 
    22!- 
    3 !$Id: testhist2.f90 386 2008-09-04 08:38:48Z bellier $ 
     3!$Id: testhist2.f90 807 2009-11-23 12:11:55Z bellier $ 
    44!- 
    55! This software is governed by the CeCILL license 
     
    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.