| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_check_range.F |
144 |
EXF_CHECK_RANGE |
if ( (aqh(i,j,bi,bj) .LT. 0. .OR. |
|
./pkg/exf/exf_check_range.F |
145 |
EXF_CHECK_RANGE |
& aqh(i,j,bi,bj) .GT. 0.1 ) .AND. |
|
./pkg/exf/exf_check_range.F |
149 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, aqh(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
196 |
EXF_GETFFIELDS |
& aqh, aqh0, aqh1, aqhmask, |
|
./pkg/exf/exf_getffields.F |
334 |
EXF_GETFFIELDS |
& maskc, aqh, xx_aqh0, xx_aqh1, xx_aqh_dummy, |
|
./pkg/exf/exf_fields.h |
185 |
NO PROCEDURE |
common /exf_atm_temp_r/ atemp, aqh, lwflux, precip, snowprecip |
|
./pkg/exf/exf_fields.h |
187 |
NO PROCEDURE |
_RL aqh (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
|
./pkg/exf/exf_monitor.F |
123 |
EXF_MONITOR |
CALL MON_PRINTSTATS_RL(1,aqh,'_aqh', |
|
./pkg/exf/exf_bulkformulae.F |
241 |
EXF_BULKFORMULAE |
& (exf_one + humid_fac*aqh(i,j,bi,bj)) |
|
./pkg/exf/exf_bulkformulae.F |
247 |
EXF_BULKFORMULAE |
delq = aqh(i,j,bi,bj) - ssq |
|
./pkg/exf/exf_bulkformulae.F |
279 |
EXF_BULKFORMULAE |
& qstar/(exf_one/humid_fac+aqh(i,j,bi,bj)))/ |
|
./pkg/exf/exf_init.F |
64 |
EXF_INIT |
& aqhconst, aqh, aqh0, aqh1, mythid ) |
|
./pkg/exf/exf_diagnostics_fill.F |
50 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(aqh, 'EXFaqh ',0,1,0,1,1,myThid) |
|
./pkg/thsice/thsice_get_exf.F |
147 |
THSICE_GET_EXF |
& (exf_one + humid_fac*aqh(i,j,bi,bj)) |
|
./pkg/thsice/thsice_get_exf.F |
153 |
THSICE_GET_EXF |
delq = aqh(i,j,bi,bj) - ssq |
|
./pkg/thsice/thsice_get_exf.F |
165 |
THSICE_GET_EXF |
& qstar/(exf_one/humid_fac+aqh(i,j,bi,bj)))/ |
|
./pkg/seaice/SEAICE_FFIELDS.h |
74 |
NO PROCEDURE |
& aqh, lwdown, swdown, precip, evap, runoff |
|
./pkg/seaice/SEAICE_FFIELDS.h |
78 |
NO PROCEDURE |
_RL aqh (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_do_diags.F |
107 |
SEAICE_DO_DIAGS |
CALL PLOT_FIELD_XYRS( aqh , 'Current aqh ', myIter, myThid ) |
|
./pkg/seaice/seaice_model.F |
70 |
SEAICE_MODEL |
_EXCH_XY_R8( aqh, myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
450 |
SEAICE_GET_FORCING |
aqh(i,j,bi,bj) = bWghtFlux * aqh0(i,j,bi,bj) + |
|
./pkg/seaice/seaice_get_forcing.F |
473 |
SEAICE_GET_FORCING |
aqh(i,j,bi,bj) = aWghtFlux * aqh0(i,j,bi,bj) + |