| File |
Line number |
Procedure |
Code |
|
./pkg/exf/EXF_FIELDS.h |
183 |
NO PROCEDURE |
COMMON /exf_atm_temp_r/ atemp, aqh, lwflux, precip, snowprecip |
|
./pkg/exf/EXF_FIELDS.h |
184 |
NO PROCEDURE |
_RL atemp (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_bulkformulae.F |
286 |
EXF_BULKFORMULAE |
IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/exf/exf_bulkformulae.F |
299 |
EXF_BULKFORMULAE |
& (287.04 _d 0*atemp(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
305 |
EXF_BULKFORMULAE |
deltap(i,j) = atemp(i,j,bi,bj) + gamma_blk*ht - Tsf |
|
./pkg/exf/exf_bulkformulae.F |
357 |
EXF_BULKFORMULAE |
IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/exf/exf_bulkformulae.F |
376 |
EXF_BULKFORMULAE |
t0 = atemp(i,j,bi,bj)* |
|
./pkg/exf/exf_bulkformulae.F |
474 |
EXF_BULKFORMULAE |
IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/exf/exf_check_range.F |
147 |
EXF_CHECK_RANGE |
if ( (atemp(i,j,bi,bj) .LT. 183 .OR. |
|
./pkg/exf/exf_check_range.F |
148 |
EXF_CHECK_RANGE |
& atemp(i,j,bi,bj) .GT. 343 ) .AND. |
|
./pkg/exf/exf_check_range.F |
153 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, atemp(i,j,bi,bj) |
|
./pkg/exf/exf_diagnostics_fill.F |
45 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(atemp, 'EXFatemp',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_getffields.F |
183 |
EXF_GETFFIELDS |
& atemp, atemp0, atemp1, atempmask, |
|
./pkg/exf/exf_getffields.F |
193 |
EXF_GETFFIELDS |
atemp(i,j,bi,bj) = atemp(i,j,bi,bj) + exf_offset_atemp |
|
./pkg/exf/exf_getffields.F |
383 |
EXF_GETFFIELDS |
& maskc, atemp, xx_atemp0, xx_atemp1, xx_atemp_dummy, |
|
./pkg/exf/exf_getffields.F |
535 |
EXF_GETFFIELDS |
atemp(i,j,bi,bj) =atemp(i,j,bi,bj) +xx_atemp_mean(i,j,bi,bj) |
|
./pkg/exf/exf_init.F |
185 |
EXF_INIT |
& atempconst, atemp, atemp0, atemp1, |
|
./pkg/exf/exf_mapfields.F |
157 |
EXF_MAPFIELDS |
& *( atemp(i,j,bi,bj) - cen2kel - temp_EvPrRn ) |
|
./pkg/exf/exf_mapfields.F |
168 |
EXF_MAPFIELDS |
IF ( atemp(i,j,bi,bj).LT.cen2kel ) THEN |
|
./pkg/exf/exf_mapfields.F |
175 |
EXF_MAPFIELDS |
& *( atemp(i,j,bi,bj) - cen2kel - temp_EvPrRn ) |
|
./pkg/exf/exf_monitor.F |
139 |
EXF_MONITOR |
CALL MON_WRITESTATS_RL( 1, atemp, '_atemp', |
|
./pkg/thsice/thsice_get_exf.F |
209 |
THSICE_GET_EXF |
& i,j,bi,bj, atemp(i,j,bi,bj),lwdown(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
231 |
THSICE_GET_EXF |
& (atemp(i,j,bi,bj).NE.0. _d 0) ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
251 |
THSICE_GET_EXF |
& (287.04 _d 0*atemp(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
257 |
THSICE_GET_EXF |
deltap(i,j) = atemp(i,j,bi,bj) + gamma_blk*ht - Tsf |
|
./pkg/thsice/thsice_get_exf.F |
301 |
THSICE_GET_EXF |
& (atemp(i,j,bi,bj).NE.0. _d 0) ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
307 |
THSICE_GET_EXF |
t0 = atemp(i,j,bi,bj)* |
|
./pkg/thsice/thsice_get_exf.F |
334 |
THSICE_GET_EXF |
& (atemp(i,j,bi,bj).NE.0. _d 0) ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
352 |
THSICE_GET_EXF |
t0 = atemp(i,j,bi,bj)* |
|
./pkg/thsice/thsice_get_exf.F |
433 |
THSICE_GET_EXF |
& (atemp(i,j,bi,bj).NE.0. _d 0) ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
465 |
THSICE_GET_EXF |
& (atemp(i,j,bi,bj).NE.0. _d 0) ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
512 |
THSICE_GET_EXF |
& (atemp(i,j,bi,bj).LE.0. _d 0) ) THEN |
|
./pkg/thsice/thsice_map_exf.F |
100 |
THSICE_MAP_EXF |
& .AND. atemp(i,j,bi,bj).LE.cen2kel ) THEN |
|
./pkg/thsice/thsice_map_exf.F |
116 |
THSICE_MAP_EXF |
& *( atemp(i,j,bi,bj) - cen2kel - temp_EvPrRn ) |