pkg/aim_v23/AIM_FFIELDS.h

d676f916b2 Jean*0001 #ifdef ALLOW_AIM
                0002
65007c221b Jean*0003 C     *==========================================================*
                0004 C     | AIM_FFIELDS.h
                0005 C     | o AIM (surface) forcing fields.
                0006 C     *==========================================================*
d676f916b2 Jean*0007
                0008
65007c221b Jean*0009 C---  COMMON /AIM_FFIELDS_R/
d0a9461855 Jean*0010 C     truncSurfP : use to correct Surf.Temp for truncation of Surf.Ref.Press
65007c221b Jean*0011 C     aim_landFr :: Holds Land Fraction       ( 0-1 )
                0012 C     aim_veget  :: Holds vegetation fraction ( 0-1 )
                0013 C     aim_albedo :: Holds surface albedo      ( 0-1 )
                0014 C     aim_...0   :: Holds data centered in time before the current time
                0015 C     aim_...1   :: Holds data centered in time after  the current time
d0a9461855 Jean*0016 C     aim_sst0,1 :: Holds Sea  surface temperature ( K )
65007c221b Jean*0017 C     aim_lst0,1 :: Holds Land surface temperature ( K )
                0018 C     aim_oic0,1 :: Holds Sea Ice fraction ( 0-1 )
                0019 C     aim_snw0,1 :: Holds snow depth ( 0-1 )
                0020 C     aim_sw10,1 :: Holds soil water content, level 1 ( 0-1 )
                0021 C     aim_sw20,1 :: Holds soil water content, level 2 ( 0-1 )
5e328a6c4a Davi*0022 C     aim_qfx0,1 :: Holds q-flux (W/m^2, >0 = OHT convergence = T increases)
                0023
d676f916b2 Jean*0024       COMMON /AIM_FFIELDS_R/
d0a9461855 Jean*0025      &   truncSurfP, aim_landFr, aim_veget, aim_albedo,
65007c221b Jean*0026      &   aim_sst0, aim_lst0, aim_oic0, aim_snw0, aim_sw10, aim_sw20,
5e328a6c4a Davi*0027      &   aim_sst1, aim_lst1, aim_oic1, aim_snw1, aim_sw11, aim_sw21,
                0028      &   aim_qfx0, aim_qfx1
d0a9461855 Jean*0029
e71a2c0f64 Jean*0030       _RS  truncSurfP(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
65007c221b Jean*0031       _RS  aim_landFr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0032       _RS  aim_veget (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0033       _RS  aim_albedo(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
d0a9461855 Jean*0034
65007c221b Jean*0035       _RS  aim_sst0  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0036       _RS  aim_lst0  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0037       _RS  aim_oic0  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0038       _RS  aim_snw0  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0039       _RS  aim_sw10  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0040       _RS  aim_sw20  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
d0a9461855 Jean*0041
65007c221b Jean*0042       _RS  aim_sst1  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0043       _RS  aim_lst1  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0044       _RS  aim_oic1  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0045       _RS  aim_snw1  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0046       _RS  aim_sw11  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
d0a9461855 Jean*0047       _RS  aim_sw21  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
d676f916b2 Jean*0048
5e328a6c4a Davi*0049       _RS  aim_qfx0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0050       _RS  aim_qfx1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0051
d676f916b2 Jean*0052 #endif /* ALLOW_AIM */
ad0ca66649 Ed H*0053
                0054 CEH3 ;;; Local Variables: ***
                0055 CEH3 ;;; mode:fortran ***
                0056 CEH3 ;;; End: ***