COSMOS v7.655  COSMOSv7655
(AirShowerMC)
creadAtmosD.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine creadatmosd
 
subroutine cqatmosmodel (modelno)
 

Function/Subroutine Documentation

◆ cqatmosmodel()

subroutine cqatmosmodel ( integer, intent(out)  modelno)

Definition at line 11 of file creadAtmosD.f.

Referenced by ciniatmos(), and main().

11  implicit none
12  integer,intent(out):: modelno
13  modelno = atmosphere
Here is the caller graph for this function:

◆ creadatmosd()

subroutine creadatmosd ( )

Definition at line 2 of file creadAtmosD.f.

Referenced by __atmosd.f__(), __atmosd2.f__(), __atmosd3.f__(), __atmosd4.f__(), and ciniatmos().

2 #include "Zcondc.h"
3 #if ATMOSPHERE == 3
4 #include "cNRLAtmos0.fh"
5 #else
6 #include "creadAtmosD.fh"
7 #endif
Here is the caller graph for this function: