| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/cost_ice_test.F |
93 |
COST_ICE_TEST |
& area(4,4,1,1), heff(4,4,1,1) |
|
./pkg/seaice/seaice_advdiff.F |
606 |
SEAICE_ADVDIFF |
CALL ADVECT( uc, vc, area, fldNm1, HEFFM, myThid ) |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
103 |
SEAICE_CTRL_MAP_INI |
area(i,j,bi,bj) = area(i,j,bi,bj) + |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
154 |
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_lsr.F |
865 |
SEAICE_LSR |
IF ( area(i,j,bi,bj) .gt. 0.5 _d 0 ) THEN |
|
./pkg/seaice/seaice_output.F |
105 |
SEAICE_OUTPUT |
CALL MNC_CW_RL_W(pf,'sice',0,0,'si_AREA',area,myThid) |
|
./pkg/seaice/seaice_output.F |
137 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'AREA.',suff,area,myIter,myThid) |
|
./pkg/streamice/streamice_vel_solve.F |
50 |
STREAMICE_VEL_SOLVE |
_RL err_max, err_tempu, err_tempv, err_init, area, err_max_fp |
|
./pkg/ecco/cost_averagesfields.F |
544 |
COST_AVERAGESFIELDS |
& smrareabar, area, xx_smrareabar_mean_dummy, |
|
./pkg/ecco/cost_gencost_customize.F |
75 |
COST_GENCOST_CUSTOMIZE |
& = area(i,j,bi,bj)*maskC(i,j,1,bi,bj) |