Changeset 3452
- Timestamp:
- 2012-08-13T17:15:41+02:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90
r3438 r3452 622 622 !---------------------------------------------------------------------------------------------------- 623 623 isgnu = 1 624 IF( sec%slopeSection .G E. 0 ) THEN ; isgnv = -1624 IF( sec%slopeSection .GT. 0 ) THEN ; isgnv = -1 625 625 ELSE ; isgnv = 1 626 626 ENDIF 627 IF( sec%slopeSection .GE. 9999. ) isgnv = 1 627 628 628 629 IF( ld_debug )write(numout,*)"sec%slopeSection isgnu isgnv ",sec%slopeSection,isgnu,isgnv
Note: See TracChangeset
for help on using the changeset viewer.