pkg/radtrans/RADTRANS_EXF_PARAMS.h

d9e107d180 Oliv*0001 #ifdef ALLOW_RADTRANS
                0002
                0003 CBOP
                0004 C     !ROUTINE: RADTRANS_EXF_PARAMS.h
                0005 C     !INTERFACE:
                0006 C #include RADTRANS_EXF_PARAMS.h
                0007
                0008 C     !DESCRIPTION:
                0009 C Contains interpolation parameters for the radtrans package
                0010 C These are in a separate header because they require exf headers
                0011 C
                0012 C Requires: EXF_OPTIONS.h
                0013 C Requires: EXF_PARAM.h
                0014
                0015 #ifdef USE_EXF_INTERPOLATION
                0016       COMMON/radtrans_interp_i/
                0017      &    RT_E_nlon, RT_E_nlat, RT_E_interpMethod
                0018       COMMON/radtrans_interp_r/
                0019      &    RT_E_lon0, RT_E_lat0, RT_E_lon_inc, RT_E_lat_inc
                0020       INTEGER RT_E_interpMethod, RT_E_nlon, RT_E_nlat
                0021       _RL  RT_E_lon0
                0022       _RL  RT_E_lat0
                0023       _RL  RT_E_lon_inc
                0024       _RL  RT_E_lat_inc(MAX_LAT_INC)
                0025 #endif
                0026
                0027 #ifdef USE_EXF_INTERPOLATION
                0028       COMMON/RT_interp_ice_i/
                0029      &    RT_ice_nlon, RT_ice_nlat, RT_ice_interpMethod
                0030       COMMON/RT_interp_ice_r/
                0031      &    RT_ice_lon0, RT_ice_lat0, RT_ice_lon_inc, RT_ice_lat_inc
                0032       INTEGER RT_ice_interpMethod, RT_ice_nlon, RT_ice_nlat
                0033       _RL  RT_ice_lon0
                0034       _RL  RT_ice_lat0
                0035       _RL  RT_ice_lon_inc
                0036       _RL  RT_ice_lat_inc(MAX_LAT_INC)
                0037 #endif
                0038
                0039 CEOP
                0040
                0041 #endif /* ALLOW_RADTRANS */