Changes between Version 37 and Version 38 of InstallingCorsika

Timestamp:

11/13/18 09:23:44 (7 years ago)

Author:

tbretz

Comment:

--

InstallingCorsika

@@ -11 +11 @@
 }}}
 
-Call coconut
+To make the `TELESCOPE` keyword work properly, in `TELOUT` (search for this around line 75380)
+
+{{{#!fortran
+#if __CERENKOV__ && !__IACT__
+*-- Author :     R. Ulrich IKP KIT Karlsruhe      22/10/16
+C=======================================================================
+      
+      INTEGER FUNCTION TELOUT(XPOSCER,YPOSCER,UDIRCER,VDIRCER)
+      
+C-----------------------------------------------------------------------
+C  ROUTINE TO CHECK WETHER CHERENKOV PHOTON HITS TELESCOPE 
+C  THIS FUNCTION IS CALLED FROM CERENK.
+C  ARGUMENTS:
+C   XPOSCER = X-POSITION OF PHOTON AT TELESCOPE
+C   YPOSCER = Y-POSITION OF PHOTON AT TELESCOPE
+C   UDIRCER = DIRECTION OF PHOTON RELATIVE TO X-DIRECTION
+C   VDIRCER = DIRECTION OF PHOTON RELATIVE TO Y-DIRECTION
+C-----------------------------------------------------------------------
+}}}
+
+you have to replace
+{{{#!fortran
+TELZ = -OBSLEV(NOBSLV) + CERTELZ(J)
+DUMZ = -OBSLEV(NOBSLV) - TELZ
+}}}
+in `TELOUT` in `src/corsika.F` by
+{{{#!fortran
+TELZ = CERTELZ(J)
+DUMZ = TELZ
+}}}
+
+otherwise there is a z-distance between the sphere defining which photons are written to the output file and the telescope position. For inclined photons this leads to photons recorded far away from the telescope position.
+
+Now, call coconut
 {{{
 [1] cd corsika-76400