Changeset 12598 for NEMO/releases/r4.0/r4.0-HEAD
- Timestamp:
- 2020-03-25T10:02:31+01:00 (4 years ago)
- Location:
- NEMO/releases/r4.0/r4.0-HEAD
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/releases/r4.0/r4.0-HEAD/src/OCE/IOM/iom.F90
r12283 r12598 109 109 CHARACTER(len=lc) :: clname 110 110 INTEGER :: irefyear, irefmonth, irefday 111 INTEGER :: ji , jkmin111 INTEGER :: ji 112 112 LOGICAL :: llrst_context ! is context related to restart 113 113 ! … … 206 206 207 207 ! Add vertical grid bounds 208 jkmin = MIN(2,jpk) ! in case jpk=1 (i.e. sas2D)209 208 zt_bnds(2,: ) = gdept_1d(:) 210 zt_bnds(1, jkmin:jpk) = gdept_1d(1:jpkm1)209 zt_bnds(1,2:jpk ) = gdept_1d(1:jpkm1) 211 210 zt_bnds(1,1 ) = gdept_1d(1) - e3w_1d(1) 212 211 zw_bnds(1,: ) = gdepw_1d(:) 213 zw_bnds(2,1:jpkm1 ) = gdepw_1d( jkmin:jpk)212 zw_bnds(2,1:jpkm1 ) = gdepw_1d(2:jpk) 214 213 zw_bnds(2,jpk: ) = gdepw_1d(jpk) + e3t_1d(jpk) 215 214 CALL iom_set_axis_attr( "deptht", bounds=zw_bnds ) -
NEMO/releases/r4.0/r4.0-HEAD/tests/ICE_AGRIF/MY_SRC/usrdef_nam.F90
r11536 r12598 90 90 kpj = nbcellsy + 2 + 2*nbghostcells 91 91 ENDIF 92 kpk = 192 kpk = 2 93 93 ! 94 94 !! zlx = (kpi-2)*rn_dx*1.e-3 -
NEMO/releases/r4.0/r4.0-HEAD/tests/ICE_AGRIF/MY_SRC/usrdef_zgr.F90
r10516 r12598 91 91 ! !== z-coordinate ==! (step-like topography) 92 92 ! !* bottom ocean compute from the depth of grid-points 93 jpkm1 = jpk 93 jpkm1 = jpk-1 94 94 k_bot(:,:) = 1 ! here use k_top as a land mask 95 95 ! !* horizontally uniform coordinate (reference z-co everywhere)
Note: See TracChangeset
for help on using the changeset viewer.