- Timestamp:
- 2016-08-23T15:31:34+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r6436_linkOasisNoKeys/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r6333 r6877 190 190 191 191 ! Add vertical grid bounds 192 #if ! defined key_xios2 193 z_bnds(: ,1) = gdepw_1d(:) 194 z_bnds(1:jpkm1,2) = gdepw_1d(2:jpk) 195 z_bnds(jpk: ,2) = gdepw_1d(jpk) + e3t_1d(jpk) 196 #else 192 197 193 z_bnds(1 ,:) = gdepw_1d(:) 198 194 z_bnds(2,1:jpkm1) = gdepw_1d(2:jpk) 199 195 z_bnds(2,jpk: ) = gdepw_1d(jpk) + e3t_1d(jpk) 200 #endif201 196 202 197 CALL iom_set_axis_attr( "deptht", bounds=z_bnds ) … … 204 199 CALL iom_set_axis_attr( "depthv", bounds=z_bnds ) 205 200 206 #if ! defined key_xios2207 z_bnds(: ,2) = gdept_1d(:)208 z_bnds(2:jpk,1) = gdept_1d(1:jpkm1)209 z_bnds(1 ,1) = gdept_1d(1) - e3w_1d(1)210 #else211 201 z_bnds(2,: ) = gdept_1d(:) 212 202 z_bnds(1,2:jpk) = gdept_1d(1:jpkm1) 213 203 z_bnds(1,1 ) = gdept_1d(1) - e3w_1d(1) 214 #endif 204 215 205 CALL iom_set_axis_attr( "depthw", bounds=z_bnds ) 216 206
Note: See TracChangeset
for help on using the changeset viewer.