| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_prepare_ridging.F |
115 |
SEAICE_PREPARE_RIDGING |
gSum(i,j,-1) = 0. _d 0 |
|
./pkg/seaice/seaice_prepare_ridging.F |
116 |
SEAICE_PREPARE_RIDGING |
gSum(i,j,0) = 0. _d 0 |
|
./pkg/seaice/seaice_prepare_ridging.F |
118 |
SEAICE_PREPARE_RIDGING |
& gSum(i,j,0) = opnWtrFrac(i,j,bi,bj) |
|
./pkg/seaice/seaice_prepare_ridging.F |
124 |
SEAICE_PREPARE_RIDGING |
gSum(i,j,k) = gSum(i,j,k-1) |
|
./pkg/seaice/seaice_prepare_ridging.F |
126 |
SEAICE_PREPARE_RIDGING |
& gSum(i,j,k) = gSum(i,j,k) + AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_prepare_ridging.F |
134 |
SEAICE_PREPARE_RIDGING |
IF ( gSum(i,j,nITD).NE.0. _d 0 ) |
|
./pkg/seaice/seaice_prepare_ridging.F |
135 |
SEAICE_PREPARE_RIDGING |
& gSum(i,j,k) = gSum(i,j,k) / gSum(i,j,nITD) |
|
./pkg/seaice/seaice_prepare_ridging.F |
154 |
SEAICE_PREPARE_RIDGING |
IF ( gSum(i,j,k) .LT. SEAICEgStar ) THEN |
|
./pkg/seaice/seaice_prepare_ridging.F |
156 |
SEAICE_PREPARE_RIDGING |
& (gSum(i,j,k)-gSum(i,j,k-1)) * recip_gStar |
|
./pkg/seaice/seaice_prepare_ridging.F |
157 |
SEAICE_PREPARE_RIDGING |
& *( 2. _d 0 - (gSum(i,j,k-1)+gSum(i,j,k))*recip_gStar) |
|
./pkg/seaice/seaice_prepare_ridging.F |
158 |
SEAICE_PREPARE_RIDGING |
ELSEIF ( gSum(i,j,k-1) .LT. SEAICEgStar |
|
./pkg/seaice/seaice_prepare_ridging.F |
159 |
SEAICE_PREPARE_RIDGING |
& .AND. gSum(i,j,k) .GE. SEAICEgStar ) THEN |
|
./pkg/seaice/seaice_prepare_ridging.F |
161 |
SEAICE_PREPARE_RIDGING |
& (SEAICEgStar-gSum(i,j,k-1)) * recip_gStar |
|
./pkg/seaice/seaice_prepare_ridging.F |
162 |
SEAICE_PREPARE_RIDGING |
& *( 2. _d 0 - (gSum(i,j,k-1)+SEAICEgStar)*recip_gStar) |
|
./pkg/seaice/seaice_prepare_ridging.F |
178 |
SEAICE_PREPARE_RIDGING |
gSum(i,j,k) = EXP(-gSum(i,j,k)*recip_astar) * tmp |
|
./pkg/seaice/seaice_prepare_ridging.F |
184 |
SEAICE_PREPARE_RIDGING |
gSum(i,j,k) = EXP(-gSum(i,j,k)*recip_astar) * tmp |
|
./pkg/seaice/seaice_prepare_ridging.F |
185 |
SEAICE_PREPARE_RIDGING |
partFunc(i,j,k) = gSum(i,j,k-1) - gSum(i,j,k) |
|
./pkg/seaice/seaice_prepare_ridging.F |
81 |
SEAICE_PREPARE_RIDGING |
_RL gSum (1-OLx:sNx+OLx,1-OLy:sNy+OLy,-1:nITD) |