pkg/radtrans/RADTRANS_FIELDS.h

b55e95f1ff Oliv*0001 #ifdef ALLOW_RADTRANS
                0002
                0003 CBOP
                0004 C     !ROUTINE: RADTRANS_FIELDS.h
                0005 C     !INTERFACE:
                0006 C #include RADTRANS_FIELDS.h
                0007
                0008 C     !DESCRIPTION:
                0009 C Contains fields for time interpolation of forcing fields in the
                0010 C radtrans package
                0011 C
                0012 C Requires: SIZE.h
                0013 C Requires: RADTRANS_SIZE.h
                0014
                0015       COMMON /RADTRANS_FIELDS_R/
                0016      &    RT_Ed0, RT_Ed1, RT_Ed_sfc,
                0017      &    RT_Es0, RT_Es1, RT_Es_sfc,
                0018      &    RT_ice0, RT_ice1, RT_iceFrac
                0019
                0020       _RL RT_Ed0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,nlam)
                0021       _RL RT_Ed1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,nlam)
                0022       _RL RT_Ed_sfc(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,nlam)
                0023
                0024       _RL RT_Es0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,nlam)
                0025       _RL RT_Es1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,nlam)
                0026       _RL RT_Es_sfc(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,nlam)
                0027
                0028
                0029       _RL RT_ice0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0030       _RL RT_ice1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0031       _RL RT_iceFrac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0032
                0033 CEOP
                0034 #endif /* ALLOW_RADTRANS */