Changeset 2913 for branches

Timestamp:

2011-10-13T15:57:35+02:00 (13 years ago)

Author:

cbricaud

Message:

add comments

File:

• branches/2011/dev_r2802_MERCATOR10_diadct/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90 (modified) (2 diffs)

branches/2011/dev_r2802_MERCATOR10_diadct/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90

@@ -490 +490 @@
      !!              computed on each proc.
      !!              On each proc,transport is equal to the sum of transport computed through
-     !!               segments linking each points of sec%listPoint  with the next one.            
+     !!               segments linking each points of sec%listPoint  with the next one.   
+     !!
+     !!              !BE carefull :          
+     !!              one section is a sum of segments
+     !!              one segment is defined by 2 consectuives points in sec%listPoint
+     !!              all points of sec%listPoint are positionned on the F-point of the cell. 
+     !! 
      !!              There are several loops:                 
      !!              loop on the density/temperature/salinity/level classes
@@ -576 +582 @@
            ! Select good coordinate to have velocity of the segment
            !
-           ! CASE( sec%direction(jseg) :
+           ! CASE( sec%direction(jseg) ) :
            !
+           !              F
+           !              |
+           !              |
            !              |U CASE(3)
            !      CASE(0) |                     j+1
-           !    ____V_____|F____V_CASE(1)__
+           !  F ____V_____|F____V_CASE(1)__F
            !              |
            !              |                     j
            !      T       |U CASE(2)
            !       i      |      i+1
+           !              F
            !-------------------------------------------
            SELECT CASE( sec%direction(jseg) )