| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_check_range.F |
133 |
EXF_CHECK_RANGE |
if ( (atemp(i,j,bi,bj) .LT. 183 .OR. |
|
./pkg/exf/exf_check_range.F |
134 |
EXF_CHECK_RANGE |
& atemp(i,j,bi,bj) .GT. 343 ) .AND. |
|
./pkg/exf/exf_check_range.F |
139 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, atemp(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
174 |
EXF_GETFFIELDS |
& atemp, atemp0, atemp1, atempmask, |
|
./pkg/exf/exf_getffields.F |
184 |
EXF_GETFFIELDS |
atemp(i,j,bi,bj) = atemp(i,j,bi,bj) + exf_offset_atemp |
|
./pkg/exf/exf_getffields.F |
326 |
EXF_GETFFIELDS |
& maskc, atemp, xx_atemp0, xx_atemp1, xx_atemp_dummy, |
|
./pkg/exf/exf_fields.h |
185 |
NO PROCEDURE |
common /exf_atm_temp_r/ atemp, aqh, lwflux, precip, snowprecip |
|
./pkg/exf/exf_fields.h |
186 |
NO PROCEDURE |
_RL atemp (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
|
./pkg/exf/exf_monitor.F |
121 |
EXF_MONITOR |
CALL MON_PRINTSTATS_RL(1,atemp,'_atemp', |
|
./pkg/exf/exf_bulkformulae.F |
239 |
EXF_BULKFORMULAE |
if ( atemp(i,j,bi,bj) .ne. 0. _d 0 ) then |
|
./pkg/exf/exf_bulkformulae.F |
240 |
EXF_BULKFORMULAE |
t0 = atemp(i,j,bi,bj)* |
|
./pkg/exf/exf_bulkformulae.F |
245 |
EXF_BULKFORMULAE |
deltap = atemp(i,j,bi,bj) + gamma_blk*ht - |
|
./pkg/exf/exf_init.F |
62 |
EXF_INIT |
& atempconst, atemp, atemp0, atemp1, mythid ) |
|
./pkg/exf/exf_diagnostics_fill.F |
49 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(atemp, 'EXFatemp',0,1,0,1,1,myThid) |
|
./pkg/thsice/thsice_get_exf.F |
145 |
THSICE_GET_EXF |
if ( atemp(i,j,bi,bj) .ne. 0. _d 0 ) then |
|
./pkg/thsice/thsice_get_exf.F |
146 |
THSICE_GET_EXF |
t0 = atemp(i,j,bi,bj)* |
|
./pkg/thsice/thsice_get_exf.F |
152 |
THSICE_GET_EXF |
deltap = atemp(i,j,bi,bj) + gamma_blk*ht - Tsf |
|
./pkg/thsice/thsice_map_exf.F |
89 |
THSICE_MAP_EXF |
& .AND. atemp(i,j,bi,bj).LE.cen2kel ) THEN |
|
./pkg/seaice/SEAICE_FFIELDS.h |
73 |
NO PROCEDURE |
COMMON /SEAICE_FFIELDS/ uwind, vwind, atemp, |
|
./pkg/seaice/SEAICE_FFIELDS.h |
77 |
NO PROCEDURE |
_RL atemp (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_do_diags.F |
106 |
SEAICE_DO_DIAGS |
CALL PLOT_FIELD_XYRS( atemp , 'Current atemp ', myIter, myThid ) |
|
./pkg/seaice/seaice_model.F |
69 |
SEAICE_MODEL |
_EXCH_XY_R8( atemp, myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
448 |
SEAICE_GET_FORCING |
atemp(i,j,bi,bj) = bWghtFlux * atemp0(i,j,bi,bj) + |
|
./pkg/seaice/seaice_get_forcing.F |
471 |
SEAICE_GET_FORCING |
atemp(i,j,bi,bj) = aWghtFlux * atemp0(i,j,bi,bj) + |