File |
Line number |
Procedure |
Code |
./pkg/bling/bling_production.F |
161 |
BLING_PROD |
_RL irrk(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./pkg/bling/bling_production.F |
241 |
BLING_PROD |
irrk(i,j,k) = 0. _d 0 |
./pkg/bling/bling_production.F |
471 |
BLING_PROD |
irrk(i,j,k) = Pc_m |
./pkg/bling/bling_production.F |
477 |
BLING_PROD |
& /(epsln + irrk(i,j,k)))) |
./pkg/bling/bling_production.F |
480 |
BLING_PROD |
& /(epsln + irrk(i,j,k)))) |
./pkg/bling/bling_production.F |
483 |
BLING_PROD |
& /(epsln + irrk(i,j,k)))) |
./pkg/bling/bling_production.F |
860 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(irrk, 'BLGIRRK ',0,Nr,2,bi,bj,myThid) |