 Timestamp:
 20170831T14:33:15+02:00 (6 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

branches/UKMO/dev_3.6_FVPS/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90
r7524 r8476 1133 1133 e3vw_0(:,:,jk) = e3w_1d(jk) 1134 1134 END DO 1135 DO jk = 1,jpk ! Computed as the minimum of neighbooring scale factors1135 DO jk = 1,jpk ! Computed as the average of neighbouring scale factors 1136 1136 DO jj = 1, jpjm1 1137 1137 DO ji = 1, fs_jpim1 ! vector opt. 1138 e3u_0 (ji,jj,jk) = MIN( e3t_0(ji,jj,jk),e3t_0(ji+1,jj,jk) )1139 e3v_0 (ji,jj,jk) = MIN( e3t_0(ji,jj,jk),e3t_0(ji,jj+1,jk) )1140 e3uw_0(ji,jj,jk) = MIN( e3w_0(ji,jj,jk),e3w_0(ji+1,jj,jk) )1141 e3vw_0(ji,jj,jk) = MIN( e3w_0(ji,jj,jk),e3w_0(ji,jj+1,jk) )1138 e3u_0 (ji,jj,jk) = 0.5 * ( e3t_0(ji,jj,jk) + e3t_0(ji+1,jj,jk) ) 1139 e3v_0 (ji,jj,jk) = 0.5 * ( e3t_0(ji,jj,jk) + e3t_0(ji,jj+1,jk) ) 1140 e3uw_0(ji,jj,jk) = 0.5 * ( e3w_0(ji,jj,jk) + e3w_0(ji+1,jj,jk) ) 1141 e3vw_0(ji,jj,jk) = 0.5 * ( e3w_0(ji,jj,jk) + e3w_0(ji,jj+1,jk) ) 1142 1142 END DO 1143 1143 END DO … … 1173 1173 e3f_0(:,:,jk) = e3t_1d(jk) 1174 1174 END DO 1175 DO jk = 1, jpk ! Computed as the minimum of neighbooring Vscale factors1175 DO jk = 1, jpk ! Computed as the average of neighbouring Vscale factors 1176 1176 DO jj = 1, jpjm1 1177 1177 DO ji = 1, fs_jpim1 ! vector opt. 1178 e3f_0(ji,jj,jk) = MIN( e3v_0(ji,jj,jk),e3v_0(ji+1,jj,jk) )1178 e3f_0(ji,jj,jk) = 0.5 * ( e3v_0(ji,jj,jk) + e3v_0(ji+1,jj,jk) ) 1179 1179 END DO 1180 1180 END DO
Note: See TracChangeset
for help on using the changeset viewer.