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 4292 for branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/SAS_SRC – NEMO

Ignore:
Timestamp:
2013-11-20T17:28:04+01:00 (11 years ago)
Author:
cetlod
Message:

dev_MERGE_2013 : 1st step of the merge, see ticket #1185

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/SAS_SRC/diawri.F90

    r4148 r4292  
    220220            &          nit000-1, zjulian, zdt, nh_T, nid_T, domain_id=nidom, snc4chunks=snc4set ) 
    221221         CALL histvert( nid_T, "deptht", "Vertical T levels",      &  ! Vertical grid: gdept 
    222             &           "m", ipk, gdept_0, nz_T, "down" ) 
     222            &           "m", ipk, gdept_1d, nz_T, "down" ) 
    223223         !                                                            ! Index of ocean points 
    224224         CALL wheneq( jpi*jpj    , tmask, 1, 1., ndex_hT, ndim_hT )      ! surface 
    … …  
    232232            &          nit000-1, zjulian, zdt, nh_U, nid_U, domain_id=nidom, snc4chunks=snc4set ) 
    233233         CALL histvert( nid_U, "depthu", "Vertical U levels",      &  ! Vertical grid: gdept 
    234             &           "m", ipk, gdept_0, nz_U, "down" ) 
     234            &           "m", ipk, gdept_1d, nz_U, "down" ) 
    235235         !                                                            ! Index of ocean points 
    236236         CALL wheneq( jpi*jpj    , umask, 1, 1., ndex_hU, ndim_hU )      ! surface 
    … …  
    244244            &          nit000-1, zjulian, zdt, nh_V, nid_V, domain_id=nidom, snc4chunks=snc4set ) 
    245245         CALL histvert( nid_V, "depthv", "Vertical V levels",      &  ! Vertical grid : gdept 
    246             &          "m", ipk, gdept_0, nz_V, "down" ) 
     246            &          "m", ipk, gdept_1d, nz_V, "down" ) 
    247247         !                                                            ! Index of ocean points 
    248248         CALL wheneq( jpi*jpj    , vmask, 1, 1., ndex_hV, ndim_hV )      ! surface 
    … …  
    394394          1, jpi, 1, jpj, nit000-1, zjulian, zdt, nh_i, id_i, domain_id=nidom, snc4chunks=snc4set ) ! Horizontal grid : glamt and gphit 
    395395      CALL histvert( id_i, "deptht", "Vertical T levels",   &    ! Vertical grid : gdept 
    396           "m", jpk, gdept_0, nz_i, "down") 
     396          "m", jpk, gdept_1d, nz_i, "down") 
    397397 
    398398      ! Declare all the output fields as NetCDF variables 
Note: See TracChangeset for help on using the changeset viewer.