| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_runga2.F |
198 |
FLT_RUNGA2 |
jc = MAX( 1-Oly, MIN( NINT(jpart(ip,bi,bj)), sNy+Oly ) ) |
|
./pkg/flt/flt_runga2.F |
217 |
FLT_RUNGA2 |
IF ( maskInC(ic,jc,bi,bj).EQ.0. .AND. |
|
./pkg/flt/flt_runga2.F |
218 |
FLT_RUNGA2 |
& maskC(ic,jc,1,bi,bj).EQ.1. ) THEN |
|
./pkg/flt/flt_runga2.F |
44 |
FLT_RUNGA2 |
INTEGER ic, jc, kc, iG, jG |
|
./pkg/flt/flt_runga2.F |
91 |
FLT_RUNGA2 |
jc=NINT(jy) |
|
./pkg/flt/flt_runga2.F |
94 |
FLT_RUNGA2 |
scalex=recip_dxF(ic,jc,bi,bj) |
|
./pkg/flt/flt_runga2.F |
95 |
FLT_RUNGA2 |
scaley=recip_dyF(ic,jc,bi,bj) |
|
./pkg/flt/flt_runga2.F |
97 |
FLT_RUNGA2 |
jG = myYGlobalLo + (bj-1)*sNy + jc-1 |
|
./pkg/flt/flt_runga4.F |
305 |
FLT_RUNGA4 |
jc = MAX( 1-Oly, MIN( NINT(jpart(ip,bi,bj)), sNy+Oly ) ) |
|
./pkg/flt/flt_runga4.F |
324 |
FLT_RUNGA4 |
IF ( maskInC(ic,jc,bi,bj).EQ.0. .AND. |
|
./pkg/flt/flt_runga4.F |
325 |
FLT_RUNGA4 |
& maskC(ic,jc,1,bi,bj).EQ.1. ) THEN |
|
./pkg/flt/flt_runga4.F |
44 |
FLT_RUNGA4 |
INTEGER ic, jc, kc, iG, jG |
|
./pkg/flt/flt_runga4.F |
91 |
FLT_RUNGA4 |
jc=NINT(jy) |
|
./pkg/flt/flt_runga4.F |
94 |
FLT_RUNGA4 |
scalex=recip_dxF(ic,jc,bi,bj) |
|
./pkg/flt/flt_runga4.F |
95 |
FLT_RUNGA4 |
scaley=recip_dyF(ic,jc,bi,bj) |
|
./pkg/flt/flt_runga4.F |
97 |
FLT_RUNGA4 |
jG = myYGlobalLo + (bj-1)*sNy + jc-1 |