Symbol Description Uses
IMODE 14



File Line number Procedure Code
./pkg/aim_v23/phy_radiat.F 509 RADLW
      SUBROUTINE RADLW (IMODE,TA,TS,ST4S,
./pkg/aim_v23/phy_radiat.F 552 RADLW
      INTEGER IMODE
./pkg/aim_v23/phy_radiat.F 577 RADLW
      IF (IMODE.EQ.1) GO TO 410
./pkg/aim_v23/phy_radiat.F 663 RADLW
      IF (IMODE.EQ.-1) RETURN
./pkg/aim_v23/phy_shtorh.F 102 SHTORH
      IF (IMODE.GT.0) THEN
./pkg/aim_v23/phy_shtorh.F 110 SHTORH
      ELSE IF (IMODE.LT.0) THEN
./pkg/aim_v23/phy_shtorh.F 29 SHTORH
      INTEGER IMODE, NGP
./pkg/aim_v23/phy_shtorh.F 60 SHTORH
      IF (IMODE.EQ.2) THEN
./pkg/aim_v23/phy_shtorh.F 6 SHTORH
      SUBROUTINE SHTORH (IMODE,NGP,TA,PS,SIG,QA,RH,QSAT,myThid)
./pkg/bulk_force/bulkf_sh2rh_aim.F 102 BULKF_SH2RH_AIM
      IF (IMODE.GT.0) THEN
./pkg/bulk_force/bulkf_sh2rh_aim.F 110 BULKF_SH2RH_AIM
      ELSE IF (IMODE.LT.0) THEN
./pkg/bulk_force/bulkf_sh2rh_aim.F 29 BULKF_SH2RH_AIM
      INTEGER IMODE, NGP
./pkg/bulk_force/bulkf_sh2rh_aim.F 60 BULKF_SH2RH_AIM
      IF (IMODE.EQ.2) THEN
./pkg/bulk_force/bulkf_sh2rh_aim.F 6 BULKF_SH2RH_AIM
      SUBROUTINE BULKF_SH2RH_AIM(IMODE,NGP,TA,PS,SIG,QA,RH,QSAT,myThid)