| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
132 |
UPDATE_EARTH_EXPORTS |
if(fracl(i,j).lt.0.3.and.sice(i,j,bi,bj).eq.0.0) |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
75 |
UPDATE_EARTH_EXPORTS |
if(sice(i,j,bi,bj).gt.0.) then |
|
./verification/fizhi-cs-aqualev10/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-aqualev10/code/update_ocean_exports.F |
104 |
UPDATE_OCEAN_EXPORTS |
_EXCH_XY_R8(sice,myThid) |
|
./verification/fizhi-cs-aqualev10/code/update_ocean_exports.F |
112 |
GETSICE |
. nymdbc,nhmsbc,sice,mythid) |
|
./verification/fizhi-cs-aqualev10/code/update_ocean_exports.F |
162 |
GETSICE |
_RL sice(idim1:idim2,jdim1:jdim2,nSumx,nSumy) |
|
./verification/fizhi-cs-aqualev10/code/update_ocean_exports.F |
175 |
GETSICE |
sice(i,j,bi,bj) = 0. |
|
./verification/fizhi-cs-aqualev10/code/update_ocean_exports.F |
90 |
UPDATE_OCEAN_EXPORTS |
. sicetimes(1,bi,bj),sice,myThid) |
|
./verification/fizhi-cs-aqualev10/code/update_ocean_exports.F |
96 |
UPDATE_OCEAN_EXPORTS |
if(sice(i,j,bi,bj).eq.0.0 .and. sst(i,j,bi,bj).lt.sstmin) |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
193 |
DO_FIZHI |
sea_ice(i,j) = sice(i,j,bi,bj) |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
52 |
DO_FIZHI |
_RL sice(idim1:idim2,jdim1:jdim2,Nsxin,Nsyin) |
|
./verification/fizhi-cs-aqualev10/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 |
91 |
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) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
52 |
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, |
|
./pkg/fizhi/fizhi_ocean_coms.h |
6 |
NO PROCEDURE |
common /ocean_exports/ sst, sice, ksst, kice |
|
./pkg/fizhi/fizhi_ocean_coms.h |
8 |
NO PROCEDURE |
_RL sice(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nsx,Nsy) |
|
./pkg/fizhi/update_earth_exports.F |
132 |
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 |
75 |
UPDATE_EARTH_EXPORTS |
if(sice(i,j,bi,bj).gt.0.) then |
|
./pkg/fizhi/fizhi_init_fixed.F |
98 |
FIZHI_INIT_FIXED |
if(sice(i,j,bi,bj).ne.0.0)landtype(i,j,bi,bj) = 101 |
|
./pkg/fizhi/update_ocean_exports.F |
104 |
UPDATE_OCEAN_EXPORTS |
_EXCH_XY_R8(sice,myThid) |
|
./pkg/fizhi/update_ocean_exports.F |
112 |
GETSICE |
. nymdbc,nhmsbc,sice,mythid) |
|
./pkg/fizhi/update_ocean_exports.F |
161 |
GETSICE |
_RL sice(idim1:idim2,jdim1:jdim2,nSumx,nSumy) |
|
./pkg/fizhi/update_ocean_exports.F |
337 |
GETSICE |
sice(i,j,bi,bj) = sicebc1(i+bislot,j+bjslot)*fac1 |
|
./pkg/fizhi/update_ocean_exports.F |
341 |
GETSICE |
if (sice(i,j,bi,bj) .ge. 0.5) then |
|
./pkg/fizhi/update_ocean_exports.F |
342 |
GETSICE |
sice(i,j,bi,bj) = 1. |
|
./pkg/fizhi/update_ocean_exports.F |
344 |
GETSICE |
sice(i,j,bi,bj) = 0. |
|
./pkg/fizhi/update_ocean_exports.F |
352 |
GETSICE |
if (sice(i,j,bi,bj) .eq. 1.) then |
|
./pkg/fizhi/update_ocean_exports.F |
353 |
GETSICE |
sice(i,j,bi,bj) = 3. |
|
./pkg/fizhi/update_ocean_exports.F |
90 |
UPDATE_OCEAN_EXPORTS |
. sicetimes(1,bi,bj),sice,myThid) |
|
./pkg/fizhi/update_ocean_exports.F |
96 |
UPDATE_OCEAN_EXPORTS |
if(sice(i,j,bi,bj).eq.0.0 .and. sst(i,j,bi,bj).lt.sstmin) |
|
./pkg/fizhi/fizhi_wrapper.F |
142 |
FIZHI_WRAPPER |
. tgz,sst,sice,phis_var,landtype,fracland,emiss,albnirdr,albnirdf, |
|
./pkg/fizhi/do_fizhi.F |
192 |
DO_FIZHI |
sea_ice(i,j) = sice(i,j,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
52 |
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, |