| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_runga2.F |
197 |
FLT_RUNGA2 |
jc = MAX( 1-Oly, MIN( NINT(jpart(ip,bi,bj)), sNy+Oly ) ) |
|
./pkg/flt/flt_runga2.F |
216 |
FLT_RUNGA2 |
IF ( maskInC(ic,jc,bi,bj).EQ.0. .AND. |
|
./pkg/flt/flt_runga2.F |
217 |
FLT_RUNGA2 |
& maskC(ic,jc,1,bi,bj).EQ.1. ) THEN |
|
./pkg/flt/flt_runga2.F |
43 |
FLT_RUNGA2 |
INTEGER ic, jc, kc, iG, jG |
|
./pkg/flt/flt_runga2.F |
90 |
FLT_RUNGA2 |
jc=NINT(jy) |
|
./pkg/flt/flt_runga2.F |
93 |
FLT_RUNGA2 |
scalex=recip_dxF(ic,jc,bi,bj) |
|
./pkg/flt/flt_runga2.F |
94 |
FLT_RUNGA2 |
scaley=recip_dyF(ic,jc,bi,bj) |
|
./pkg/flt/flt_runga2.F |
96 |
FLT_RUNGA2 |
jG = myYGlobalLo + (bj-1)*sNy + jc-1 |