Symbol Description Uses
temp_EvPrRn temperature of Rain & Evap. 60


File Line number Procedure Code
./pkg/exf/exf_mapfields.F 143 EXF_MAPFIELDS 
          IF ( temp_EvPrRn .NE. UNSET_RL ) THEN
./pkg/exf/exf_mapfields.F 160 EXF_MAPFIELDS 
     &               *( atemp(i,j,bi,bj) - cen2kel - temp_EvPrRn )
./pkg/exf/exf_mapfields.F 178 EXF_MAPFIELDS 
     &               *( atemp(i,j,bi,bj) - cen2kel - temp_EvPrRn )
./pkg/exf/exf_mapfields.F 190 EXF_MAPFIELDS 
     &               *( theta(i,j,ks,bi,bj) - temp_EvPrRn )
./pkg/exf/exf_mapfields.F 200 EXF_MAPFIELDS 
     &               *( theta(i,j,ks,bi,bj) - temp_EvPrRn )
./model/inc/PARAMS.h 834 NO PROCEDURE 
     & convertFW2Salt, temp_EvPrRn, salt_EvPrRn,
./model/inc/PARAMS.h 966 NO PROCEDURE 
      _RL temp_EvPrRn
./model/src/config_summary.F 384 CONFIG_SUMMARY 
      CALL WRITE_0D_RL( temp_EvPrRn, INDEX_NONE,
./model/src/external_forcing_surf.F 257 EXTERNAL_FORCING_SURF 
       IF (temp_EvPrRn.NE.UNSET_RL) THEN
./model/src/external_forcing_surf.F 262 EXTERNAL_FORCING_SURF 
     &          *( temp_EvPrRn - theta(i,j,ks,bi,bj) )
./model/src/external_forcing_surf.F 291 EXTERNAL_FORCING_SURF 
        IF (temp_EvPrRn.NE.UNSET_RL) THEN
./model/src/external_forcing_surf.F 297 EXTERNAL_FORCING_SURF 
     &           *( theta(i,j,ks,bi,bj) - temp_EvPrRn )
./model/src/external_forcing_surf.F 317 EXTERNAL_FORCING_SURF 
        IF (temp_EvPrRn.NE.UNSET_RL) THEN
./model/src/external_forcing_surf.F 323 EXTERNAL_FORCING_SURF 
     &           *( tRef(ks) - temp_EvPrRn )
./pkg/seaice/seaice_growth.F 2270 SEAICE_GROWTH 
           IF ( (temp_EvPrRn.NE.UNSET_RL).AND.
./pkg/seaice/seaice_growth.F 2273 SEAICE_GROWTH 
     &         HeatCapacity_Cp * temp_EvPrRn
./pkg/seaice/seaice_growth.F 2274 SEAICE_GROWTH 
           ELSEIF ( (temp_EvPrRn.EQ.UNSET_RL).AND.
./pkg/seaice/seaice_growth.F 2278 SEAICE_GROWTH 
           ELSEIF ( (temp_EvPrRn.NE.UNSET_RL) ) THEN
./pkg/seaice/seaice_growth.F 2280 SEAICE_GROWTH 
     &       ( temp_EvPrRn - theta(I,J,kSurface,bi,bj) )
./pkg/seaice/seaice_growth.F 2281 SEAICE_GROWTH 
           ELSEIF ( (temp_EvPrRn.EQ.UNSET_RL) ) THEN
./pkg/seaice/seaice_growth.F 2338 SEAICE_GROWTH 
           IF ( (temp_EvPrRn.NE.UNSET_RL).AND.
./pkg/seaice/seaice_growth.F 2341 SEAICE_GROWTH 
     &        ( ZERO + HeatCapacity_Cp * temp_EvPrRn )
./pkg/seaice/seaice_growth.F 2342 SEAICE_GROWTH 
           ELSEIF ( (temp_EvPrRn.EQ.UNSET_RL).AND.
./pkg/seaice/seaice_growth.F 2346 SEAICE_GROWTH 
           ELSEIF ( (temp_EvPrRn.NE.UNSET_RL) ) THEN
./pkg/seaice/seaice_growth.F 2348 SEAICE_GROWTH 
     &        ( temp_EvPrRn - theta(I,J,kSurface,bi,bj) )
./pkg/seaice/seaice_growth.F 2349 SEAICE_GROWTH 
           ELSEIF ( (temp_EvPrRn.EQ.UNSET_RL) ) THEN
./pkg/seaice/seaice_growth.F 2485 SEAICE_GROWTH 
        IF ( balanceEmPmR.AND.(temp_EvPrRn.EQ.UNSET_RL) ) THEN
./pkg/seaice/seaice_growth.F 2613 SEAICE_GROWTH 
      IF ( balanceEmPmR.AND.(temp_EvPrRn.EQ.UNSET_RL) ) THEN
./pkg/seaice/seaice_growth.F 2616 SEAICE_GROWTH 
         FWF2HFsiGlob=HeatCapacity_Cp * temp_EvPrRn * globalArea
./pkg/seaice/seaice_growth.F 2642 SEAICE_GROWTH 
            IF ( (temp_EvPrRn.NE.UNSET_RL).AND.
./pkg/seaice/seaice_growth.F 2645 SEAICE_GROWTH 
     &       ( ZERO + HeatCapacity_Cp * temp_EvPrRn )
./pkg/seaice/seaice_growth.F 2646 SEAICE_GROWTH 
            ELSEIF ( (temp_EvPrRn.EQ.UNSET_RL).AND.
./pkg/seaice/seaice_growth.F 2650 SEAICE_GROWTH 
            ELSEIF ( (temp_EvPrRn.NE.UNSET_RL) ) THEN
./pkg/seaice/seaice_growth.F 2652 SEAICE_GROWTH 
     &       HeatCapacity_Cp*(temp_EvPrRn - theta(I,J,kSurface,bi,bj))
./pkg/thsice/thsice_get_precip.F 107 THSICE_GET_PRECIP 
     &           ( Tair(i,j,bi,bj) - Tf0kel - temp_EvPrRn )
./pkg/thsice/thsice_get_precip.F 109 THSICE_GET_PRECIP 
     &         + ( locSST(i,j,bi,bj) - temp_EvPrRn )
./pkg/thsice/thsice_get_precip.F 145 THSICE_GET_PRECIP 
       IF ( temp_EvPrRn .NE. UNSET_RL ) THEN
./pkg/thsice/thsice_get_precip.F 153 THSICE_GET_PRECIP 
     &           ( Tair(i,j,bi,bj) - temp_EvPrRn )
./pkg/thsice/thsice_get_precip.F 98 THSICE_GET_PRECIP 
       IF ( temp_EvPrRn .NE. UNSET_RL ) THEN
./pkg/thsice/thsice_map_exf.F 107 THSICE_MAP_EXF 
      IF ( temp_EvPrRn .NE. UNSET_RL ) THEN
./pkg/thsice/thsice_map_exf.F 116 THSICE_MAP_EXF 
     &          *( atemp(i,j,bi,bj) - cen2kel - temp_EvPrRn )
./pkg/thsice/thsice_map_exf.F 122 THSICE_MAP_EXF 
     &                 *( locSST(i,j,bi,bj) - temp_EvPrRn )
./model/src/ini_parms.F 1459 INI_PARMS 
      IF (temp_addMass .EQ. UNSET_RL) temp_addMass = temp_EvPrRn
./model/src/ini_parms.F 236 INI_PARMS 
     & temp_EvPrRn, salt_EvPrRn, trac_EvPrRn,
./model/src/set_defaults.F 261 SET_DEFAULTS 
      temp_EvPrRn = UNSET_RL
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 260 EXTERNAL_FORCING_SURF 
       IF (temp_EvPrRn.NE.UNSET_RL) THEN
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 265 EXTERNAL_FORCING_SURF 
     &          *( temp_EvPrRn - theta(i,j,ks,bi,bj) )
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 294 EXTERNAL_FORCING_SURF 
        IF (temp_EvPrRn.NE.UNSET_RL) THEN
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 300 EXTERNAL_FORCING_SURF 
     &           *( theta(i,j,ks,bi,bj) - temp_EvPrRn )
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 320 EXTERNAL_FORCING_SURF 
        IF (temp_EvPrRn.NE.UNSET_RL) THEN
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 326 EXTERNAL_FORCING_SURF 
     &           *( tRef(ks) - temp_EvPrRn )
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 260 EXTERNAL_FORCING_SURF 
       IF (temp_EvPrRn.NE.UNSET_RL) THEN
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 265 EXTERNAL_FORCING_SURF 
     &          *( temp_EvPrRn - theta(i,j,ks,bi,bj) )
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 294 EXTERNAL_FORCING_SURF 
        IF (temp_EvPrRn.NE.UNSET_RL) THEN
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 300 EXTERNAL_FORCING_SURF 
     &           *( theta(i,j,ks,bi,bj) - temp_EvPrRn )
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 320 EXTERNAL_FORCING_SURF 
        IF (temp_EvPrRn.NE.UNSET_RL) THEN
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 326 EXTERNAL_FORCING_SURF 
     &           *( tRef(ks) - temp_EvPrRn )
./pkg/bulk_force/bulkf_forcing.F 207 BULKF_FORCING 
         IF ( temp_EvPrRn .NE. UNSET_RL ) THEN
./pkg/bulk_force/bulkf_forcing.F 241 BULKF_FORCING 
     &               *( Tair(i,j,bi,bj) - Tf0kel - temp_EvPrRn )
./pkg/bulk_force/bulkf_forcing.F 256 BULKF_FORCING 
     &              + ( theta(i,j,ks,bi,bj) - temp_EvPrRn )