- Timestamp:
- 2021-04-07T19:16:18+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14273_HPC-02_Daley_Tiling/src/OCE/TRA/zpshde.F90
r14636 r14680 175 175 pgru(:,:) = 0._wp 176 176 pgrv(:,:) = 0._wp ! depth of the partial step level 177 DO_2D( nn_hls -1, nn_hls-1, nn_hls-1, nn_hls-1 )177 DO_2D( nn_hls, nn_hls-1, nn_hls, nn_hls-1 ) 178 178 iku = mbku(ji,jj) 179 179 ikv = mbkv(ji,jj) … … 191 191 CALL eos( ztj, zhj, zrj ) ! at the partial step depth output in zri, zrj 192 192 ! 193 DO_2D( nn_hls -1, nn_hls-1, nn_hls-1, nn_hls-1 ) ! Gradient of density at the last level193 DO_2D( nn_hls, nn_hls-1, nn_hls, nn_hls-1 ) ! Gradient of density at the last level 194 194 iku = mbku(ji,jj) 195 195 ikv = mbkv(ji,jj)
Note: See TracChangeset
for help on using the changeset viewer.