File |
Line number |
Procedure |
Code |
./pkg/fizhi/do_fizhi.F |
197 |
DO_FIZHI |
sea_ice(i,j) = sice(i,j,bi,bj) |
./pkg/fizhi/do_fizhi.F |
53 |
DO_FIZHI |
_RL sice(idim1:idim2,jdim1:jdim2,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
9 |
DO_FIZHI |
& tgz,sst,sice,phis_var,landtype,fracland,emiss,albnirdr,albnirdf, |
./pkg/fizhi/fizhi_init_fixed.F |
118 |
FIZHI_INIT_FIXED |
if(sice(i,j,bi,bj).ne.0.0)landtype(i,j,bi,bj) = 101 |
./pkg/fizhi/fizhi_ocean_coms.h |
12 |
NO PROCEDURE |
common /ocean_exports/ sst, sice |
./pkg/fizhi/fizhi_ocean_coms.h |
14 |
NO PROCEDURE |
_RL sice(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nsx,Nsy) |
./pkg/fizhi/fizhi_wrapper.F |
267 |
FIZHI_WRAPPER |
& tgz,sst,sice,phis_var,landtype,fracland,emiss,albnirdr,albnirdf, |
./pkg/fizhi/update_earth_exports.F |
149 |
UPDATE_EARTH_EXPORTS |
if(fracl(i,j).lt.0.3.and.sice(i,j,bi,bj).eq.0.0) |
./pkg/fizhi/update_earth_exports.F |
87 |
UPDATE_EARTH_EXPORTS |
if(sice(i,j,bi,bj).gt.0.) then |
./pkg/fizhi/update_ocean_exports.F |
104 |
UPDATE_OCEAN_EXPORTS |
if(sice(i,j,bi,bj).eq.0.0 .and. sst(i,j,bi,bj).lt.sstmin) |
./pkg/fizhi/update_ocean_exports.F |
112 |
UPDATE_OCEAN_EXPORTS |
_EXCH_XY_RL(sice,myThid) |
./pkg/fizhi/update_ocean_exports.F |
120 |
GETSICE |
. nymdbc,nhmsbc,sice,mythid) |
./pkg/fizhi/update_ocean_exports.F |
170 |
GETSICE |
_RL sice(idim1:idim2,jdim1:jdim2,nSumx,nSumy) |
./pkg/fizhi/update_ocean_exports.F |
354 |
GETSICE |
sice(i,j,bi,bj) = sicebc1(i+bislot,j+bjslot)*fac1 |
./pkg/fizhi/update_ocean_exports.F |
358 |
GETSICE |
if (sice(i,j,bi,bj) .ge. 0.5) then |
./pkg/fizhi/update_ocean_exports.F |
359 |
GETSICE |
sice(i,j,bi,bj) = 1. |
./pkg/fizhi/update_ocean_exports.F |
361 |
GETSICE |
sice(i,j,bi,bj) = 0. |
./pkg/fizhi/update_ocean_exports.F |
369 |
GETSICE |
if (sice(i,j,bi,bj) .eq. 1.) then |
./pkg/fizhi/update_ocean_exports.F |
370 |
GETSICE |
sice(i,j,bi,bj) = 3. |
./pkg/fizhi/update_ocean_exports.F |
98 |
UPDATE_OCEAN_EXPORTS |
. sicetimes(1,bi,bj),sice,myThid) |
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
97 |
FIZHI_INIT_FIXED |
if(sice(i,j,bi,bj).ne.0.0)landtype(i,j,bi,bj) = 101 |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
104 |
UPDATE_OCEAN_EXPORTS |
if(sice(i,j,bi,bj).eq.0.0 .and. sst(i,j,bi,bj).lt.sstmin) |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
112 |
UPDATE_OCEAN_EXPORTS |
_EXCH_XY_RL(sice,myThid) |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
120 |
GETSICE |
. nymdbc,nhmsbc,sice,mythid) |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
170 |
GETSICE |
_RL sice(idim1:idim2,jdim1:jdim2,nSumx,nSumy) |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
184 |
GETSICE |
sice(i,j,bi,bj) = 0. |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
98 |
UPDATE_OCEAN_EXPORTS |
. sicetimes(1,bi,bj),sice,myThid) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
53 |
DO_FIZHI |
_RL sice(idim1:idim2,jdim1:jdim2,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
9 |
DO_FIZHI |
& tgz,sst,sice,phis_var,landtype,fracland,emiss,albnirdr,albnirdf, |
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
97 |
FIZHI_INIT_FIXED |
if(sice(i,j,bi,bj).ne.0.0)landtype(i,j,bi,bj) = 101 |
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
117 |
GETSICE |
_RL sice(idim1:idim2,jdim1:jdim2,nSumx,nSumy) |
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
123 |
GETSICE |
sice(i,j,bi,bj) = 0. |
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
52 |
UPDATE_OCEAN_EXPORTS |
. nSy,nSxglobal,nSyglobal,bi,bj,biglobal,bjglobal,nymd,nhms,sice) |
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
58 |
UPDATE_OCEAN_EXPORTS |
if(sice(i,j,bi,bj).eq.0.0 .and. sst(i,j,bi,bj).lt.sstmin) |
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
70 |
GETSICE |
. nSumx,nSumy,nPgx,nPgy,bi,bj,biglobal,bjglobal,nymd,nhms,sice) |