pkg/oasim/OASIM_INTERNAL.h

87dd4f7d5f Oliv*0001 #ifdef ALLOW_OASIM
                0002
                0003 CBOP
                0004 C     !ROUTINE: OASIM_INTERNAL.h
                0005 C     !INTERFACE:
                0006 C #include OASIM_INTERNAL.h
                0007 C
                0008 C     !DESCRIPTION:
                0009 C Contains internal fields for the oasim package
                0010 C
                0011 C Requires: OASIM_SIZE.h
                0012 CEOP
                0013
                0014 C constants:
                0015 C   COMMON /oasim_bcnst/
                0016 C   rad :: 180/pi
                0017 C   pi2 :: 2*pi
                0018 C   o24 :: 1/24
                0019       _RL rad,pi2,o24
                0020       COMMON /oasim_bcnst/ rad,pi2,o24
                0021
                0022 C units:
                0023 C   COMMON /oasim_bwq/
                0024 C   WtouEins :: spectral W to \mu Ein/s conversion factor
                0025       _RL WtouEins(nlt)
                0026       COMMON /oasim_bwq/ WtouEins
                0027
                0028 C spectral arrays for clrtrans:
                0029 C   COMMON /oasim_blam/
                0030 C   lam   :: wavelength [nm]
                0031 C   rlamu :: wavelength [um]
                0032 C   COMMON /oasim_bnlt/
                0033 C   Fobar :: extraterrestrial irradiance [W/m2]
                0034 C   thray :: Rayleigh optical thickness
                0035 C   oza   :: ozone absorption coeffient [1/cm]
                0036 C   awv   :: water vapor absorption coefficient [1/cm]
                0037 C   ao    :: O2 absorption coefficient [1/cm]
                0038 C   aco2  :: CO2 absorption coefficient [1/cm]
                0039 C   COMMON /oasim_bwat/
                0040 C   aw    :: water absorption coefficient [1/m]
                0041 C   bw    :: water scattering coefficient [1/m]
                0042       INTEGER lam(nlt)
                0043       _RL rlamu(nlt)
                0044       _RL Fobar(nlt),thray(nlt),oza(nlt),awv(nlt),ao(nlt),aco2(nlt)
                0045       _RL aw(nlt),bw(nlt)
                0046       COMMON /oasim_blam/ rlamu,lam
                0047       COMMON /oasim_bnlt/ Fobar,thray,oza,awv,ao,aco2
                0048       COMMON /oasim_bwat/ aw,bw
                0049
                0050 C sfcrfl:
                0051 C   COMMON /oasim_bsfcrfl/
                0052 C   rn    :: index of refraction of pure seawater
                0053 C   roair :: density of air [g/m3]
                0054       _RL rn, roair
                0055       _RL wfac(nlt)
                0056       COMMON /oasim_bsfcrfl/ wfac, rn, roair
                0057
                0058 C light:
                0059 C   COMMON /oasim_blight/
                0060 C   p0     :: standard pressure [mbar]
                0061 C   ozfac1 :: parameter for ozone-corrected path length
                0062 C   ozfac2 :: parameter for ozone-corrected path length
                0063       _RL p0, ozfac1, ozfac2
                0064       COMMON /oasim_blight/ p0,ozfac1,ozfac2
                0065
                0066 C aerosols:
                0067       integer lamaer(nltaer), iaer(nlt)
                0068       _RL waer(nlt)
                0069       common /oasim_blamaer/ lamaer, iaer, waer
                0070
                0071 CEOP
                0072 #endif /* ALLOW_OASIM */