| File |
Line number |
Procedure |
Code |
|
./pkg/exf/EXF_FIELDS.h |
190 |
NO PROCEDURE |
COMMON /exf_atm_temp_r/ atemp, aqh, hs, hl, lwflux, |
|
./pkg/exf/EXF_FIELDS.h |
192 |
NO PROCEDURE |
_RL atemp (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_bulkformulae.F |
288 |
EXF_BULKFORMULAE |
IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/exf/exf_bulkformulae.F |
301 |
EXF_BULKFORMULAE |
& (287.04 _d 0*atemp(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
307 |
EXF_BULKFORMULAE |
deltap(i,j) = atemp(i,j,bi,bj) + gamma_blk*ht - Tsf |
|
./pkg/exf/exf_bulkformulae.F |
359 |
EXF_BULKFORMULAE |
IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/exf/exf_bulkformulae.F |
378 |
EXF_BULKFORMULAE |
t0 = atemp(i,j,bi,bj)* |
|
./pkg/exf/exf_bulkformulae.F |
476 |
EXF_BULKFORMULAE |
IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/exf/exf_check_range.F |
121 |
EXF_CHECK_RANGE |
IF ( (atemp(i,j,bi,bj) .LT. 183 .OR. |
|
./pkg/exf/exf_check_range.F |
122 |
EXF_CHECK_RANGE |
& atemp(i,j,bi,bj) .GT. 343 ) .AND. |
|
./pkg/exf/exf_check_range.F |
127 |
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 |
207 |
EXF_GETFFIELDS |
U atemp, atemp0, atemp1, |
|
./pkg/exf/exf_getffields.F |
217 |
EXF_GETFFIELDS |
atemp(i,j,bi,bj) = atemp(i,j,bi,bj) + exf_offset_atemp |
|
./pkg/exf/exf_getffields.F |
502 |
EXF_GETFFIELDS |
& maskc, atemp, xx_atemp0, xx_atemp1, xx_atemp_dummy, |
|
./pkg/exf/exf_getffields.F |
643 |
EXF_GETFFIELDS |
atemp(i,j,bi,bj) =atemp(i,j,bi,bj) +xx_atemp_mean(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
689 |
EXF_GETFFIELDS |
& atemp(i,j,bi,bj)=atemp(i,j,bi,bj)+ |
|
./pkg/exf/exf_init_varia.F |
182 |
EXF_INIT_VARIA |
O atemp, atemp0, atemp1, |
|
./pkg/exf/exf_mapfields.F |
160 |
EXF_MAPFIELDS |
& *( atemp(i,j,bi,bj) - cen2kel - temp_EvPrRn ) |
|
./pkg/exf/exf_mapfields.F |
171 |
EXF_MAPFIELDS |
IF ( atemp(i,j,bi,bj).LT.cen2kel ) THEN |
|
./pkg/exf/exf_mapfields.F |
178 |
EXF_MAPFIELDS |
& *( atemp(i,j,bi,bj) - cen2kel - temp_EvPrRn ) |
|
./pkg/exf/exf_monitor.F |
143 |
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 ) |
|
./pkg/ecco/cost_gencost_customize.F |
169 |
COST_GENCOST_CUSTOMIZE |
& atemp(i,j,bi,bj)*maskC(i,j,1,bi,bj) |