Function/Subroutine Documentation

◆ point_artemis()

subroutine point_artemis ( )

J-M HERVOUET (LNH) 24/04/1997 LINKED TO BIEF 5.0

D. AELBRECHT (LNH) 21/08/2000 V6P0

N.DURAND (HRW), S.E.BOURBAN (HRW) 13/07/2010 V6P0 Translation of French comments within the FORTRAN sources into English comments

N.DURAND (HRW), S.E.BOURBAN (HRW) 21/08/2010 V6P0 Creation of DOXYGEN tags for automated documentation and cross-referencing of the FORTRAN sources

C.PEYRARD(EDF) 2011 V6P1 NEW WORK TABLES

C.PEYRARD(EDF) 2012 V6P2 VARIABLES FOR INCIDENT POTENTIAL ADDED

C.PEYRARD(EDF) 2013 V6P3 VARIABLES FOR CURRENT ADDED

C.PEYRARD(EDF) 2014 V7P0 VARIABLES FOR AUTOMATIC TETAP CALCULATION ADDED

Y AUDOUIN (LNHE) 25/05/2015 V7P0 Modification to comply with the hermes module

N.DURAND (HRW) November 2016 V7P2 Allocations for TETAPS, ALFAPS and HBS

N.DURAND (HRW) November 2016 V7P2 Declaration of VARNIM, which holds HHO and PHAS to be written to ART_FILES(ARTAMP)NAME

N.DURAND (HRW) August 2017 V7P3

NDTWC (now NDIR) and NFTWC (now NF) are no longer read in the steering file but directly extracted from the spectrum file IF (ALEMUL) and (CHAINTWC.EQ.1)
Allocation of S_TOM, SPECTRUM structure for TOMAWAC WACSPE object IF (ALEMUL) and (CHAINTWC.EQ.1)
Allocation of BDALE, spatially varying directions along the boundary IF (CHAINTWC.EQ.2 .AND. NPTFR.GT.0)

Definition at line 4 of file point_artemis.f.

Here is the call graph for this function:

Here is the caller graph for this function: