| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_idemix.F |
205 |
GGL90_IDEMIX |
forc(i,j,k) = forc(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
215 |
GGL90_IDEMIX |
forc(i,j,k) = forc(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
228 |
GGL90_IDEMIX |
forc(i,j,kbottom)=forc(i,j,kbottom) |
|
./pkg/ggl90/ggl90_idemix.F |
292 |
GGL90_IDEMIX |
& + forc(i,j,k)*deltaTggl90 |
|
./pkg/ggl90/ggl90_idemix.F |
460 |
GGL90_IDEMIX |
CALL DIAGNOSTICS_FILL( forc ,'IDEMIX_F', |
|
./pkg/ggl90/ggl90_idemix.F |
75 |
GGL90_IDEMIX |
_RL forc(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_idemix.F |
97 |
GGL90_IDEMIX |
forc(i,j,k) = 0. _d 0 |