File |
Line number |
Procedure |
Code |
./pkg/exf/exf_init.F |
75 |
EXF_INIT |
& evapconst, evap, evap0, evap1, mythid ) |
./pkg/exf/exf_getffields.F |
253 |
EXF_GETFFIELDS |
& evap, evap0, evap1, evapmask, |
./pkg/exf/exf_fields.h |
204 |
NO PROCEDURE |
common /exfl_evap_r/ evap0, evap1 |
./pkg/exf/exf_fields.h |
205 |
NO PROCEDURE |
_RL evap0 (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
./pkg/seaice/SEAICE_FFIELDS.h |
103 |
NO PROCEDURE |
_RS evap0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./pkg/seaice/SEAICE_FFIELDS.h |
87 |
NO PROCEDURE |
& swdown0, swdown1, precip0, precip1, evap0, evap1, |
./pkg/seaice/seaice_get_forcing.F |
117 |
SEAICE_GET_FORCING |
CALL INIT_ARRAY_RS( evap0 , initValue, myThid ) |
./pkg/seaice/seaice_get_forcing.F |
185 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,evap0,iRec ,myIter,myThid ) |
./pkg/seaice/seaice_get_forcing.F |
223 |
SEAICE_GET_FORCING |
_EXCH_XY_R4( evap0, myThid ) |
./pkg/seaice/seaice_get_forcing.F |
329 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,evap0,iRec,myIter,myThid ) |
./pkg/seaice/seaice_get_forcing.F |
350 |
SEAICE_GET_FORCING |
_EXCH_XY_R4(evap0, myThid ) |
./pkg/seaice/seaice_get_forcing.F |
458 |
SEAICE_GET_FORCING |
evap(i,j,bi,bj) = bWghtFlux * evap0(i,j,bi,bj) + |
./pkg/seaice/seaice_get_forcing.F |
481 |
SEAICE_GET_FORCING |
evap(i,j,bi,bj) = aWghtFlux * evap0(i,j,bi,bj) + |