| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/cost_ice_test.F |
92 |
COST_ICE_TEST |
& area(4,4,1,1), heff(4,4,1,1) |
|
./pkg/seaice/seaice_advdiff.F |
336 |
SEAICE_ADVDIFF |
CALL ADVECT( uc, vc, area, areaNm1, HEFFM, myThid ) |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
101 |
SEAICE_CTRL_MAP_INI |
area(i,j,bi,bj) = area(i,j,bi,bj) + |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
152 |
SEAICE_CTRL_MAP_INI |
_EXCH_XY_RL( area, mythid ) |
|
./pkg/seaice/seaice_lsr.F |
951 |
SEAICE_LSR |
IF ( area(i,j,bi,bj) .gt. 0.5 _d 0 ) THEN |
|
./pkg/seaice/seaice_model.F |
94 |
SEAICE_MODEL |
& .OR.(area(i,j,bi,bj).EQ.0.) |
|
./pkg/seaice/seaice_output.F |
121 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'AREA.',suff,area,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
97 |
SEAICE_OUTPUT |
CALL MNC_CW_RL_W(pf,'sice',0,0,'si_AREA',area,myThid) |
|
./pkg/ctrl/ctrl_obcsbal.F |
122 |
CTRL_OBCSBAL |
area= 0. d 0 |
|
./pkg/ctrl/ctrl_obcsbal.F |
156 |
CTRL_OBCSBAL |
call CTRL_VOLFLUX( obcsncount0, area, volflux, mythid) |
|
./pkg/ctrl/ctrl_obcsbal.F |
160 |
CTRL_OBCSBAL |
_GLOBAL_SUM_RL( area,mythid ) |
|
./pkg/ctrl/ctrl_obcsbal.F |
162 |
CTRL_OBCSBAL |
shiftvel(2) = volflux / area |
|
./pkg/ctrl/ctrl_obcsbal.F |
163 |
CTRL_OBCSBAL |
print*,'volflux,area',volflux,area |
|
./pkg/ctrl/ctrl_obcsbal.F |
173 |
CTRL_OBCSBAL |
area= 0. d0 |
|
./pkg/ctrl/ctrl_obcsbal.F |
175 |
CTRL_OBCSBAL |
call CTRL_VOLFLUX( obcsncount1, area, volflux, mythid) |
|
./pkg/ctrl/ctrl_obcsbal.F |
179 |
CTRL_OBCSBAL |
_GLOBAL_SUM_RL( area,mythid ) |
|
./pkg/ctrl/ctrl_obcsbal.F |
181 |
CTRL_OBCSBAL |
shiftvel(2) = volflux /area |
|
./pkg/ctrl/ctrl_obcsbal.F |
182 |
CTRL_OBCSBAL |
print*,'volflux,area',volflux,area |
|
./pkg/ctrl/ctrl_obcsbal.F |
72 |
CTRL_OBCSBAL |
_RL area |
|
./pkg/ecco/cost_averagesfields.F |
456 |
COST_AVERAGESFIELDS |
& smrareabar, area, xx_smrareabar_mean_dummy, |