Changeset 3452 for trunk

Timestamp:

2012-08-13T17:15:41+02:00 (12 years ago)

Author:

cbricaud

Message:

correction of sign for horizontal section

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90

@@ -622 +622 @@
         !----------------------------------------------------------------------------------------------------
         isgnu = 1
-        IF( sec%slopeSection .GE. 0 ) THEN  ; isgnv = -1 
+        IF( sec%slopeSection .GT. 0 ) THEN  ; isgnv = -1 
         ELSE                                ; isgnv =  1
         ENDIF
+        IF( sec%slopeSection .GE. 9999. )     isgnv =  1
 
         IF( ld_debug )write(numout,*)"sec%slopeSection isgnu isgnv ",sec%slopeSection,isgnu,isgnv