# Changeset 2878

Ignore:
Timestamp:
2011-09-30T08:26:28+02:00 (9 years ago)
Message:

Location:
Files:
7 edited

### Legend:

Unmodified
Removed

 r2877 !!===================================================================== !!                       ***  MODULE  diadct  *** !! Ocean diagnostics: Compute the transport trough a sec. !! Ocean diagnostics: Compute the transport trough a section !! !! History: 2011: Clement Bricaud, Mercator-Ocean !! !! History: 2011: cbricaud Mercator-Ocean !!=============================================================== !! * Modules used DO ji=1,jpi coord_t=COORD_SECTION(glamf(ji,jj),gphif(ji,jj)) !cbr              zdistFirst = distance(coord_t,coordFirst) zdistFirst = distance2(coord_t,coordFirst) !cbr              zdistLast = distance(coord_t,coordLast) zdistLast = distance2(coord_t,coordLast) IF( zdistFirst .LT. zdistmesh .AND. zdistFirst .LT. zdistante )THEN IF( sec%nb_point .ne. 0 )THEN !IF( nb_inmesh .NE. 0 )THEN !The serie of mesh's points that form the section will 'link' !initialize distnew value (with distance between section's extremities) !cbr        zdistnew  = distance(coordFirst,coordLast,sec%ll_date_line) zdistnew  = distance2(coordFirst,coordLast,sec%ll_date_line) prevPoint  = POINT_SECTION(0,0) CALL write_debug(jsec,cltmp) ! on passe à l'ancienne methode: le point parmies les 4 pts (NSWE)  qui se rapproche ! le + du dernier pt !----------------------------- !be carreful! we can't go backward. zdistNorth = zdistNorth2    ; zdistSouth = zdistSouth2 zdistEst   = zdistEst2      ; zdistWest  = zdistWest2

 r2858 !!---------------------------------------------------------------------------- !!             *** declarations global varibles !! !! History: 2011: Clement Bricaud, Mercator-Ocean !! !!----------------------------------------------------------------------------

 r2858 !!============================================================================== !!                       ***  PROGRAM generate_sections    *** !! !! create a binary file containig the IJ positions of sections in global !! coordinates for the diagnostic routine diadct.F90 of NEMO !! !! !!