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 10843 for NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/IOM/iom.F90 – NEMO

Ignore:
Timestamp:
2019-04-05T16:01:32+02:00 (5 years ago)
Author:
andmirek
Message:

ticket #2197 merge with dev_r9950_GO8_package at 10320

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/IOM/iom.F90

    r10032 r10843  
    4343   USE ioipsl, ONLY :  ju2ymds    ! for calendar 
    4444   USE crs             ! Grid coarsening 
     45#if defined key_top 
     46   USE trc, ONLY    :  profsed 
     47#endif 
    4548   USE lib_fortran  
    4649   USE diurnal_bulk, ONLY : ln_diurnal_only, ln_diurnal 
     
    8790   !! NEMO/OCE 4.0 , NEMO Consortium (2018) 
    8891   !! $Id$ 
    89    !! Software governed by the CeCILL licence (./LICENSE) 
     92   !! Software governed by the CeCILL license (see ./LICENSE) 
    9093   !!---------------------------------------------------------------------- 
    9194CONTAINS 
     
    193196      ! vertical grid definition 
    194197      IF(.NOT.llrst_context) THEN 
    195           CALL iom_set_axis_attr( "deptht", paxis = gdept_1d ) 
    196           CALL iom_set_axis_attr( "depthu", paxis = gdept_1d ) 
    197           CALL iom_set_axis_attr( "depthv", paxis = gdept_1d ) 
    198           CALL iom_set_axis_attr( "depthw", paxis = gdepw_1d ) 
     198          CALL iom_set_axis_attr( "deptht",  paxis = gdept_1d ) 
     199          CALL iom_set_axis_attr( "depthu",  paxis = gdept_1d ) 
     200          CALL iom_set_axis_attr( "depthv",  paxis = gdept_1d ) 
     201          CALL iom_set_axis_attr( "depthw",  paxis = gdepw_1d ) 
    199202 
    200203          ! Add vertical grid bounds 
     
    206209          zw_bnds(2,1:jpkm1  ) = gdepw_1d(jkmin:jpk) 
    207210          zw_bnds(2,jpk:     ) = gdepw_1d(jpk) + e3t_1d(jpk) 
    208           CALL iom_set_axis_attr( "deptht", bounds=zt_bnds ) 
    209           CALL iom_set_axis_attr( "depthu", bounds=zt_bnds ) 
    210           CALL iom_set_axis_attr( "depthv", bounds=zt_bnds ) 
    211           CALL iom_set_axis_attr( "depthw", bounds=zw_bnds ) 
     211          CALL iom_set_axis_attr( "deptht", bounds=zw_bnds ) 
     212          CALL iom_set_axis_attr( "depthu", bounds=zw_bnds ) 
     213          CALL iom_set_axis_attr( "depthv", bounds=zw_bnds ) 
     214          CALL iom_set_axis_attr( "depthw", bounds=zt_bnds ) 
    212215          ! 
    213216# if defined key_floats 
     
    219222          CALL iom_set_axis_attr( "nstrait", (/ (REAL(ji,wp), ji=1,4) /) ) 
    220223# endif 
     224#if defined key_top 
     225          CALL iom_set_axis_attr( "profsed", paxis = profsed ) 
     226#endif 
    221227          CALL iom_set_axis_attr( "icbcla", class_num ) 
    222228          CALL iom_set_axis_attr( "iax_20C", (/ REAL(20,wp) /) ) 
Note: See TracChangeset for help on using the changeset viewer.