| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_prepare_ridging.F |
118 |
SEAICE_PREPARE_RIDGING |
gSum(i,j,-1) = 0. _d 0 |
|
./pkg/seaice/seaice_prepare_ridging.F |
119 |
SEAICE_PREPARE_RIDGING |
gSum(i,j,0) = 0. _d 0 |
|
./pkg/seaice/seaice_prepare_ridging.F |
121 |
SEAICE_PREPARE_RIDGING |
& gSum(i,j,0) = opnWtrFrac(i,j,bi,bj) |
|
./pkg/seaice/seaice_prepare_ridging.F |
127 |
SEAICE_PREPARE_RIDGING |
gSum(i,j,k) = gSum(i,j,k-1) |
|
./pkg/seaice/seaice_prepare_ridging.F |
129 |
SEAICE_PREPARE_RIDGING |
& gSum(i,j,k) = gSum(i,j,k) + AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_prepare_ridging.F |
137 |
SEAICE_PREPARE_RIDGING |
IF ( gSum(i,j,nITD).NE.0. _d 0 ) |
|
./pkg/seaice/seaice_prepare_ridging.F |
138 |
SEAICE_PREPARE_RIDGING |
& gSum(i,j,k) = gSum(i,j,k) / gSum(i,j,nITD) |
|
./pkg/seaice/seaice_prepare_ridging.F |
157 |
SEAICE_PREPARE_RIDGING |
IF ( gSum(i,j,k) .LT. SEAICEgStar ) THEN |
|
./pkg/seaice/seaice_prepare_ridging.F |
159 |
SEAICE_PREPARE_RIDGING |
& (gSum(i,j,k)-gSum(i,j,k-1)) * recip_gStar |
|
./pkg/seaice/seaice_prepare_ridging.F |
160 |
SEAICE_PREPARE_RIDGING |
& *( 2. _d 0 - (gSum(i,j,k-1)+gSum(i,j,k))*recip_gStar) |
|
./pkg/seaice/seaice_prepare_ridging.F |
161 |
SEAICE_PREPARE_RIDGING |
ELSEIF ( gSum(i,j,k-1) .LT. SEAICEgStar |
|
./pkg/seaice/seaice_prepare_ridging.F |
162 |
SEAICE_PREPARE_RIDGING |
& .AND. gSum(i,j,k) .GE. SEAICEgStar ) THEN |
|
./pkg/seaice/seaice_prepare_ridging.F |
164 |
SEAICE_PREPARE_RIDGING |
& (SEAICEgStar-gSum(i,j,k-1)) * recip_gStar |
|
./pkg/seaice/seaice_prepare_ridging.F |
165 |
SEAICE_PREPARE_RIDGING |
& *( 2. _d 0 - (gSum(i,j,k-1)+SEAICEgStar)*recip_gStar) |
|
./pkg/seaice/seaice_prepare_ridging.F |
181 |
SEAICE_PREPARE_RIDGING |
gSum(i,j,k) = EXP(-gSum(i,j,k)*recip_astar) * tmp |
|
./pkg/seaice/seaice_prepare_ridging.F |
187 |
SEAICE_PREPARE_RIDGING |
gSum(i,j,k) = EXP(-gSum(i,j,k)*recip_astar) * tmp |
|
./pkg/seaice/seaice_prepare_ridging.F |
188 |
SEAICE_PREPARE_RIDGING |
partFunc(i,j,k) = gSum(i,j,k-1) - gSum(i,j,k) |
|
./pkg/seaice/seaice_prepare_ridging.F |
84 |
SEAICE_PREPARE_RIDGING |
_RL gSum (1-OLx:sNx+OLx,1-OLy:sNy+OLy,-1:nITD) |