| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_idemix.F |
413 |
GGL90_IDEMIX |
& +deltaTggl90*IDEMIX_F_s(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
463 |
GGL90_IDEMIX |
CALL DIAGNOSTICS_FILL(IDEMIX_F_s,'IDEM_F_s',0,1,1,bi,bj,myThid) |
|
./pkg/ggl90/ggl90_init_varia.F |
119 |
GGL90_INIT_VARIA |
CALL READ_REC_XY_RL( IDEMIX_wind_file ,IDEMIX_F_s,1,0,myThid ) |
|
./pkg/ggl90/ggl90_init_varia.F |
120 |
GGL90_INIT_VARIA |
_EXCH_XY_RL(IDEMIX_F_s,myThid) |
|
./pkg/ggl90/ggl90_init_varia.F |
125 |
GGL90_INIT_VARIA |
IDEMIX_F_s(i,j,bi,bj) = MAX(0. _d 0, |
|
./pkg/ggl90/ggl90_init_varia.F |
126 |
GGL90_INIT_VARIA |
& MIN(1. _d 0,IDEMIX_F_s(i,j,bi,bj))) |
|
./pkg/ggl90/ggl90_init_varia.F |
128 |
GGL90_INIT_VARIA |
IDEMIX_F_s(i,j,bi,bj) = IDEMIX_frac_F_s* |
|
./pkg/ggl90/ggl90_init_varia.F |
130 |
GGL90_INIT_VARIA |
& IDEMIX_F_s(i,j,bi,bj)/1024. |