| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_do_diags.F |
56 |
SEAICE_DO_DIAGS |
CALL MNC_CW_RL_W('D','sice',0,0,'FV',fv,myThid) |
|
./pkg/seaice/seaice_do_diags.F |
69 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RS( 'FV.',suff,fv,myIter,myThid) |
|
./pkg/seaice/seaice_do_diags.F |
90 |
SEAICE_DO_DIAGS |
CALL PLOT_FIELD_XYRL( fv , 'Current fv ', myIter, myThid ) |
|
./pkg/seaice/ostres.F |
100 |
OSTRES |
fv(I,J,bi,bj)=HALF |
|
./pkg/seaice/ostres.F |
106 |
OSTRES |
CALL EXCH_UV_XY_RS(fu, fv, .TRUE., myThid) |
|
./pkg/seaice/ostres.F |
122 |
OSTRES |
fv(I,J,bi,bj)=(ONE-AREA(I,J,1,bi,bj))*fv(I,J,bi,bj)+ |
|
./pkg/seaice/ostres.F |
129 |
OSTRES |
CALL EXCH_UV_XY_RS(fu, fv, .TRUE., myThid) |