Symbol Description Uses
DTHETA Potential temp. gradient for stability correction 31



File Line number Procedure Code
./pkg/aim_v23/aim_readparms.F 158 AIM_READPARMS
     &    DTHETA, dTstab, FSTAB, HDRAG, FHDRAG
./pkg/aim_v23/aim_readparms.F 529 AIM_READPARMS
       CALL WRITE_0D_RL( DTHETA,INDEX_NONE,'AIM_SFL: DTHETA =',
./pkg/aim_v23/com_sflcon.h 27 NO PROCEDURE
     &                DTHETA, dTstab, FSTAB, HDRAG, FHDRAG
./pkg/aim_v23/com_sflcon.h 30 NO PROCEDURE
      _RL DTHETA, dTstab, FSTAB, HDRAG, FHDRAG
./pkg/aim_v23/phy_const.h 76 NO PROCEDURE
      DTHETA = 3. _d 0
./pkg/aim_v23/phy_suflux_land.F 116 SUFLUX_LAND
      RDTH = FSTAB/DTHETA
./pkg/aim_v23/phy_suflux_land.F 119 SUFLUX_LAND
        FSLAND=1.+MIN(DTHETA,MAX(-DTHETA,TSKIN(J)-T1(J)))*RDTH
./pkg/aim_v23/phy_suflux_land.F 128 SUFLUX_LAND
        Fstb0 = 1.+MIN(DTHETA,MAX(-DTHETA,TSFC(J) -T1(J)))*RDTH
./pkg/aim_v23/phy_suflux_land.F 130 SUFLUX_LAND
        dTstb = ( DTHETA+dTstab-ABS(TSKIN(J)-T1(J)) )/dTstab
./pkg/aim_v23/phy_suflux_ocean.F 87 SUFLUX_OCEAN
      RDTH = FSTAB/DTHETA
./pkg/aim_v23/phy_suflux_ocean.F 90 SUFLUX_OCEAN
        FSSEA =1.+MIN(DTHETA,MAX(-DTHETA, Tsurf(J)-T1(J)))*RDTH
./pkg/aim_v23/phy_suflux_sice.F 122 SUFLUX_SICE
      RDTH = FSTAB/DTHETA
./pkg/aim_v23/phy_suflux_sice.F 125 SUFLUX_SICE
        FSSICE=1.+MIN(DTHETA,MAX(-DTHETA,TSKIN(J)-T1(J)))*RDTH
./pkg/aim_v23/phy_suflux_sice.F 134 SUFLUX_SICE
        Fstb0 = 1.+MIN(DTHETA,MAX(-DTHETA,TSFC(J) -T1(J)))*RDTH
./pkg/aim_v23/phy_suflux_sice.F 136 SUFLUX_SICE
        dTstb = ( DTHETA+dTstab-ABS(TSKIN(J)-T1(J)) )/dTstab
./pkg/bulk_force/BULKF_PARAMS.h 84 NO PROCEDURE
      _RL  FWIND0, CHS, VGUST, DTHETA, dTstab, FSTAB
./pkg/bulk_force/BULKF_PARAMS.h 99 NO PROCEDURE
     &  FWIND0, CHS, VGUST, DTHETA, dTstab, FSTAB,
./pkg/bulk_force/bulkf_formula_aim.F 160 BULKF_FORMULA_AIM
      RDTH = FSTAB/DTHETA
./pkg/bulk_force/bulkf_formula_aim.F 163 BULKF_FORMULA_AIM
        FSSICE=1.+MIN(DTHETA,MAX(-DTHETA,TSKIN(J)-T1(J)))*RDTH
./pkg/bulk_force/bulkf_formula_aim.F 172 BULKF_FORMULA_AIM
        Fstb0 = 1.+MIN(DTHETA,MAX(-DTHETA,TSFC(J) -T1(J)))*RDTH
./pkg/bulk_force/bulkf_formula_aim.F 174 BULKF_FORMULA_AIM
        dTstb = ( DTHETA+dTstab-ABS(TSKIN(J)-T1(J)) )/dTstab
./pkg/bulk_force/bulkf_readparms.F 122 BULKF_READPARMS
      DTHETA = 3. _d 0
./pkg/bulk_force/bulkf_readparms.F 248 BULKF_READPARMS
      WRITE(iUnit,*) 'BlkF: DTHETA   =', DTHETA
./pkg/bulk_force/bulkf_readparms.F 47 BULKF_READPARMS
     &  FWIND0, CHS, VGUST, DTHETA, dTstab, FSTAB,