Parent Directory | Revision Log | Patch
revision 1.10 by mocchiut, Mon Jan 22 10:02:27 2007 UTC | revision 1.11 by mocchiut, Mon Jan 22 10:46:00 2007 UTC | |
---|---|---|
# | Line 615 c ISUPY = NNY + 8 | Line 615 c ISUPY = NNY + 8 |
615 | ENDDO | ENDDO |
616 | C | C |
617 | EINF = EMIN | EINF = EMIN |
618 | ESUP = 150. | ESUP = 15000. |
619 | C | C |
620 | IF (TRIGTY.GE.2.AND.HZN.NE.0) THEN | IF (TRIGTY.GE.2.AND.HZN.NE.0) THEN |
621 | EINF = 50. | EINF = 50. |
622 | ESUP = 1500. | ESUP = 15000. |
623 | ENDIF | ENDIF |
624 | C | C |
625 | C CALCULATE PLANETOT AND QMEAN | C CALCULATE PLANETOT AND QMEAN |
|
ViewVC Help | |
Powered by ViewVC 1.1.23 |