Changeset 13497 for NEMO/trunk/src/OCE/TRD/trdglo.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/TRD/trdglo.F90 (modified) (2 diffs)

NEMO/trunk/src/OCE/TRD/trdglo.F90

@@ -86 +86 @@
          !
          CASE( 'TRA' )          !==  Tracers (T & S)  ==!
-            DO_3D( 1, 1, 1, 1, 1, jpkm1 )
+            DO_3D( 1, 1, 1, 1, 1, jpkm1 )   ! global sum of mask volume trend and trend*T (including interior mask)
                zvm = e1e2t(ji,jj) * e3t(ji,jj,jk,Kmm) * tmask(ji,jj,jk) * tmask_i(ji,jj)
                zvt = ptrdx(ji,jj,jk) * zvm
@@ -218 +218 @@
          END_3D
          
-         DO_3D( 0, 0, 0, 0, 1, jpkm1 )
+         DO_3D( 0, 0, 0, 0, 1, jpkm1 )    ! Density flux divergence at t-point
             zkepe(ji,jj,jk) = - (  zkz(ji,jj,jk) - zkz(ji  ,jj  ,jk+1)               &
                &                 + zkx(ji,jj,jk) - zkx(ji-1,jj  ,jk  )               &