Changeset 13497 for NEMO/trunk/src/OCE/DYN/dynldf_lap_blp.F90

Timestamp:

2020-09-21T14:37:46+02:00 (4 years ago)

Author:

techene

Message:

re-introduce comments that have been erased by loops transformation see #2525

File:

• NEMO/trunk/src/OCE/DYN/dynldf_lap_blp.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/DYN/dynldf_lap_blp.F90

@@ -84 +84 @@
          END_2D
          !
-         DO_2D( 0, 0, 0, 0 )
+         DO_2D( 0, 0, 0, 0 )                       ! - curl( curl) + grad( div )
             pu_rhs(ji,jj,jk) = pu_rhs(ji,jj,jk) + zsign * umask(ji,jj,jk) * (    &    ! * by umask is mandatory for dyn_ldf_blp use
                &              - ( zcur(ji  ,jj) - zcur(ji,jj-1) ) * r1_e2u(ji,jj) / e3u(ji,jj,jk,Kmm)   &