| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/GGL90.h |
127 |
NO PROCEDURE |
& ,IDEMIX_F_b,IDEMIX_F_S |
|
./pkg/ggl90/ggl90_idemix.F |
418 |
GGL90_IDEMIX |
& -deltaTggl90*IDEMIX_F_b(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
462 |
GGL90_IDEMIX |
CALL DIAGNOSTICS_FILL(IDEMIX_F_b,'IDEM_F_b',0,1,1,bi,bj,myThid) |
|
./pkg/ggl90/ggl90_init_varia.F |
100 |
GGL90_INIT_VARIA |
_EXCH_XY_RL(IDEMIX_F_b,myThid) |
|
./pkg/ggl90/ggl90_init_varia.F |
106 |
GGL90_INIT_VARIA |
IDEMIX_F_b(i,j,bi,bj) = -MAX(0. _d 0, |
|
./pkg/ggl90/ggl90_init_varia.F |
107 |
GGL90_INIT_VARIA |
& MIN(1. _d 0,IDEMIX_F_b(i,j,bi,bj))) |
|
./pkg/ggl90/ggl90_init_varia.F |
109 |
GGL90_INIT_VARIA |
IDEMIX_F_b(i,j,bi,bj) = IDEMIX_frac_F_b* |
|
./pkg/ggl90/ggl90_init_varia.F |
111 |
GGL90_INIT_VARIA |
& IDEMIX_F_b(i,j,bi,bj)/1024. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
99 |
GGL90_INIT_VARIA |
CALL READ_REC_XY_RL( IDEMIX_tidal_file,IDEMIX_F_b,1,0,myThid ) |