Changeset 10843 for NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/IOM/iom.F90
- Timestamp:
- 2019-04-05T16:01:32+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/IOM/iom.F90
r10032 r10843 43 43 USE ioipsl, ONLY : ju2ymds ! for calendar 44 44 USE crs ! Grid coarsening 45 #if defined key_top 46 USE trc, ONLY : profsed 47 #endif 45 48 USE lib_fortran 46 49 USE diurnal_bulk, ONLY : ln_diurnal_only, ln_diurnal … … 87 90 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 88 91 !! $Id$ 89 !! Software governed by the CeCILL licen ce (./LICENSE)92 !! Software governed by the CeCILL license (see ./LICENSE) 90 93 !!---------------------------------------------------------------------- 91 94 CONTAINS … … 193 196 ! vertical grid definition 194 197 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 ) 199 202 200 203 ! Add vertical grid bounds … … 206 209 zw_bnds(2,1:jpkm1 ) = gdepw_1d(jkmin:jpk) 207 210 zw_bnds(2,jpk: ) = gdepw_1d(jpk) + e3t_1d(jpk) 208 CALL iom_set_axis_attr( "deptht", bounds=z t_bnds )209 CALL iom_set_axis_attr( "depthu", bounds=z t_bnds )210 CALL iom_set_axis_attr( "depthv", bounds=z t_bnds )211 CALL iom_set_axis_attr( "depthw", bounds=z w_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 ) 212 215 ! 213 216 # if defined key_floats … … 219 222 CALL iom_set_axis_attr( "nstrait", (/ (REAL(ji,wp), ji=1,4) /) ) 220 223 # endif 224 #if defined key_top 225 CALL iom_set_axis_attr( "profsed", paxis = profsed ) 226 #endif 221 227 CALL iom_set_axis_attr( "icbcla", class_num ) 222 228 CALL iom_set_axis_attr( "iax_20C", (/ REAL(20,wp) /) )
Note: See TracChangeset
for help on using the changeset viewer.