Changeset 10795 for NEMO/branches
- Timestamp:
- 2019-03-22T11:26:06+01:00 (5 years ago)
- Location:
- NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/DOM/domvvl.F90
r10787 r10795 617 617 ENDIF 618 618 619 !! TO BE DELETED620 !!$ gdept_b(:,:,:) = gdept_n(:,:,:)621 !!$ gdepw_b(:,:,:) = gdepw_n(:,:,:)622 623 !!$ e3t_n(:,:,:) = e3t_a(:,:,:)624 !!$ e3u_n(:,:,:) = e3u_a(:,:,:)625 !!$ e3v_n(:,:,:) = e3v_a(:,:,:)626 !! TO BE DELETED627 628 619 ! Compute all missing vertical scale factor and depths 629 620 ! ==================================================== … … 663 654 ! Local depth and Inverse of the local depth of the water 664 655 ! ------------------------------------------------------- 665 !! TO BE DELETED666 !!$ hu_n(:,:) = hu_a(:,:) ; r1_hu_n(:,:) = r1_hu_a(:,:)667 !!$ hv_n(:,:) = hv_a(:,:) ; r1_hv_n(:,:) = r1_hv_a(:,:)668 !! TO BE DELETED669 656 ! 670 657 ht(:,:) = e3t(:,:,1,kNnn) * tmask(:,:,1) -
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/DYN/dynnxt.F90
r10787 r10795 176 176 ! Time filter and swap of dynamics arrays 177 177 ! ------------------------------------------ 178 !! TO BE DELETED179 !!$ IF( neuler == 0 .AND. kt == nit000 ) THEN !* Euler at first time-step: only swap180 !!$ DO jk = 1, jpkm1181 !!$ un(:,:,jk) = ua(:,:,jk) ! un <-- ua182 !!$ vn(:,:,jk) = va(:,:,jk)183 !!$ END DO184 !!$ IF( .NOT.ln_linssh ) THEN ! e3._b <-- e3._n185 !!gm BUG ???? I don't understand why it is not : e3._n <-- e3._a186 !!$ DO jk = 1, jpkm1187 ! e3t_b(:,:,jk) = e3t_n(:,:,jk)188 ! e3u_b(:,:,jk) = e3u_n(:,:,jk)189 ! e3v_b(:,:,jk) = e3v_n(:,:,jk)190 !191 !!$ e3t_n(:,:,jk) = e3t_a(:,:,jk)192 !!$ e3u_n(:,:,jk) = e3u_a(:,:,jk)193 !!$ e3v_n(:,:,jk) = e3v_a(:,:,jk)194 !!$ END DO195 !!gm BUG end196 !!$ ENDIF197 !! TO BE DELETED198 !199 178 200 179 IF( .NOT.( neuler == 0 .AND. kt == nit000 ) ) THEN !* Leap-Frog : Asselin filter and swap … … 207 186 puu(ji,jj,jk) = puu(ji,jj,jk) + atfp * ( uu(ji,jj,jk,kNm1) - 2._wp * puu(ji,jj,jk) + uu(ji,jj,jk,kNp1) ) 208 187 pvv(ji,jj,jk) = pvv(ji,jj,jk) + atfp * ( vv(ji,jj,jk,kNm1) - 2._wp * pvv(ji,jj,jk) + vv(ji,jj,jk,kNp1) ) 209 !210 !! TO BE DELETED211 !!$ ub(ji,jj,jk) = zuf ! ub <-- filtered velocity212 !!$ vb(ji,jj,jk) = zvf213 !!$ un(ji,jj,jk) = ua(ji,jj,jk) ! un <-- ua214 !!$ vn(ji,jj,jk) = va(ji,jj,jk)215 !! TO BE DELETED216 188 END DO 217 189 END DO … … 276 248 puu(ji,jj,jk) = puu(ji,jj,jk) + atfp * ( uu(ji,jj,jk,kNm1) - 2._wp * puu(ji,jj,jk) + uu(ji,jj,jk,kNp1) ) 277 249 pvv(ji,jj,jk) = pvv(ji,jj,jk) + atfp * ( vv(ji,jj,jk,kNm1) - 2._wp * pvv(ji,jj,jk) + vv(ji,jj,jk,kNp1) ) 278 !279 !! TO BE DELETED280 !!$ ub(ji,jj,jk) = zuf ! ub <-- filtered velocity281 !!$ vb(ji,jj,jk) = zvf282 !!$ un(ji,jj,jk) = ua(ji,jj,jk) ! un <-- ua283 !!$ vn(ji,jj,jk) = va(ji,jj,jk)284 !! TO BE DELETED285 250 END DO 286 251 END DO … … 305 270 puu(ji,jj,jk) = ( zue3n + atfp * ( zue3b - 2._wp * zue3n + zue3a ) ) / ze3u_f(ji,jj,jk) 306 271 pvv(ji,jj,jk) = ( zve3n + atfp * ( zve3b - 2._wp * zve3n + zve3a ) ) / ze3v_f(ji,jj,jk) 307 !308 !! TO BE DELETED309 !!$ ub(ji,jj,jk) = zuf ! ub <-- filtered velocity310 !!$ vb(ji,jj,jk) = zvf311 !!$ un(ji,jj,jk) = ua(ji,jj,jk) ! un <-- ua312 !!$ vn(ji,jj,jk) = va(ji,jj,jk)313 !! TO BE DELETED314 272 END DO 315 273 END DO
Note: See TracChangeset
for help on using the changeset viewer.