File |
Line number |
Procedure |
Code |
./pkg/fizhi/AtoC.F |
33 |
ATOC |
integer idim1, idim2, jdim1, jdim2, im1, im2, jm1, jm2 |
./pkg/fizhi/AtoC.F |
34 |
ATOC |
_RS mask(idim1:idim2,jdim1:jdim2,numlevs,Nsx,Nsy) |
./pkg/fizhi/AtoC.F |
35 |
ATOC |
_RL fieldin1(idim1:idim2,jdim1:jdim2,numlevs,Nsx,Nsy) |
./pkg/fizhi/AtoC.F |
36 |
ATOC |
_RL fieldin2(idim1:idim2,jdim1:jdim2,numlevs,Nsx,Nsy) |
./pkg/fizhi/AtoC.F |
37 |
ATOC |
_RL fieldout1(idim1:idim2,jdim1:jdim2,numlevs,Nsx,Nsy) |
./pkg/fizhi/AtoC.F |
38 |
ATOC |
_RL fieldout2(idim1:idim2,jdim1:jdim2,numlevs,Nsx,Nsy) |
./pkg/fizhi/AtoC.F |
41 |
ATOC |
_RL tmpfld1(idim1:idim2,jdim1:jdim2) |
./pkg/fizhi/AtoC.F |
42 |
ATOC |
_RL tmpfld2(idim1:idim2,jdim1:jdim2) |
./pkg/fizhi/AtoC.F |
55 |
ATOC |
do i = idim1,idim2 |
./pkg/fizhi/AtoC.F |
5 |
ATOC |
subroutine ATOC(myThid,fieldin1,fieldin2,mask,idim1,idim2, |
./pkg/fizhi/CtoA.F |
33 |
CTOA |
integer idim1, idim2, jdim1, jdim2, im1, im2, jm1, jm2 |
./pkg/fizhi/CtoA.F |
35 |
CTOA |
_RS mask1(idim1:idim2,jdim1:jdim2,numlevs,Nsx,Nsy) |
./pkg/fizhi/CtoA.F |
36 |
CTOA |
_RS mask2(idim1:idim2,jdim1:jdim2,numlevs,Nsx,Nsy) |
./pkg/fizhi/CtoA.F |
37 |
CTOA |
_RL fieldin1(idim1:idim2,jdim1:jdim2,numlevs,Nsx,Nsy) |
./pkg/fizhi/CtoA.F |
38 |
CTOA |
_RL fieldin2(idim1:idim2,jdim1:jdim2,numlevs,Nsx,Nsy) |
./pkg/fizhi/CtoA.F |
39 |
CTOA |
_RL fieldout1(idim1:idim2,jdim1:jdim2,numlevs,Nsx,Nsy) |
./pkg/fizhi/CtoA.F |
40 |
CTOA |
_RL fieldout2(idim1:idim2,jdim1:jdim2,numlevs,Nsx,Nsy) |
./pkg/fizhi/CtoA.F |
45 |
CTOA |
_RL tmpfld1(idim1:idim2,jdim1:jdim2) |
./pkg/fizhi/CtoA.F |
46 |
CTOA |
_RL tmpfld2(idim1:idim2,jdim1:jdim2) |
./pkg/fizhi/CtoA.F |
57 |
CTOA |
do i = idim1,idim2 |
./pkg/fizhi/CtoA.F |
5 |
CTOA |
subroutine CTOA(myThid,fieldin1,fieldin2,mask1,mask2,idim1,idim2, |
./pkg/fizhi/do_fizhi.F |
34 |
DO_FIZHI |
INTEGER myIter,myid,im1,im2,jm1,jm2,idim1,idim2,jdim1,jdim2 |
./pkg/fizhi/do_fizhi.F |
38 |
DO_FIZHI |
_RL uphy(idim1:idim2,jdim1:jdim2,Nrphin,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
39 |
DO_FIZHI |
_RL vphy(idim1:idim2,jdim1:jdim2,Nrphin,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
40 |
DO_FIZHI |
_RL thphy(idim1:idim2,jdim1:jdim2,Nrphin,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
41 |
DO_FIZHI |
_RL sphy(idim1:idim2,jdim1:jdim2,Nrphin,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
42 |
DO_FIZHI |
_RL pephy(idim1:idim2,jdim1:jdim2,Nrphin+1,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
43 |
DO_FIZHI |
_RS lons(idim1:idim2,jdim1:jdim2,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
44 |
DO_FIZHI |
_RS lats(idim1:idim2,jdim1:jdim2,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
45 |
DO_FIZHI |
_RS Zsurf(idim1:idim2,jdim1:jdim2,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
52 |
DO_FIZHI |
_RL sst(idim1:idim2,jdim1:jdim2,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
53 |
DO_FIZHI |
_RL sice(idim1:idim2,jdim1:jdim2,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
5 |
DO_FIZHI |
& idim1,idim2,jdim1,jdim2,Nrphin,nSxIn,nSyIn,im1,im2,jm1,jm2,bi,bj, |
./pkg/fizhi/do_fizhi.F |
75 |
DO_FIZHI |
_RL cldtotlwin(idim1:idim2,jdim1:jdim2,Nrphin,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
76 |
DO_FIZHI |
_RL cldraslwin(idim1:idim2,jdim1:jdim2,Nrphin,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
77 |
DO_FIZHI |
_RL cldlsplwin(idim1:idim2,jdim1:jdim2,Nrphin,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
78 |
DO_FIZHI |
_RL lwlzin(idim1:idim2,jdim1:jdim2,Nrphin,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
79 |
DO_FIZHI |
_RL cldtotswin(idim1:idim2,jdim1:jdim2,Nrphin,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
80 |
DO_FIZHI |
_RL cldrasswin(idim1:idim2,jdim1:jdim2,Nrphin,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
81 |
DO_FIZHI |
_RL cldlspswin(idim1:idim2,jdim1:jdim2,Nrphin,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
82 |
DO_FIZHI |
_RL swlzin(idim1:idim2,jdim1:jdim2,Nrphin,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
83 |
DO_FIZHI |
_RL qliqaveswin(idim1:idim2,jdim1:jdim2,Nrphin,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
84 |
DO_FIZHI |
_RL qliqavelwin(idim1:idim2,jdim1:jdim2,Nrphin,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
85 |
DO_FIZHI |
_RL fccaveswin(idim1:idim2,jdim1:jdim2,Nrphin,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
86 |
DO_FIZHI |
_RL fccavelwin(idim1:idim2,jdim1:jdim2,Nrphin,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
87 |
DO_FIZHI |
_RL rainlspin(idim1:idim2,jdim1:jdim2,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
88 |
DO_FIZHI |
_RL rainconin(idim1:idim2,jdim1:jdim2,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
89 |
DO_FIZHI |
_RL snowfallin(idim1:idim2,jdim1:jdim2,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
92 |
DO_FIZHI |
_RL duphy(idim1:idim2,jdim1:jdim2,Nrphin,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
93 |
DO_FIZHI |
_RL dvphy(idim1:idim2,jdim1:jdim2,Nrphin,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
94 |
DO_FIZHI |
_RL dthphy(idim1:idim2,jdim1:jdim2,Nrphin,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
95 |
DO_FIZHI |
_RL dsphy(idim1:idim2,jdim1:jdim2,Nrphin,nSxIn,nSyIn) |
./pkg/fizhi/fizhi_fillnegs.F |
26 |
QCHECK |
integer idim1,idim2,jdim1,jdim2,Ldim,im1,im2,jm1,jm2 |
./pkg/fizhi/fizhi_fillnegs.F |
28 |
QCHECK |
_RL qz(idim1:idim2,jdim1:jdim2,ldim,Nsx,Nsy) |
./pkg/fizhi/fizhi_fillnegs.F |
29 |
QCHECK |
_RL dp(idim1:idim2,jdim1:jdim2,ldim,Nsx,Nsy) |
./pkg/fizhi/fizhi_fillnegs.F |
5 |
QCHECK |
SUBROUTINE QCHECK ( idim1,idim2,jdim1,jdim2,ldim,Nsx,Nsy,im1,im2, |
./pkg/fizhi/fizhi_init_fixed.F |
45 |
FIZHI_INIT_FIXED |
INTEGER im1, im2, jm1, jm2, idim2, jdim2 |
./pkg/fizhi/fizhi_init_fixed.F |
62 |
FIZHI_INIT_FIXED |
idim2 = sNx+OLx |
./pkg/fizhi/fizhi_init_vars.F |
61 |
FIZHI_INIT_VARS |
INTEGER im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2 |
./pkg/fizhi/fizhi_init_vars.F |
78 |
FIZHI_INIT_VARS |
idim2 = sNx |
./pkg/fizhi/fizhi_wrapper.F |
263 |
FIZHI_WRAPPER |
& idim1,idim2,jdim1,jdim2,Nrphys,nSx,nSy,im1,im2,jm1,jm2,bi,bj, |
./pkg/fizhi/fizhi_wrapper.F |
294 |
FIZHI_WRAPPER |
call PHYS2DYN(tempphy,pephy,idim1,idim2,jdim1,jdim2,Nrphys, |
./pkg/fizhi/fizhi_wrapper.F |
303 |
FIZHI_WRAPPER |
call PHYS2DYN(tempphy,pephy,idim1,idim2,jdim1,jdim2,Nrphys, |
./pkg/fizhi/fizhi_wrapper.F |
312 |
FIZHI_WRAPPER |
call PHYS2DYN(tempphy,pephy,idim1,idim2,jdim1,jdim2,Nrphys, |
./pkg/fizhi/fizhi_wrapper.F |
321 |
FIZHI_WRAPPER |
call PHYS2DYN(tempphy,pephy,idim1,idim2,jdim1,jdim2,Nrphys, |
./pkg/fizhi/fizhi_wrapper.F |
331 |
FIZHI_WRAPPER |
call ATOC(myThid,guphy,gvphy,maskC,idim1,idim2,jdim1,jdim2,Nr, |
./pkg/fizhi/fizhi_wrapper.F |
54 |
FIZHI_WRAPPER |
INTEGER im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2 |
./pkg/fizhi/fizhi_wrapper.F |
59 |
FIZHI_WRAPPER |
idim2 = sNx+OLx |
./pkg/fizhi/step_fizhi_corr.F |
193 |
STEP_FIZHI_CORR |
do i = idim1,idim2 |
./pkg/fizhi/step_fizhi_corr.F |
264 |
STEP_FIZHI_CORR |
call QCHECK (im1,im2,jm1,jm2,Nrphys,Nsx,Nsy,idim1,idim2, |
./pkg/fizhi/step_fizhi_corr.F |
57 |
STEP_FIZHI_CORR |
integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2 |
./pkg/fizhi/step_fizhi_corr.F |
69 |
STEP_FIZHI_CORR |
idim2 = sNx |
./pkg/fizhi/step_fizhi_fg.F |
28 |
STEP_FIZHI_FG |
integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2 |
./pkg/fizhi/step_fizhi_fg.F |
35 |
STEP_FIZHI_FG |
idim2 = sNx+OLx |
./pkg/fizhi/step_fizhi_fg.F |
47 |
STEP_FIZHI_FG |
call STEP_PHYSICS(uphy,vphy,thphy,sphy,dt,idim1,idim2, |
./pkg/fizhi/step_fizhi_fg.F |
87 |
STEP_FIZHI_FG |
call QCHECK (idim1,idim2,jdim1,jdim2,Nrphys,Nsx,Nsy,im1,im2, |
./pkg/fizhi/step_physics.F |
13 |
STEP_PHYSICS |
integer im1,im2,jm1,jm2,idim1,idim2,jdim1,jdim2 |
./pkg/fizhi/step_physics.F |
15 |
STEP_PHYSICS |
_RL uphy(idim1:idim2,jdim1:jdim2,Nrphys,Nsx,Nsy) |
./pkg/fizhi/step_physics.F |
16 |
STEP_PHYSICS |
_RL vphy(idim1:idim2,jdim1:jdim2,Nrphys,Nsx,Nsy) |
./pkg/fizhi/step_physics.F |
17 |
STEP_PHYSICS |
_RL thphy(idim1:idim2,jdim1:jdim2,Nrphys,Nsx,Nsy) |
./pkg/fizhi/step_physics.F |
18 |
STEP_PHYSICS |
_RL sphy(idim1:idim2,jdim1:jdim2,Nrphys,Nsx,Nsy) |
./pkg/fizhi/step_physics.F |
19 |
STEP_PHYSICS |
_RL duphy(idim1:idim2,jdim1:jdim2,Nrphys,Nsx,Nsy) |
./pkg/fizhi/step_physics.F |
20 |
STEP_PHYSICS |
_RL dvphy(idim1:idim2,jdim1:jdim2,Nrphys,Nsx,Nsy) |
./pkg/fizhi/step_physics.F |
21 |
STEP_PHYSICS |
_RL dthphy(idim1:idim2,jdim1:jdim2,Nrphys,Nsx,Nsy) |
./pkg/fizhi/step_physics.F |
22 |
STEP_PHYSICS |
_RL dsphy(idim1:idim2,jdim1:jdim2,Nrphys,Nsx,Nsy) |
./pkg/fizhi/step_physics.F |
6 |
STEP_PHYSICS |
. idim1,idim2,jdim1,jdim2,Nrphys,Nsx,Nsy,im1,im2,jm1,jm2,bi,bj, |
./pkg/fizhi/update_earth_exports.F |
54 |
UPDATE_EARTH_EXPORTS |
INTEGER im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2 |
./pkg/fizhi/update_earth_exports.F |
62 |
UPDATE_EARTH_EXPORTS |
idim2 = sNx+OLx |
./pkg/fizhi/update_ocean_exports.F |
117 |
GETSICE |
subroutine GETSICE(iunit,clim,idim1,idim2,jdim1,jdim2,im1,im2, |
./pkg/fizhi/update_ocean_exports.F |
164 |
GETSICE |
integer iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSumx,nSumy |
./pkg/fizhi/update_ocean_exports.F |
170 |
GETSICE |
_RL sice(idim1:idim2,jdim1:jdim2,nSumx,nSumy) |
./pkg/fizhi/update_ocean_exports.F |
35 |
UPDATE_OCEAN_EXPORTS |
integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2 |
./pkg/fizhi/update_ocean_exports.F |
378 |
GETSST |
subroutine GETSST(iunit,clim,idim1,idim2,jdim1,jdim2,im1,im2, |
./pkg/fizhi/update_ocean_exports.F |
425 |
GETSST |
integer iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSumx,nSumy |
./pkg/fizhi/update_ocean_exports.F |
431 |
GETSST |
_RL sst(idim1:idim2,jdim1:jdim2,nSumx,nSumy) |
./pkg/fizhi/update_ocean_exports.F |
69 |
UPDATE_OCEAN_EXPORTS |
idim2 = sNx+OLx |
./pkg/fizhi/update_ocean_exports.F |
89 |
UPDATE_OCEAN_EXPORTS |
call GETSST(ksst,sstclim,idim1,idim2,jdim1,jdim2,im1,im2, |
./pkg/fizhi/update_ocean_exports.F |
94 |
UPDATE_OCEAN_EXPORTS |
call GETSICE(kice,siceclim,idim1,idim2,jdim1,jdim2,im1,im2, |
./pkg/gridalt/dyn2phys.F |
47 |
DYN2PHYS |
integer idim1, idim2, jdim1, jdim2, bi, bj |
./pkg/gridalt/dyn2phys.F |
78 |
DYN2PHYS |
do i = idim1,idim2 |
./pkg/gridalt/dyn2phys.F |
7 |
DYN2PHYS |
. idim1,idim2,jdim1,jdim2,bi,bj,windphy,pephy,Lbot,lmphy,nlperdyn, |
./pkg/gridalt/dyn2phys.F |
89 |
DYN2PHYS |
do i = idim1,idim2 |
./pkg/gridalt/gridalt_initialise.F |
31 |
GRIDALT_INITIALISE |
integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2 |
./pkg/gridalt/gridalt_initialise.F |
38 |
GRIDALT_INITIALISE |
idim2 = sNx |
./pkg/gridalt/phys2dyn.F |
43 |
PHYS2DYN |
integer idim1, idim2, jdim1, jdim2, bi, bj |
./pkg/gridalt/phys2dyn.F |
73 |
PHYS2DYN |
do i = idim1,idim2 |
./pkg/gridalt/phys2dyn.F |
7 |
PHYS2DYN |
. idim1,idim2,jdim1,jdim2,bi,bj,pedyn,Lbot,lmdyn,nlperdyn,qdyn) |
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
41 |
FIZHI_INIT_FIXED |
INTEGER im1, im2, jm1, jm2, idim2, jdim2 |
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
49 |
FIZHI_INIT_FIXED |
idim2 = sNx+OLx |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
117 |
GETSICE |
subroutine GETSICE(iunit,clim,idim1,idim2,jdim1,jdim2,im1,im2, |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
165 |
GETSICE |
integer iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSumx,nSumy |
./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 |
190 |
GETSST |
subroutine GETSST(iunit,clim,idim1,idim2,jdim1,jdim2,im1,im2, |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
238 |
GETSST |
integer iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSumx,nSumy |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
243 |
GETSST |
_RL sst(idim1:idim2,jdim1:jdim2,nSumx,nSumy) |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
35 |
UPDATE_OCEAN_EXPORTS |
integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2 |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
69 |
UPDATE_OCEAN_EXPORTS |
idim2 = sNx+OLx |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
89 |
UPDATE_OCEAN_EXPORTS |
call GETSST(ksst,sstclim,idim1,idim2,jdim1,jdim2,im1,im2, |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
94 |
UPDATE_OCEAN_EXPORTS |
call GETSICE(kice,siceclim,idim1,idim2,jdim1,jdim2,im1,im2, |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
34 |
DO_FIZHI |
INTEGER myIter,myid,im1,im2,jm1,jm2,idim1,idim2,jdim1,jdim2 |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
38 |
DO_FIZHI |
_RL uphy(idim1:idim2,jdim1:jdim2,Nrphin,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
39 |
DO_FIZHI |
_RL vphy(idim1:idim2,jdim1:jdim2,Nrphin,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
40 |
DO_FIZHI |
_RL thphy(idim1:idim2,jdim1:jdim2,Nrphin,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
41 |
DO_FIZHI |
_RL sphy(idim1:idim2,jdim1:jdim2,Nrphin,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
42 |
DO_FIZHI |
_RL pephy(idim1:idim2,jdim1:jdim2,Nrphin+1,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
43 |
DO_FIZHI |
_RS lons(idim1:idim2,jdim1:jdim2,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
44 |
DO_FIZHI |
_RS lats(idim1:idim2,jdim1:jdim2,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
45 |
DO_FIZHI |
_RS Zsurf(idim1:idim2,jdim1:jdim2,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
52 |
DO_FIZHI |
_RL sst(idim1:idim2,jdim1:jdim2,nSxin,nSyin) |
./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 |
5 |
DO_FIZHI |
& idim1,idim2,jdim1,jdim2,Nrphin,nSxin,nSyin,im1,im2,jm1,jm2,bi,bj, |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
75 |
DO_FIZHI |
_RL cldtotlwin(idim1:idim2,jdim1:jdim2,Nrphin,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
76 |
DO_FIZHI |
_RL cldraslwin(idim1:idim2,jdim1:jdim2,Nrphin,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
77 |
DO_FIZHI |
_RL cldlsplwin(idim1:idim2,jdim1:jdim2,Nrphin,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
78 |
DO_FIZHI |
_RL lwlzin(idim1:idim2,jdim1:jdim2,Nrphin,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
79 |
DO_FIZHI |
_RL cldtotswin(idim1:idim2,jdim1:jdim2,Nrphin,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
80 |
DO_FIZHI |
_RL cldrasswin(idim1:idim2,jdim1:jdim2,Nrphin,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
81 |
DO_FIZHI |
_RL cldlspswin(idim1:idim2,jdim1:jdim2,Nrphin,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
82 |
DO_FIZHI |
_RL swlzin(idim1:idim2,jdim1:jdim2,Nrphin,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
83 |
DO_FIZHI |
_RL qliqaveswin(idim1:idim2,jdim1:jdim2,Nrphin,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
84 |
DO_FIZHI |
_RL qliqavelwin(idim1:idim2,jdim1:jdim2,Nrphin,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
85 |
DO_FIZHI |
_RL fccaveswin(idim1:idim2,jdim1:jdim2,Nrphin,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
86 |
DO_FIZHI |
_RL fccavelwin(idim1:idim2,jdim1:jdim2,Nrphin,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
87 |
DO_FIZHI |
_RL rainlspin(idim1:idim2,jdim1:jdim2,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
88 |
DO_FIZHI |
_RL rainconin(idim1:idim2,jdim1:jdim2,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
89 |
DO_FIZHI |
_RL snowfallin(idim1:idim2,jdim1:jdim2,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
92 |
DO_FIZHI |
_RL duphy(idim1:idim2,jdim1:jdim2,Nrphin,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
93 |
DO_FIZHI |
_RL dvphy(idim1:idim2,jdim1:jdim2,Nrphin,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
94 |
DO_FIZHI |
_RL dthphy(idim1:idim2,jdim1:jdim2,Nrphin,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
95 |
DO_FIZHI |
_RL dsphy(idim1:idim2,jdim1:jdim2,Nrphin,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
41 |
FIZHI_INIT_FIXED |
INTEGER im1, im2, jm1, jm2, idim2, jdim2 |
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
49 |
FIZHI_INIT_FIXED |
idim2 = sNx+OLx |
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
49 |
FIZHI_INIT_VARS |
INTEGER im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2 |
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
58 |
FIZHI_INIT_VARS |
idim2 = sNx |
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
114 |
GETSICE |
integer iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSumx,nSumy |
./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 |
129 |
GETSST |
subroutine GETSST(iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2, |
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
174 |
GETSST |
integer iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSumx,nSumy |
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
177 |
GETSST |
_RL sst(idim1:idim2,jdim1:jdim2,nSumx,nSumy) |
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
25 |
UPDATE_OCEAN_EXPORTS |
integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2 |
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
31 |
UPDATE_OCEAN_EXPORTS |
idim2 = sNx+OLx |
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
49 |
UPDATE_OCEAN_EXPORTS |
call GETSST(ksst,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSx, |
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
51 |
UPDATE_OCEAN_EXPORTS |
call GETSICE(kice,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSx, |
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
69 |
GETSICE |
subroutine GETSICE(iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2, |