File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_lwrad.F |
346 |
IRRAD |
subroutine IRRAD (m,n,ndim,np,pl,ta,wa,oa,ts,co2, |
./pkg/fizhi/fizhi_lwrad.F |
568 |
IRRAD |
integer m,n,ndim,np,ict,icb |
./pkg/fizhi/fizhi_lwrad.F |
569 |
IRRAD |
_RL pl(m,ndim,np+1),ta(m,ndim,np),wa(m,ndim,np),oa(m,ndim,np), |
./pkg/fizhi/fizhi_lwrad.F |
570 |
IRRAD |
* ts(m,ndim) |
./pkg/fizhi/fizhi_lwrad.F |
571 |
IRRAD |
_RL co2,n2o(np),ch4(np),cfc11,cfc12,cfc22,emiss(m,ndim,10) |
./pkg/fizhi/fizhi_lwrad.F |
572 |
IRRAD |
_RL cwc(m,ndim,np,3),taucl(m,ndim,np,3),reff(m,ndim,np,3), |
./pkg/fizhi/fizhi_lwrad.F |
573 |
IRRAD |
* fcld(m,ndim,np) |
./pkg/fizhi/fizhi_lwrad.F |
574 |
IRRAD |
_RL taual(m,ndim,np,10),ssaal(m,ndim,np,10),asyal(m,ndim,np,10) |
./pkg/fizhi/fizhi_lwrad.F |
579 |
IRRAD |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1),dfdts(m,ndim,np+1), |
./pkg/fizhi/fizhi_lwrad.F |
580 |
IRRAD |
* st4(m,ndim) |
./pkg/fizhi/fizhi_mnc_init.F |
105 |
FIZHI_MNC_INIT |
ndim = 0 |
./pkg/fizhi/fizhi_mnc_init.F |
117 |
FIZHI_MNC_INIT |
ndim = ndim + 1 |
./pkg/fizhi/fizhi_mnc_init.F |
120 |
FIZHI_MNC_INIT |
dn(ndim)(1:1) = 'X' |
./pkg/fizhi/fizhi_mnc_init.F |
121 |
FIZHI_MNC_INIT |
dim(ndim) = sNx + 2*OLx |
./pkg/fizhi/fizhi_mnc_init.F |
122 |
FIZHI_MNC_INIT |
ib(ndim) = OLx + 1 |
./pkg/fizhi/fizhi_mnc_init.F |
123 |
FIZHI_MNC_INIT |
ie(ndim) = OLx + sNx |
./pkg/fizhi/fizhi_mnc_init.F |
127 |
FIZHI_MNC_INIT |
dn(ndim)(1:3) = 'Xp1' |
./pkg/fizhi/fizhi_mnc_init.F |
128 |
FIZHI_MNC_INIT |
dim(ndim) = sNx + 2*OLx |
./pkg/fizhi/fizhi_mnc_init.F |
129 |
FIZHI_MNC_INIT |
ib(ndim) = OLx + 1 |
./pkg/fizhi/fizhi_mnc_init.F |
130 |
FIZHI_MNC_INIT |
ie(ndim) = OLx + sNx + 1 |
./pkg/fizhi/fizhi_mnc_init.F |
135 |
FIZHI_MNC_INIT |
ndim = ndim + 1 |
./pkg/fizhi/fizhi_mnc_init.F |
138 |
FIZHI_MNC_INIT |
dn(ndim)(1:1) = 'Y' |
./pkg/fizhi/fizhi_mnc_init.F |
139 |
FIZHI_MNC_INIT |
dim(ndim) = sNy + 2*OLy |
./pkg/fizhi/fizhi_mnc_init.F |
140 |
FIZHI_MNC_INIT |
ib(ndim) = OLy + 1 |
./pkg/fizhi/fizhi_mnc_init.F |
141 |
FIZHI_MNC_INIT |
ie(ndim) = OLy + sNy |
./pkg/fizhi/fizhi_mnc_init.F |
145 |
FIZHI_MNC_INIT |
dn(ndim)(1:3) = 'Yp1' |
./pkg/fizhi/fizhi_mnc_init.F |
146 |
FIZHI_MNC_INIT |
dim(ndim) = sNy + 2*OLy |
./pkg/fizhi/fizhi_mnc_init.F |
147 |
FIZHI_MNC_INIT |
ib(ndim) = OLy + 1 |
./pkg/fizhi/fizhi_mnc_init.F |
148 |
FIZHI_MNC_INIT |
ie(ndim) = OLy + sNy + 1 |
./pkg/fizhi/fizhi_mnc_init.F |
155 |
FIZHI_MNC_INIT |
ndim = ndim + 1 |
./pkg/fizhi/fizhi_mnc_init.F |
156 |
FIZHI_MNC_INIT |
dn(ndim)(1:3) = 'Xwh' |
./pkg/fizhi/fizhi_mnc_init.F |
157 |
FIZHI_MNC_INIT |
dim(ndim) = sNx + 2*OLx |
./pkg/fizhi/fizhi_mnc_init.F |
158 |
FIZHI_MNC_INIT |
ib(ndim) = 1 |
./pkg/fizhi/fizhi_mnc_init.F |
159 |
FIZHI_MNC_INIT |
ie(ndim) = sNx + 2*OLx |
./pkg/fizhi/fizhi_mnc_init.F |
163 |
FIZHI_MNC_INIT |
ndim = ndim + 1 |
./pkg/fizhi/fizhi_mnc_init.F |
164 |
FIZHI_MNC_INIT |
dn(ndim)(1:3) = 'Ywh' |
./pkg/fizhi/fizhi_mnc_init.F |
165 |
FIZHI_MNC_INIT |
dim(ndim) = sNy + 2*OLy |
./pkg/fizhi/fizhi_mnc_init.F |
166 |
FIZHI_MNC_INIT |
ib(ndim) = 1 |
./pkg/fizhi/fizhi_mnc_init.F |
167 |
FIZHI_MNC_INIT |
ie(ndim) = sNy + 2*OLy |
./pkg/fizhi/fizhi_mnc_init.F |
174 |
FIZHI_MNC_INIT |
ndim = ndim + 1 |
./pkg/fizhi/fizhi_mnc_init.F |
175 |
FIZHI_MNC_INIT |
dn(ndim)(1:5) = 'Zphys' |
./pkg/fizhi/fizhi_mnc_init.F |
176 |
FIZHI_MNC_INIT |
dim(ndim) = NrPhys |
./pkg/fizhi/fizhi_mnc_init.F |
177 |
FIZHI_MNC_INIT |
ib(ndim) = 1 |
./pkg/fizhi/fizhi_mnc_init.F |
178 |
FIZHI_MNC_INIT |
ie(ndim) = NrPhys |
./pkg/fizhi/fizhi_mnc_init.F |
181 |
FIZHI_MNC_INIT |
ndim = ndim + 1 |
./pkg/fizhi/fizhi_mnc_init.F |
182 |
FIZHI_MNC_INIT |
dn(ndim)(1:7) = 'Zphysm1' |
./pkg/fizhi/fizhi_mnc_init.F |
183 |
FIZHI_MNC_INIT |
dim(ndim) = NrPhys - 1 |
./pkg/fizhi/fizhi_mnc_init.F |
184 |
FIZHI_MNC_INIT |
ib(ndim) = 1 |
./pkg/fizhi/fizhi_mnc_init.F |
185 |
FIZHI_MNC_INIT |
ie(ndim) = NrPhys - 1 |
./pkg/fizhi/fizhi_mnc_init.F |
190 |
FIZHI_MNC_INIT |
& .and. (ndim .ne. 0) ) THEN |
./pkg/fizhi/fizhi_mnc_init.F |
191 |
FIZHI_MNC_INIT |
ndim = ndim + 1 |
./pkg/fizhi/fizhi_mnc_init.F |
192 |
FIZHI_MNC_INIT |
dn(ndim)(1:1) = 'T' |
./pkg/fizhi/fizhi_mnc_init.F |
193 |
FIZHI_MNC_INIT |
dim(ndim) = -1 |
./pkg/fizhi/fizhi_mnc_init.F |
194 |
FIZHI_MNC_INIT |
ib(ndim) = 1 |
./pkg/fizhi/fizhi_mnc_init.F |
195 |
FIZHI_MNC_INIT |
ie(ndim) = 1 |
./pkg/fizhi/fizhi_mnc_init.F |
198 |
FIZHI_MNC_INIT |
IF (ndim .GT. 0) THEN |
./pkg/fizhi/fizhi_mnc_init.F |
200 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_GNAME(name, ndim, |
./pkg/fizhi/fizhi_mnc_init.F |
215 |
FIZHI_MNC_INIT |
ndim = 3 |
./pkg/fizhi/fizhi_mnc_init.F |
229 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_GNAME('fizhi_veg', ndim, dim, dn,ib,ie, myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
241 |
FIZHI_MNC_INIT |
ndim = 1 |
./pkg/fizhi/fizhi_mnc_init.F |
246 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_GNAME('fizhi_chip', ndim, dim, dn,ib,ie, myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
266 |
FIZHI_MNC_INIT |
ndim = 2 |
./pkg/fizhi/fizhi_mnc_init.F |
275 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_GNAME('fizhi_chiplev',ndim,dim,dn,ib,ie,myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
39 |
FIZHI_MNC_INIT |
integer ndim, ncomb, nvch |
./pkg/fizhi/fizhi_swrad.F |
1003 |
CLDSCALE |
integer m,n,ndim,np,ict,icb |
./pkg/fizhi/fizhi_swrad.F |
1004 |
CLDSCALE |
_RL cosz(m,ndim),fcld(m,ndim,np),taucld(m,ndim,np,2) |
./pkg/fizhi/fizhi_swrad.F |
1159 |
SOLIR |
subroutine SOLIR (m,n,ndim,np,wh,taucld,tauclb,tauclf,reff, |
./pkg/fizhi/fizhi_swrad.F |
1233 |
SOLIR |
integer m,n,ndim,np,ict,icb |
./pkg/fizhi/fizhi_swrad.F |
1234 |
SOLIR |
_RL taucld(m,ndim,np,2),reff(m,ndim,np,2),fcld(m,ndim,np) |
./pkg/fizhi/fizhi_swrad.F |
1236 |
SOLIR |
_RL rsirbm(m,ndim),rsirdf(m,ndim) |
./pkg/fizhi/fizhi_swrad.F |
1237 |
SOLIR |
_RL wh(m,n,np),taual(m,ndim,np),csm(m,n) |
./pkg/fizhi/fizhi_swrad.F |
1241 |
SOLIR |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1) |
./pkg/fizhi/fizhi_swrad.F |
1242 |
SOLIR |
_RL fdirir(m,ndim),fdifir(m,ndim) |
./pkg/fizhi/fizhi_swrad.F |
1569 |
SOLUV |
subroutine SOLUV (m,n,ndim,np,oh,dp,taucld,tauclb,tauclf,reff, |
./pkg/fizhi/fizhi_swrad.F |
1655 |
SOLUV |
integer m,n,ndim,np,ict,icb |
./pkg/fizhi/fizhi_swrad.F |
1656 |
SOLUV |
_RL taucld(m,ndim,np,2),reff(m,ndim,np,2),fcld(m,ndim,np) |
./pkg/fizhi/fizhi_swrad.F |
1658 |
SOLUV |
_RL oh(m,n,np),dp(m,n,np),taual(m,ndim,np) |
./pkg/fizhi/fizhi_swrad.F |
1659 |
SOLUV |
_RL rsuvbm(m,ndim),rsuvdf(m,ndim),csm(m,n) |
./pkg/fizhi/fizhi_swrad.F |
1663 |
SOLUV |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1) |
./pkg/fizhi/fizhi_swrad.F |
1664 |
SOLUV |
_RL fdirpar(m,ndim),fdifpar(m,ndim) |
./pkg/fizhi/fizhi_swrad.F |
1665 |
SOLUV |
_RL fdiruv(m,ndim),fdifuv(m,ndim) |
./pkg/fizhi/fizhi_swrad.F |
665 |
SORAD |
subroutine SORAD(m,n,ndim,np,pl,ta,wa,oa,co2, |
./pkg/fizhi/fizhi_swrad.F |
771 |
SORAD |
integer m,n,ndim,np,ict,icb |
./pkg/fizhi/fizhi_swrad.F |
772 |
SORAD |
_RL pl(m,ndim,np+1),ta(m,ndim,np),wa(m,ndim,np),oa(m,ndim,np) |
./pkg/fizhi/fizhi_swrad.F |
773 |
SORAD |
_RL taucld(m,ndim,np,2),reff(m,ndim,np,2) |
./pkg/fizhi/fizhi_swrad.F |
774 |
SORAD |
_RL fcld(m,ndim,np),taual(m,ndim,np) |
./pkg/fizhi/fizhi_swrad.F |
775 |
SORAD |
_RL rsirbm(m,ndim),rsirdf(m,ndim), |
./pkg/fizhi/fizhi_swrad.F |
776 |
SORAD |
* rsuvbm(m,ndim),rsuvdf(m,ndim),cosz(m,ndim),co2 |
./pkg/fizhi/fizhi_swrad.F |
780 |
SORAD |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1) |
./pkg/fizhi/fizhi_swrad.F |
781 |
SORAD |
_RL fdirir(m,ndim),fdifir(m,ndim) |
./pkg/fizhi/fizhi_swrad.F |
782 |
SORAD |
_RL fdirpar(m,ndim),fdifpar(m,ndim) |
./pkg/fizhi/fizhi_swrad.F |
783 |
SORAD |
_RL fdiruv(m,ndim),fdifuv(m,ndim) |
./pkg/fizhi/fizhi_swrad.F |
841 |
SORAD |
call CLDSCALE(m,n,ndim,np,cosz,fcld,taucld,ict,icb, |
./pkg/fizhi/fizhi_swrad.F |
859 |
SORAD |
call SOLIR (m,n,ndim,np,wh,taucld,tauclb,tauclf,reff,ict,icb |
./pkg/fizhi/fizhi_swrad.F |
864 |
SORAD |
call SOLUV (m,n,ndim,np,oh,dp,taucld,tauclb,tauclf,reff,ict,icb |
./pkg/fizhi/fizhi_swrad.F |
959 |
CLDSCALE |
subroutine CLDSCALE (m,n,ndim,np,cosz,fcld,taucld,ict,icb, |
./pkg/land/land_mnc_init.F |
122 |
LAND_MNC_INIT |
ndim = 0 |
./pkg/land/land_mnc_init.F |
134 |
LAND_MNC_INIT |
ndim = ndim + 1 |
./pkg/land/land_mnc_init.F |
137 |
LAND_MNC_INIT |
dn(ndim)(1:1) = 'X' |
./pkg/land/land_mnc_init.F |
138 |
LAND_MNC_INIT |
dim(ndim) = sNx + 2*OLx |
./pkg/land/land_mnc_init.F |
139 |
LAND_MNC_INIT |
ib(ndim) = OLx + 1 |
./pkg/land/land_mnc_init.F |
140 |
LAND_MNC_INIT |
ie(ndim) = OLx + sNx |
./pkg/land/land_mnc_init.F |
144 |
LAND_MNC_INIT |
dn(ndim)(1:3) = 'Xp1' |
./pkg/land/land_mnc_init.F |
145 |
LAND_MNC_INIT |
dim(ndim) = sNx + 2*OLx |
./pkg/land/land_mnc_init.F |
146 |
LAND_MNC_INIT |
ib(ndim) = OLx + 1 |
./pkg/land/land_mnc_init.F |
147 |
LAND_MNC_INIT |
ie(ndim) = OLx + sNx + 1 |
./pkg/land/land_mnc_init.F |
152 |
LAND_MNC_INIT |
ndim = ndim + 1 |
./pkg/land/land_mnc_init.F |
155 |
LAND_MNC_INIT |
dn(ndim)(1:1) = 'Y' |
./pkg/land/land_mnc_init.F |
156 |
LAND_MNC_INIT |
dim(ndim) = sNy + 2*OLy |
./pkg/land/land_mnc_init.F |
157 |
LAND_MNC_INIT |
ib(ndim) = OLy + 1 |
./pkg/land/land_mnc_init.F |
158 |
LAND_MNC_INIT |
ie(ndim) = OLy + sNy |
./pkg/land/land_mnc_init.F |
162 |
LAND_MNC_INIT |
dn(ndim)(1:3) = 'Yp1' |
./pkg/land/land_mnc_init.F |
163 |
LAND_MNC_INIT |
dim(ndim) = sNy + 2*OLy |
./pkg/land/land_mnc_init.F |
164 |
LAND_MNC_INIT |
ib(ndim) = OLy + 1 |
./pkg/land/land_mnc_init.F |
165 |
LAND_MNC_INIT |
ie(ndim) = OLy + sNy + 1 |
./pkg/land/land_mnc_init.F |
172 |
LAND_MNC_INIT |
ndim = ndim + 1 |
./pkg/land/land_mnc_init.F |
173 |
LAND_MNC_INIT |
dn(ndim)(1:3) = 'Xwh' |
./pkg/land/land_mnc_init.F |
174 |
LAND_MNC_INIT |
dim(ndim) = sNx + 2*OLx |
./pkg/land/land_mnc_init.F |
175 |
LAND_MNC_INIT |
ib(ndim) = 1 |
./pkg/land/land_mnc_init.F |
176 |
LAND_MNC_INIT |
ie(ndim) = sNx + 2*OLx |
./pkg/land/land_mnc_init.F |
180 |
LAND_MNC_INIT |
ndim = ndim + 1 |
./pkg/land/land_mnc_init.F |
181 |
LAND_MNC_INIT |
dn(ndim)(1:3) = 'Ywh' |
./pkg/land/land_mnc_init.F |
182 |
LAND_MNC_INIT |
dim(ndim) = sNy + 2*OLy |
./pkg/land/land_mnc_init.F |
183 |
LAND_MNC_INIT |
ib(ndim) = 1 |
./pkg/land/land_mnc_init.F |
184 |
LAND_MNC_INIT |
ie(ndim) = sNy + 2*OLy |
./pkg/land/land_mnc_init.F |
191 |
LAND_MNC_INIT |
ndim = ndim + 1 |
./pkg/land/land_mnc_init.F |
192 |
LAND_MNC_INIT |
dn(ndim)(1:5) = 'Zland' |
./pkg/land/land_mnc_init.F |
193 |
LAND_MNC_INIT |
dim(ndim) = Nland_lev |
./pkg/land/land_mnc_init.F |
194 |
LAND_MNC_INIT |
ib(ndim) = 1 |
./pkg/land/land_mnc_init.F |
195 |
LAND_MNC_INIT |
ie(ndim) = Nland_lev |
./pkg/land/land_mnc_init.F |
200 |
LAND_MNC_INIT |
& .and. (ndim .ne. 0) ) THEN |
./pkg/land/land_mnc_init.F |
201 |
LAND_MNC_INIT |
ndim = ndim + 1 |
./pkg/land/land_mnc_init.F |
202 |
LAND_MNC_INIT |
dn(ndim)(1:1) = 'T' |
./pkg/land/land_mnc_init.F |
203 |
LAND_MNC_INIT |
dim(ndim) = -1 |
./pkg/land/land_mnc_init.F |
204 |
LAND_MNC_INIT |
ib(ndim) = 1 |
./pkg/land/land_mnc_init.F |
205 |
LAND_MNC_INIT |
ie(ndim) = 1 |
./pkg/land/land_mnc_init.F |
208 |
LAND_MNC_INIT |
IF (ndim .GT. 0) THEN |
./pkg/land/land_mnc_init.F |
210 |
LAND_MNC_INIT |
CALL MNC_CW_ADD_GNAME(name, ndim, |
./pkg/land/land_mnc_init.F |
58 |
LAND_MNC_INIT |
integer ndim, ncomb, nvch |
./pkg/mnc/mnc_cw_init.F |
118 |
MNC_CW_INIT |
ndim = 0 |
./pkg/mnc/mnc_cw_init.F |
130 |
MNC_CW_INIT |
ndim = ndim + 1 |
./pkg/mnc/mnc_cw_init.F |
133 |
MNC_CW_INIT |
dn(ndim)(1:1) = 'X' |
./pkg/mnc/mnc_cw_init.F |
134 |
MNC_CW_INIT |
dim(ndim) = sNx + 2*OLx |
./pkg/mnc/mnc_cw_init.F |
135 |
MNC_CW_INIT |
ib(ndim) = OLx + 1 |
./pkg/mnc/mnc_cw_init.F |
136 |
MNC_CW_INIT |
ie(ndim) = OLx + sNx |
./pkg/mnc/mnc_cw_init.F |
140 |
MNC_CW_INIT |
dn(ndim)(1:3) = 'Xp1' |
./pkg/mnc/mnc_cw_init.F |
141 |
MNC_CW_INIT |
dim(ndim) = sNx + 2*OLx |
./pkg/mnc/mnc_cw_init.F |
142 |
MNC_CW_INIT |
ib(ndim) = OLx + 1 |
./pkg/mnc/mnc_cw_init.F |
143 |
MNC_CW_INIT |
ie(ndim) = OLx + sNx + 1 |
./pkg/mnc/mnc_cw_init.F |
148 |
MNC_CW_INIT |
ndim = ndim + 1 |
./pkg/mnc/mnc_cw_init.F |
151 |
MNC_CW_INIT |
dn(ndim)(1:1) = 'Y' |
./pkg/mnc/mnc_cw_init.F |
152 |
MNC_CW_INIT |
dim(ndim) = sNy + 2*OLy |
./pkg/mnc/mnc_cw_init.F |
153 |
MNC_CW_INIT |
ib(ndim) = OLy + 1 |
./pkg/mnc/mnc_cw_init.F |
154 |
MNC_CW_INIT |
ie(ndim) = OLy + sNy |
./pkg/mnc/mnc_cw_init.F |
158 |
MNC_CW_INIT |
dn(ndim)(1:3) = 'Yp1' |
./pkg/mnc/mnc_cw_init.F |
159 |
MNC_CW_INIT |
dim(ndim) = sNy + 2*OLy |
./pkg/mnc/mnc_cw_init.F |
160 |
MNC_CW_INIT |
ib(ndim) = OLy + 1 |
./pkg/mnc/mnc_cw_init.F |
161 |
MNC_CW_INIT |
ie(ndim) = OLy + sNy + 1 |
./pkg/mnc/mnc_cw_init.F |
168 |
MNC_CW_INIT |
ndim = ndim + 1 |
./pkg/mnc/mnc_cw_init.F |
169 |
MNC_CW_INIT |
dn(ndim)(1:3) = 'Xwh' |
./pkg/mnc/mnc_cw_init.F |
170 |
MNC_CW_INIT |
dim(ndim) = sNx + 2*OLx |
./pkg/mnc/mnc_cw_init.F |
171 |
MNC_CW_INIT |
ib(ndim) = 1 |
./pkg/mnc/mnc_cw_init.F |
172 |
MNC_CW_INIT |
ie(ndim) = sNx + 2*OLx |
./pkg/mnc/mnc_cw_init.F |
176 |
MNC_CW_INIT |
ndim = ndim + 1 |
./pkg/mnc/mnc_cw_init.F |
177 |
MNC_CW_INIT |
dn(ndim)(1:3) = 'Ywh' |
./pkg/mnc/mnc_cw_init.F |
178 |
MNC_CW_INIT |
dim(ndim) = sNy + 2*OLy |
./pkg/mnc/mnc_cw_init.F |
179 |
MNC_CW_INIT |
ib(ndim) = 1 |
./pkg/mnc/mnc_cw_init.F |
180 |
MNC_CW_INIT |
ie(ndim) = sNy + 2*OLy |
./pkg/mnc/mnc_cw_init.F |
187 |
MNC_CW_INIT |
ndim = ndim + 1 |
./pkg/mnc/mnc_cw_init.F |
188 |
MNC_CW_INIT |
dn(ndim)(1:1) = 'Z' |
./pkg/mnc/mnc_cw_init.F |
189 |
MNC_CW_INIT |
dim(ndim) = Nr |
./pkg/mnc/mnc_cw_init.F |
190 |
MNC_CW_INIT |
ib(ndim) = 1 |
./pkg/mnc/mnc_cw_init.F |
191 |
MNC_CW_INIT |
ie(ndim) = Nr |
./pkg/mnc/mnc_cw_init.F |
194 |
MNC_CW_INIT |
ndim = ndim + 1 |
./pkg/mnc/mnc_cw_init.F |
195 |
MNC_CW_INIT |
dn(ndim)(1:3) = 'Zp1' |
./pkg/mnc/mnc_cw_init.F |
196 |
MNC_CW_INIT |
dim(ndim) = Nr + 1 |
./pkg/mnc/mnc_cw_init.F |
197 |
MNC_CW_INIT |
ib(ndim) = 1 |
./pkg/mnc/mnc_cw_init.F |
198 |
MNC_CW_INIT |
ie(ndim) = Nr + 1 |
./pkg/mnc/mnc_cw_init.F |
201 |
MNC_CW_INIT |
ndim = ndim + 1 |
./pkg/mnc/mnc_cw_init.F |
202 |
MNC_CW_INIT |
dn(ndim)(1:2) = 'Zl' |
./pkg/mnc/mnc_cw_init.F |
203 |
MNC_CW_INIT |
dim(ndim) = Nr |
./pkg/mnc/mnc_cw_init.F |
204 |
MNC_CW_INIT |
ib(ndim) = 1 |
./pkg/mnc/mnc_cw_init.F |
205 |
MNC_CW_INIT |
ie(ndim) = Nr |
./pkg/mnc/mnc_cw_init.F |
208 |
MNC_CW_INIT |
ndim = ndim + 1 |
./pkg/mnc/mnc_cw_init.F |
209 |
MNC_CW_INIT |
dn(ndim)(1:2) = 'Zu' |
./pkg/mnc/mnc_cw_init.F |
210 |
MNC_CW_INIT |
dim(ndim) = Nr |
./pkg/mnc/mnc_cw_init.F |
211 |
MNC_CW_INIT |
ib(ndim) = 1 |
./pkg/mnc/mnc_cw_init.F |
212 |
MNC_CW_INIT |
ie(ndim) = Nr |
./pkg/mnc/mnc_cw_init.F |
215 |
MNC_CW_INIT |
ndim = ndim + 1 |
./pkg/mnc/mnc_cw_init.F |
216 |
MNC_CW_INIT |
dn(ndim)(1:3) = 'Zm1' |
./pkg/mnc/mnc_cw_init.F |
217 |
MNC_CW_INIT |
dim(ndim) = Nr - 1 |
./pkg/mnc/mnc_cw_init.F |
218 |
MNC_CW_INIT |
ib(ndim) = 1 |
./pkg/mnc/mnc_cw_init.F |
219 |
MNC_CW_INIT |
ie(ndim) = Nr - 1 |
./pkg/mnc/mnc_cw_init.F |
224 |
MNC_CW_INIT |
ndim = ndim + 1 |
./pkg/mnc/mnc_cw_init.F |
225 |
MNC_CW_INIT |
dn(ndim)(1:1) = 'T' |
./pkg/mnc/mnc_cw_init.F |
226 |
MNC_CW_INIT |
dim(ndim) = -1 |
./pkg/mnc/mnc_cw_init.F |
227 |
MNC_CW_INIT |
ib(ndim) = 1 |
./pkg/mnc/mnc_cw_init.F |
228 |
MNC_CW_INIT |
ie(ndim) = 1 |
./pkg/mnc/mnc_cw_init.F |
231 |
MNC_CW_INIT |
IF (ndim .GT. 0) THEN |
./pkg/mnc/mnc_cw_init.F |
235 |
MNC_CW_INIT |
& ncomb, ' : ', name(1:15), ndim, |
./pkg/mnc/mnc_cw_init.F |
242 |
MNC_CW_INIT |
CALL MNC_CW_ADD_GNAME(name, ndim, |
./pkg/mnc/mnc_cw_init.F |
54 |
MNC_CW_INIT |
integer ndim, ncomb, nvch |
./pkg/mnc/mnc_cwrapper.F |
30 |
MNC_CW_ADD_GNAME |
I ndim, |
./pkg/mnc/mnc_cwrapper.F |
45 |
MNC_CW_ADD_GNAME |
integer myThid, ndim |
./pkg/mnc/mnc_cwrapper.F |
74 |
MNC_CW_ADD_GNAME |
mnc_cw_ndim(indg) = ndim |
./pkg/mnc/mnc_cwrapper.F |
76 |
MNC_CW_ADD_GNAME |
DO i = 1,ndim |
./pkg/mnc/mnc_file.F |
658 |
MNC_FILE_TRY_READ |
integer i,j,k, fid, err, ndim,nvar,ngat,unlimid |
./pkg/mnc/mnc_file.F |
684 |
MNC_FILE_TRY_READ |
err = NF_INQ(fid, ndim, nvar, ngat, unlimid) |
./pkg/mnc/mnc_file.F |
690 |
MNC_FILE_TRY_READ |
DO id = 1,ndim |
./pkg/mnc/mnc_grid.F |
106 |
MNC_GRID_INIT_ALL |
i = ds_last + ndim |
./pkg/mnc/mnc_grid.F |
132 |
MNC_GRID_INIT_ALL |
IF (ndim .NE. (ig2-ig1+1)) THEN |
./pkg/mnc/mnc_grid.F |
14 |
MNC_GRID_INIT |
I ndim, |
./pkg/mnc/mnc_grid.F |
176 |
MNC_GRID_INIT_ALL |
DO i = 1,ndim |
./pkg/mnc/mnc_grid.F |
210 |
MNC_GRID_INIT_ALL |
mnc_f_info(indf,ng_ind+2) = ds_last + ndim |
./pkg/mnc/mnc_grid.F |
25 |
MNC_GRID_INIT |
integer myThid, ndim |
./pkg/mnc/mnc_grid.F |
27 |
MNC_GRID_INIT |
character*(*) dnames(ndim) |
./pkg/mnc/mnc_grid.F |
33 |
MNC_GRID_INIT |
CALL MNC_GRID_INIT_ALL(fname, gname, ndim, dnames, ind, myThid) |
./pkg/mnc/mnc_grid.F |
46 |
MNC_GRID_INIT_ALL |
I ndim, |
./pkg/mnc/mnc_grid.F |
66 |
MNC_GRID_INIT_ALL |
integer myThid, ndim, ind |
./pkg/mnc/mnc_grid.F |
68 |
MNC_GRID_INIT_ALL |
character*(*) dnames(ndim) |
./pkg/regrid/regrid_mnc_init.F |
32 |
REGRID_MNC_INIT |
INTEGER i, k, ndim |
./pkg/aim_v23/aim_mnc_init.F |
157 |
AIM_MNC_INIT |
ndim = 1 |
./pkg/aim_v23/aim_mnc_init.F |
158 |
AIM_MNC_INIT |
dn(ndim)(1:1) = 'X' |
./pkg/aim_v23/aim_mnc_init.F |
159 |
AIM_MNC_INIT |
dim(ndim) = sNx |
./pkg/aim_v23/aim_mnc_init.F |
160 |
AIM_MNC_INIT |
ib(ndim) = 1 |
./pkg/aim_v23/aim_mnc_init.F |
161 |
AIM_MNC_INIT |
ie(ndim) = sNx |
./pkg/aim_v23/aim_mnc_init.F |
162 |
AIM_MNC_INIT |
ndim = ndim + 1 |
./pkg/aim_v23/aim_mnc_init.F |
163 |
AIM_MNC_INIT |
dn(ndim)(1:1) = 'Y' |
./pkg/aim_v23/aim_mnc_init.F |
164 |
AIM_MNC_INIT |
dim(ndim) = sNy |
./pkg/aim_v23/aim_mnc_init.F |
165 |
AIM_MNC_INIT |
ib(ndim) = 1 |
./pkg/aim_v23/aim_mnc_init.F |
166 |
AIM_MNC_INIT |
ie(ndim) = sNy |
./pkg/aim_v23/aim_mnc_init.F |
167 |
AIM_MNC_INIT |
ndim = ndim + 1 |
./pkg/aim_v23/aim_mnc_init.F |
168 |
AIM_MNC_INIT |
dn(ndim)(1:1) = 'T' |
./pkg/aim_v23/aim_mnc_init.F |
169 |
AIM_MNC_INIT |
dim(ndim) = -1 |
./pkg/aim_v23/aim_mnc_init.F |
170 |
AIM_MNC_INIT |
ib(ndim) = 1 |
./pkg/aim_v23/aim_mnc_init.F |
171 |
AIM_MNC_INIT |
ie(ndim) = 1 |
./pkg/aim_v23/aim_mnc_init.F |
172 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_GNAME('AIM_xyt', ndim, dim,dn,ib,ie, myThid) |
./pkg/aim_v23/aim_mnc_init.F |
173 |
AIM_MNC_INIT |
ndim = 3 |
./pkg/aim_v23/aim_mnc_init.F |
174 |
AIM_MNC_INIT |
dn(ndim)(1:4) = 'Zaim' |
./pkg/aim_v23/aim_mnc_init.F |
175 |
AIM_MNC_INIT |
dim(ndim) = NLEV |
./pkg/aim_v23/aim_mnc_init.F |
176 |
AIM_MNC_INIT |
ib(ndim) = 1 |
./pkg/aim_v23/aim_mnc_init.F |
177 |
AIM_MNC_INIT |
ie(ndim) = NLEV |
./pkg/aim_v23/aim_mnc_init.F |
178 |
AIM_MNC_INIT |
ndim = ndim + 1 |
./pkg/aim_v23/aim_mnc_init.F |
179 |
AIM_MNC_INIT |
dn(ndim)(1:1) = 'T' |
./pkg/aim_v23/aim_mnc_init.F |
180 |
AIM_MNC_INIT |
dim(ndim) = -1 |
./pkg/aim_v23/aim_mnc_init.F |
181 |
AIM_MNC_INIT |
ib(ndim) = 1 |
./pkg/aim_v23/aim_mnc_init.F |
182 |
AIM_MNC_INIT |
ie(ndim) = 1 |
./pkg/aim_v23/aim_mnc_init.F |
183 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_GNAME('AIM_xyzt', ndim, dim,dn,ib,ie, myThid) |
./pkg/aim_v23/aim_mnc_init.F |
33 |
AIM_MNC_INIT |
INTEGER i,j, ndim |
./eesupp/src/global_vec_sum.F |
121 |
GLOBAL_VEC_SUM_R8 |
INTEGER ndim, nval, myThid |
./eesupp/src/global_vec_sum.F |
122 |
GLOBAL_VEC_SUM_R8 |
Real*8 sumPhi(ndim,nSx,nSy) |
./eesupp/src/global_vec_sum.F |
17 |
GLOBAL_VEC_SUM_R4 |
I ndim, nval, |
./eesupp/src/global_vec_sum.F |
181 |
GLOBAL_VEC_SUM_INT |
I ndim, nval, |
./eesupp/src/global_vec_sum.F |
203 |
GLOBAL_VEC_SUM_INT |
INTEGER ndim, nval, myThid |
./eesupp/src/global_vec_sum.F |
204 |
GLOBAL_VEC_SUM_INT |
INTEGER sumPhi(ndim,nSx,nSy) |
./eesupp/src/global_vec_sum.F |
39 |
GLOBAL_VEC_SUM_R4 |
INTEGER ndim, nval, myThid |
./eesupp/src/global_vec_sum.F |
40 |
GLOBAL_VEC_SUM_R4 |
Real*4 sumPhi(ndim,nSx,nSy) |
./eesupp/src/global_vec_sum.F |
99 |
GLOBAL_VEC_SUM_R8 |
I ndim, nval, |