| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/cost_ice_test.F |
93 |
COST_ICE_TEST |
& theta(4,4,kSrf,1,1), area(4,4,1,1), heff(4,4,1,1) |
|
./pkg/seaice/seaice_advdiff.F |
609 |
SEAICE_ADVDIFF |
CALL ADVECT( uc, vc, area, fldNm1, HEFFM, myThid ) |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
106 |
SEAICE_CTRL_MAP_INI |
area(i,j,bi,bj) = area(i,j,bi,bj) + |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
157 |
SEAICE_CTRL_MAP_INI |
_EXCH_XY_RL( area, mythid ) |
|
./pkg/seaice/seaice_fake.F |
55 |
SEAICE_FAKE |
fac=MIN(1. _d 0, MAX(0. _d 0 , 1. _d 0 - area(i,j,bi,bj))) |
|
./pkg/seaice/seaice_fake.F |
71 |
SEAICE_FAKE |
fac=MIN(1. _d 0, MAX(0. _d 0 , area(i,j,bi,bj))) |
|
./pkg/seaice/seaice_itd_remap.F |
374 |
SEAICE_ITD_REMAP_LINEAR |
I hActual, area, |
|
./pkg/seaice/seaice_itd_remap.F |
416 |
SEAICE_ITD_REMAP_LINEAR |
_RL area (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_itd_remap.F |
447 |
SEAICE_ITD_REMAP_LINEAR |
& area(i,j) .GT. SEAICE_area_reg .AND. |
|
./pkg/seaice/seaice_itd_remap.F |
464 |
SEAICE_ITD_REMAP_LINEAR |
auxCoeff = 6. _d 0 * area(i,j)*recip_etaR |
|
./pkg/seaice/seaice_lsr.F |
948 |
SEAICE_LSR |
IF ( area(i,j,bi,bj) .gt. 0.5 _d 0 ) THEN |
|
./pkg/seaice/seaice_output.F |
106 |
SEAICE_OUTPUT |
CALL MNC_CW_RL_W(pf,'sice',0,0,'si_AREA',area,myThid) |
|
./pkg/seaice/seaice_output.F |
144 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'AREA.',suff,area,myIter,myThid) |
|
./pkg/streamice/streamice_vel_solve.F |
55 |
STREAMICE_VEL_SOLVE |
_RL err_max, err_tempu, err_tempv, err_init, area, err_max_fp |
|
./pkg/ecco/cost_averagesfields.F |
558 |
COST_AVERAGESFIELDS |
& smrareabar, area, xx_smrareabar_mean_dummy, |
|
./pkg/ecco/cost_gencost_customize.F |
200 |
COST_GENCOST_CUSTOMIZE |
& area(i,j,bi,bj)*maskC(i,j,1,bi,bj) |