Changes between Version 37 and Version 38 of InstallingCorsika


Ignore:
Timestamp:
Nov 13, 2018, 9:23:44 AM (5 months ago)
Author:
tbretz
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • InstallingCorsika

    v37 v38  
    1111}}}
    1212
    13 Call coconut
     13To make the `TELESCOPE` keyword work properly, in `TELOUT` (search for this around line 75380)
     14
     15{{{#!fortran
     16#if __CERENKOV__ && !__IACT__
     17*-- Author :     R. Ulrich IKP KIT Karlsruhe      22/10/16
     18C=======================================================================
     19     
     20      INTEGER FUNCTION TELOUT(XPOSCER,YPOSCER,UDIRCER,VDIRCER)
     21     
     22C-----------------------------------------------------------------------
     23C  ROUTINE TO CHECK WETHER CHERENKOV PHOTON HITS TELESCOPE
     24C  THIS FUNCTION IS CALLED FROM CERENK.
     25C  ARGUMENTS:
     26C   XPOSCER = X-POSITION OF PHOTON AT TELESCOPE
     27C   YPOSCER = Y-POSITION OF PHOTON AT TELESCOPE
     28C   UDIRCER = DIRECTION OF PHOTON RELATIVE TO X-DIRECTION
     29C   VDIRCER = DIRECTION OF PHOTON RELATIVE TO Y-DIRECTION
     30C-----------------------------------------------------------------------
     31}}}
     32
     33you have to replace
     34{{{#!fortran
     35TELZ = -OBSLEV(NOBSLV) + CERTELZ(J)
     36DUMZ = -OBSLEV(NOBSLV) - TELZ
     37}}}
     38in `TELOUT` in `src/corsika.F` by
     39{{{#!fortran
     40TELZ = CERTELZ(J)
     41DUMZ = TELZ
     42}}}
     43
     44otherwise 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.
     45
     46Now, call coconut
    1447{{{
    1548[1] cd corsika-76400