| File |
Line number |
Procedure |
Code |
|
./pkg/atm2d/relax_add.F |
103 |
RELAX_ADD |
sstRelax(i,j)= (wght0*sst0(i,j,1,1) + wght1*sst1(i,j,1,1)) |
|
./pkg/atm2d/relax_add.F |
105 |
RELAX_ADD |
sstRelax(i,j)= sstFromOcn(i,j) |
|
./pkg/atm2d/relax_add.F |
117 |
RELAX_ADD |
IF ((sstRelax(i,j).GT.2. _d 0).OR. |
|
./pkg/atm2d/relax_add.F |
120 |
RELAX_ADD |
ELSEIF (sstRelax(i,j) .LE. -1. _d 0) THEN |
|
./pkg/atm2d/relax_add.F |
123 |
RELAX_ADD |
nearIce=(sstRelax(i,j)+1.0)/3.0 |
|
./pkg/atm2d/relax_add.F |
126 |
RELAX_ADD |
qrelflux= lambdaTheta*(sstFromOcn(i,j)-sstRelax(i,j)) |
|
./pkg/atm2d/relax_add.F |
55 |
RELAX_ADD |
_RL sstRelax(1:sNx,1:sNy) ! relaxation sst as computed from file |