- Timestamp:
- 2020-03-29T12:55:27+02: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
r12616 r12624 176 176 177 177 ! 178 #if ! defined key_LF179 ze3t(:,:,:) = e3t(:,:,:,Kmm)180 ze3u(:,:,:) = e3u(:,:,:,Kmm)181 ze3v(:,:,:) = e3v(:,:,:,Kmm)182 ze3w(:,:,:) = e3w(:,:,:,Kmm)183 #else184 178 DO jk = 1, jpk 185 179 ze3t(:,:,jk) = e3t(:,:,jk,Kmm) … … 187 181 ze3v(:,:,jk) = e3v(:,:,jk,Kmm) 188 182 ze3w(:,:,jk) = e3w(:,:,jk,Kmm) 189 END DO 190 #endif 183 END DO 191 184 192 185 ! 3.d.2 Surfaces
Note: See TracChangeset
for help on using the changeset viewer.