- Timestamp:
- 2020-03-26T19:24:53+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/CRS/crsini.F90
r12377 r12616 33 33 !! Software governed by the CeCILL license (see ./LICENSE) 34 34 !!---------------------------------------------------------------------- 35 # include "domzgr_substitute.h90" 36 35 37 CONTAINS 36 38 … … 174 176 175 177 ! 178 #if ! defined key_LF 176 179 ze3t(:,:,:) = e3t(:,:,:,Kmm) 177 180 ze3u(:,:,:) = e3u(:,:,:,Kmm) 178 181 ze3v(:,:,:) = e3v(:,:,:,Kmm) 179 182 ze3w(:,:,:) = e3w(:,:,:,Kmm) 183 #else 184 DO jk = 1, jpk 185 ze3t(:,:,jk) = e3t(:,:,jk,Kmm) 186 ze3u(:,:,jk) = e3u(:,:,jk,Kmm) 187 ze3v(:,:,jk) = e3v(:,:,jk,Kmm) 188 ze3w(:,:,jk) = e3w(:,:,jk,Kmm) 189 END DO 190 #endif 180 191 181 192 ! 3.d.2 Surfaces
Note: See TracChangeset
for help on using the changeset viewer.