Changeset 2919 for branches

Timestamp:

2011-10-14T08:30:03+02:00 (13 years ago)

Author:

cbricaud

Message:

corrections after review

File:

• branches/2011/dev_r2802_MERCATOR10_diadct/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90 (modified) (1 diff)

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

@@ -579 +579 @@
         DO jseg=1,MAX(sec%nb_point-1,0)
               
-           !------------------------------------------
-           ! Select good coordinate to have velocity of the segment
+           !-------------------------------------------------------------------------------------------
+           ! Select good coordinate to have velocity of the segment:
            !
-           ! CASE( sec%direction(jseg) ) :
-           !
-           !              F
-           !              |
-           !              |
-           !              |U CASE(3)
-           !      CASE(0) |                     j+1
-           !  F ____V_____|F____V_CASE(1)__F
-           !              |
-           !              |                     j
-           !      T       |U CASE(2)
-           !       i      |      i+1
-           !              F
-           !-------------------------------------------
+           !                      CASE(0)                                    Case (2)
+           !                      -------                                    --------
+           !  listPoint(jseg)                 listPoint(jseg+1)       listPoint(jseg)  F(i,j)      
+           !      F(i,j)----------V(i+1,j)-------F(i+1,j)                               |
+           !                                                                            |
+           !                                                                            |
+           !                                                                            |
+           !                      Case (3)                                            U(i,j)
+           !                      --------                                              |
+           !                                                                            |
+           !  listPoint(jseg+1) F(i,j+1)                                                |
+           !                        |                                                   |
+           !                        |                                                   |
+           !                        |                                 listPoint(jseg+1) F(i,j-1)
+           !                        |                                            
+           !                        |                                            
+           !                     U(i,j+1)                                            
+           !                        |                                       Case(1)     
+           !                        |                                       ------      
+           !                        |                                            
+           !                        |                 listPoint(jseg+1)             listPoint(jseg)                           
+           !                        |                 F(i-1,j)-----------V(i,j) -------f(jseg)                           
+           ! listPoint(jseg)     F(i,j)
+           ! 
+           !-------------------------------------------------------------------------------------------
+
            SELECT CASE( sec%direction(jseg) )
            CASE(0)  ;   k = sec%listPoint(jseg)