Changeset 3452


Ignore:
Timestamp:
2012-08-13T17:15:41+02:00 (8 years ago)
Author:
cbricaud
Message:

correction of sign for horizontal section

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90

    r3438 r3452  
    622622        !---------------------------------------------------------------------------------------------------- 
    623623        isgnu = 1 
    624         IF( sec%slopeSection .GE. 0 ) THEN  ; isgnv = -1  
     624        IF( sec%slopeSection .GT. 0 ) THEN  ; isgnv = -1  
    625625        ELSE                                ; isgnv =  1 
    626626        ENDIF 
     627        IF( sec%slopeSection .GE. 9999. )     isgnv =  1 
    627628 
    628629        IF( ld_debug )write(numout,*)"sec%slopeSection isgnu isgnv ",sec%slopeSection,isgnu,isgnv 
Note: See TracChangeset for help on using the changeset viewer.