| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/GGL90.h |
118 |
NO PROCEDURE |
_RL IDEMIX_V0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ggl90/GGL90.h |
126 |
NO PROCEDURE |
COMMON /GGL90_IDEMIX_01/ IDEMIX_E,IDEMIX_V0,IDEMIX_tau_d |
|
./pkg/ggl90/ggl90_exchanges.F |
45 |
GGL90_EXCHANGES |
_EXCH_XYZ_RL(IDEMIX_V0,myThid) |
|
./pkg/ggl90/ggl90_idemix.F |
146 |
GGL90_IDEMIX |
IDEMIX_V0(i,j,k,bi,bj)=max(0. _d 0, |
|
./pkg/ggl90/ggl90_idemix.F |
165 |
GGL90_IDEMIX |
IDEMIX_V0(i,j,k,bi,bj) = min( IDEMIX_V0(i,j,k,bi,bj), fxb ) |
|
./pkg/ggl90/ggl90_idemix.F |
244 |
GGL90_IDEMIX |
& IDEMIX_V0(i-1,j,k,bi,bj)*maskC(i-1,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
245 |
GGL90_IDEMIX |
& +IDEMIX_V0(i ,j,k,bi,bj)*maskC(i ,j,k,bi,bj)) |
|
./pkg/ggl90/ggl90_idemix.F |
250 |
GGL90_IDEMIX |
& *(IDEMIX_V0(i ,j,k,bi,bj)*IDEMIX_E(i ,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
251 |
GGL90_IDEMIX |
& -IDEMIX_V0(i-1,j,k,bi,bj)*IDEMIX_E(i-1,j,k,bi,bj)) |
|
./pkg/ggl90/ggl90_idemix.F |
261 |
GGL90_IDEMIX |
& IDEMIX_V0(i,j ,k,bi,bj)*maskC(i,j ,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
262 |
GGL90_IDEMIX |
& +IDEMIX_V0(i,j-1,k,bi,bj)*maskC(i,j-1,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_idemix.F |
267 |
GGL90_IDEMIX |
& *(IDEMIX_V0(i,j ,k,bi,bj)*IDEMIX_E(i,j ,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
268 |
GGL90_IDEMIX |
& -IDEMIX_V0(i,j-1,k,bi,bj)*IDEMIX_E(i,j-1,k,bi,bj)) |
|
./pkg/ggl90/ggl90_idemix.F |
452 |
GGL90_IDEMIX |
CALL DIAGNOSTICS_FILL( IDEMIX_V0 ,'IDEMIX_v', |
|
./pkg/ggl90/ggl90_init_varia.F |
80 |
GGL90_INIT_VARIA |
IDEMIX_V0(I,J,K,bi,bj) = 0. _d 0 |