| File |
Line number |
Procedure |
Code |
|
./pkg/bling/BLING_VARS.h |
200 |
NO PROCEDURE |
& phyto_diaz, |
|
./pkg/bling/BLING_VARS.h |
276 |
NO PROCEDURE |
_RL phyto_diaz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/bling/bling_init_varia.F |
132 |
BLING_INIT_VARIA |
& phyto_diaz(1-OLx,1-OLy,1,1,1),0,myThid) |
|
./pkg/bling/bling_init_varia.F |
133 |
BLING_INIT_VARIA |
_EXCH_XYZ_RL(phyto_diaz(1-OLx,1-OLy,1,1,1),myThid) |
|
./pkg/bling/bling_init_varia.F |
145 |
BLING_INIT_VARIA |
phyto_diaz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_init_varia.F |
50 |
BLING_INIT_VARIA |
phyto_diaz(i,j,k,bi,bj) = 4. _d -7 / permil |
|
./pkg/bling/bling_production.F |
282 |
BLING_PROD |
Phy_diaz_local(i,j,k) = PTR_PHY(i,j,k)*phyto_diaz(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
286 |
BLING_PROD |
Phy_diaz_local(i,j,k) = phyto_diaz(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
570 |
BLING_PROD |
phyto_diaz(i,j,k,bi,bj) = Phy_diaz_local(i,j,k)/PTR_PHY(i,j,k) |
|
./pkg/bling/bling_production.F |
575 |
BLING_PROD |
phyto_diaz(i,j,k,bi,bj) = Phy_diaz_local(i,j,k) |
|
./pkg/bling/bling_read_pickup.F |
78 |
BLING_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, phyto_diaz, 6, myIter, myThid ) |
|
./pkg/bling/bling_read_pickup.F |
85 |
BLING_READ_PICKUP |
_EXCH_XYZ_RL( phyto_diaz, myThid ) |
|
./pkg/bling/bling_write_pickup.F |
86 |
BLING_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, phyto_diaz, -j, myIter, |