Symbol Description Uses
temp_EvPrRn temperature of Rain & Evap. 60


File Line number Procedure Code
./pkg/exf/exf_mapfields.F 140 EXF_MAPFIELDS 
          IF ( temp_EvPrRn .NE. UNSET_RL ) THEN
./pkg/exf/exf_mapfields.F 157 EXF_MAPFIELDS 
     &               *( atemp(i,j,bi,bj) - cen2kel - temp_EvPrRn )
./pkg/exf/exf_mapfields.F 175 EXF_MAPFIELDS 
     &               *( atemp(i,j,bi,bj) - cen2kel - temp_EvPrRn )
./pkg/exf/exf_mapfields.F 187 EXF_MAPFIELDS 
     &               *( theta(i,j,ks,bi,bj) - temp_EvPrRn )
./pkg/exf/exf_mapfields.F 197 EXF_MAPFIELDS 
     &               *( theta(i,j,ks,bi,bj) - temp_EvPrRn )
./model/inc/PARAMS.h 783 NO PROCEDURE 
     & convertFW2Salt, temp_EvPrRn, salt_EvPrRn,
./model/inc/PARAMS.h 907 NO PROCEDURE 
      _RL temp_EvPrRn
./model/src/config_summary.F 358 CONFIG_SUMMARY 
      CALL WRITE_0D_RL( temp_EvPrRn, INDEX_NONE,
./model/src/external_forcing_surf.F 254 EXTERNAL_FORCING_SURF 
       IF (temp_EvPrRn.NE.UNSET_RL) THEN
./model/src/external_forcing_surf.F 259 EXTERNAL_FORCING_SURF 
     &          *( temp_EvPrRn - theta(i,j,ks,bi,bj) )
./model/src/external_forcing_surf.F 288 EXTERNAL_FORCING_SURF 
        IF (temp_EvPrRn.NE.UNSET_RL) THEN
./model/src/external_forcing_surf.F 294 EXTERNAL_FORCING_SURF 
     &           *( theta(i,j,ks,bi,bj) - temp_EvPrRn )
./model/src/external_forcing_surf.F 314 EXTERNAL_FORCING_SURF 
        IF (temp_EvPrRn.NE.UNSET_RL) THEN
./model/src/external_forcing_surf.F 320 EXTERNAL_FORCING_SURF 
     &           *( tRef(ks) - temp_EvPrRn )
./pkg/seaice/seaice_growth.F 2232 SEAICE_GROWTH 
           IF ( (temp_EvPrRn.NE.UNSET_RL).AND.
./pkg/seaice/seaice_growth.F 2235 SEAICE_GROWTH 
     &         HeatCapacity_Cp * temp_EvPrRn
./pkg/seaice/seaice_growth.F 2236 SEAICE_GROWTH 
           ELSEIF ( (temp_EvPrRn.EQ.UNSET_RL).AND.
./pkg/seaice/seaice_growth.F 2240 SEAICE_GROWTH 
           ELSEIF ( (temp_EvPrRn.NE.UNSET_RL) ) THEN
./pkg/seaice/seaice_growth.F 2242 SEAICE_GROWTH 
     &       ( temp_EvPrRn - theta(I,J,kSurface,bi,bj) )
./pkg/seaice/seaice_growth.F 2243 SEAICE_GROWTH 
           ELSEIF ( (temp_EvPrRn.EQ.UNSET_RL) ) THEN
./pkg/seaice/seaice_growth.F 2300 SEAICE_GROWTH 
           IF ( (temp_EvPrRn.NE.UNSET_RL).AND.
./pkg/seaice/seaice_growth.F 2303 SEAICE_GROWTH 
     &        ( ZERO + HeatCapacity_Cp * temp_EvPrRn )
./pkg/seaice/seaice_growth.F 2304 SEAICE_GROWTH 
           ELSEIF ( (temp_EvPrRn.EQ.UNSET_RL).AND.
./pkg/seaice/seaice_growth.F 2308 SEAICE_GROWTH 
           ELSEIF ( (temp_EvPrRn.NE.UNSET_RL) ) THEN
./pkg/seaice/seaice_growth.F 2310 SEAICE_GROWTH 
     &        ( temp_EvPrRn - theta(I,J,kSurface,bi,bj) )
./pkg/seaice/seaice_growth.F 2311 SEAICE_GROWTH 
           ELSEIF ( (temp_EvPrRn.EQ.UNSET_RL) ) THEN
./pkg/seaice/seaice_growth.F 2445 SEAICE_GROWTH 
        IF ( balanceEmPmR.AND.(temp_EvPrRn.EQ.UNSET_RL) ) THEN
./pkg/seaice/seaice_growth.F 2573 SEAICE_GROWTH 
      IF ( balanceEmPmR.AND.(temp_EvPrRn.EQ.UNSET_RL) ) THEN
./pkg/seaice/seaice_growth.F 2576 SEAICE_GROWTH 
         FWF2HFsiGlob=HeatCapacity_Cp * temp_EvPrRn * globalArea
./pkg/seaice/seaice_growth.F 2602 SEAICE_GROWTH 
            IF ( (temp_EvPrRn.NE.UNSET_RL).AND.
./pkg/seaice/seaice_growth.F 2605 SEAICE_GROWTH 
     &       ( ZERO + HeatCapacity_Cp * temp_EvPrRn )
./pkg/seaice/seaice_growth.F 2606 SEAICE_GROWTH 
            ELSEIF ( (temp_EvPrRn.EQ.UNSET_RL).AND.
./pkg/seaice/seaice_growth.F 2610 SEAICE_GROWTH 
            ELSEIF ( (temp_EvPrRn.NE.UNSET_RL) ) THEN
./pkg/seaice/seaice_growth.F 2612 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 1349 INI_PARMS 
      IF (temp_addMass .EQ. UNSET_RL) temp_addMass = temp_EvPrRn
./model/src/ini_parms.F 226 INI_PARMS 
     & temp_EvPrRn, salt_EvPrRn, trac_EvPrRn,
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 249 EXTERNAL_FORCING_SURF 
       IF (temp_EvPrRn.NE.UNSET_RL) THEN
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 254 EXTERNAL_FORCING_SURF 
     &          *( temp_EvPrRn - theta(i,j,ks,bi,bj) )
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 283 EXTERNAL_FORCING_SURF 
        IF (temp_EvPrRn.NE.UNSET_RL) THEN
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 289 EXTERNAL_FORCING_SURF 
     &           *( theta(i,j,ks,bi,bj) - temp_EvPrRn )
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 309 EXTERNAL_FORCING_SURF 
        IF (temp_EvPrRn.NE.UNSET_RL) THEN
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 315 EXTERNAL_FORCING_SURF 
     &           *( tRef(ks) - temp_EvPrRn )
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 249 EXTERNAL_FORCING_SURF 
       IF (temp_EvPrRn.NE.UNSET_RL) THEN
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 254 EXTERNAL_FORCING_SURF 
     &          *( temp_EvPrRn - theta(i,j,ks,bi,bj) )
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 283 EXTERNAL_FORCING_SURF 
        IF (temp_EvPrRn.NE.UNSET_RL) THEN
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 289 EXTERNAL_FORCING_SURF 
     &           *( theta(i,j,ks,bi,bj) - temp_EvPrRn )
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 309 EXTERNAL_FORCING_SURF 
        IF (temp_EvPrRn.NE.UNSET_RL) THEN
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 315 EXTERNAL_FORCING_SURF 
     &           *( tRef(ks) - temp_EvPrRn )
./model/src/set_defaults.F 252 SET_DEFAULTS 
      temp_EvPrRn = UNSET_RL
./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 )