Changeset 2913
- Timestamp:
- 2011-10-13T15:57:35+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_r2802_MERCATOR10_diadct/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90
r2912 r2913 490 490 !! computed on each proc. 491 491 !! On each proc,transport is equal to the sum of transport computed through 492 !! segments linking each points of sec%listPoint with the next one. 492 !! segments linking each points of sec%listPoint with the next one. 493 !! 494 !! !BE carefull : 495 !! one section is a sum of segments 496 !! one segment is defined by 2 consectuives points in sec%listPoint 497 !! all points of sec%listPoint are positionned on the F-point of the cell. 498 !! 493 499 !! There are several loops: 494 500 !! loop on the density/temperature/salinity/level classes … … 576 582 ! Select good coordinate to have velocity of the segment 577 583 ! 578 ! CASE( sec%direction(jseg) :584 ! CASE( sec%direction(jseg) ) : 579 585 ! 586 ! F 587 ! | 588 ! | 580 589 ! |U CASE(3) 581 590 ! CASE(0) | j+1 582 ! ____V_____|F____V_CASE(1)__591 ! F ____V_____|F____V_CASE(1)__F 583 592 ! | 584 593 ! | j 585 594 ! T |U CASE(2) 586 595 ! i | i+1 596 ! F 587 597 !------------------------------------------- 588 598 SELECT CASE( sec%direction(jseg) )
Note: See TracChangeset
for help on using the changeset viewer.