| File |
Line number |
Procedure |
Code |
|
./pkg/bling/BLING_VARS.h |
197 |
NO PROCEDURE |
& irr_mem, |
|
./pkg/bling/BLING_VARS.h |
273 |
NO PROCEDURE |
_RL irr_mem(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/bling/bling_dvm.F |
188 |
BLING_DVM |
if ( irr_mem(i,j,1,bi,bj) .lt. 10. ) then |
|
./pkg/bling/bling_dvm.F |
190 |
BLING_DVM |
& irr_mem(i,j,1,bi,bj) / 10. _d 0 |
|
./pkg/bling/bling_init_varia.F |
45 |
BLING_INIT_VARIA |
irr_mem(i,j,k,bi,bj) = 1. _d 0 |
|
./pkg/bling/bling_production.F |
374 |
BLING_PROD |
irr_mem(i,j,k,bi,bj) = irr_mem(i,j,k,bi,bj) + |
|
./pkg/bling/bling_production.F |
375 |
BLING_PROD |
& (irr_eff(i,j,k) - irr_mem(i,j,k,bi,bj))* |
|
./pkg/bling/bling_production.F |
455 |
BLING_PROD |
& *irr_mem(i,j,k,bi,bj)/(epsln + 2. _d 0*Pc_m)) |
|
./pkg/bling/bling_production.F |
473 |
BLING_PROD |
& + irr_mem(i,j,k,bi,bj)/2. _d 0 |
|
./pkg/bling/bling_production.F |
858 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(irr_mem,'BLGIMEM ',0,Nr,1,bi,bj,myThid) |
|
./pkg/bling/bling_read_pickup.F |
74 |
BLING_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, irr_mem, 2, myIter, myThid ) |
|
./pkg/bling/bling_read_pickup.F |
81 |
BLING_READ_PICKUP |
_EXCH_XYZ_RL( irr_mem, myThid ) |
|
./pkg/bling/bling_write_pickup.F |
67 |
BLING_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, irr_mem, |