| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_external_fields_load.F |
112 |
OBCS_EXTERNAL_FIELDS_LOAD |
bWght = FLOAT( Ifprd ) |
|
./pkg/obcs/obcs_external_fields_load.F |
113 |
OBCS_EXTERNAL_FIELDS_LOAD |
aWght = aWght / bWght |
|
./pkg/obcs/obcs_external_fields_load.F |
114 |
OBCS_EXTERNAL_FIELDS_LOAD |
bWght = 1. _d 0 - aWght |
|
./pkg/obcs/obcs_external_fields_load.F |
319 |
OBCS_EXTERNAL_FIELDS_LOAD |
bWght = 1. _d 0 |
|
./pkg/obcs/obcs_external_fields_load.F |
487 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBEu, OBEu0, OBEu1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
489 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBEv, OBEv0, OBEv1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
491 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBEt, OBEt0, OBEt1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
493 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBEs, OBEs0, OBEs1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
496 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBEw, OBEw0, OBEw1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
503 |
OBCS_EXTERNAL_FIELDS_LOAD |
OBEeta(j,bi,bj) = bWght*OBEeta0(j,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
513 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBWu, OBWu0, OBWu1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
515 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBWv, OBWv0, OBWv1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
517 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBWt, OBWt0, OBWt1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
519 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBWs, OBWs0, OBWs1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
522 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBWw, OBWw0, OBWw1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
529 |
OBCS_EXTERNAL_FIELDS_LOAD |
OBWeta(j,bi,bj) = bWght*OBWeta0(j,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
539 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBNu, OBNu0, OBNu1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
541 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBNv, OBNv0, OBNv1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
543 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBNt, OBNt0, OBNt1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
545 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBNs, OBNs0, OBNs1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
548 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBNw, OBNw0, OBNw1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
555 |
OBCS_EXTERNAL_FIELDS_LOAD |
OBNeta(i,bi,bj) = bWght*OBNeta0(i,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
565 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBSu, OBSu0, OBSu1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
567 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBSv, OBSv0, OBSv1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
569 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBSt, OBSt0, OBSt1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
571 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBSs, OBSs0, OBSs1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
574 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBSw, OBSw0, OBSw1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
581 |
OBCS_EXTERNAL_FIELDS_LOAD |
OBSeta(i,bi,bj) = bWght*OBSeta0(i,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
598 |
OBCS_EXTERNAL_FIELDS_LOAD |
I OBEptr1(1-Oly,1,1,1,iTr), aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
605 |
OBCS_EXTERNAL_FIELDS_LOAD |
I OBWptr1(1-Oly,1,1,1,iTr), aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
612 |
OBCS_EXTERNAL_FIELDS_LOAD |
I OBNptr1(1-Olx,1,1,1,iTr), aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
619 |
OBCS_EXTERNAL_FIELDS_LOAD |
I OBSptr1(1-Olx,1,1,1,iTr), aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
636 |
OBCS_EXTERNAL_FIELDS_INTERP_XZ |
I fld0, fld1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
656 |
OBCS_EXTERNAL_FIELDS_INTERP_XZ |
_RL aWght,bWght |
|
./pkg/obcs/obcs_external_fields_load.F |
670 |
OBCS_EXTERNAL_FIELDS_INTERP_XZ |
fld(i,k,bi,bj) = bWght*fld0(i,k,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
686 |
OBCS_EXTERNAL_FIELDS_INTERP_YZ |
I fld0, fld1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
706 |
OBCS_EXTERNAL_FIELDS_INTERP_YZ |
_RL aWght,bWght |
|
./pkg/obcs/obcs_external_fields_load.F |
720 |
OBCS_EXTERNAL_FIELDS_INTERP_YZ |
fld(j,k,bi,bj) = bWght*fld0(j,k,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
85 |
OBCS_EXTERNAL_FIELDS_LOAD |
_RL aWght,bWght,rdt |
|
./pkg/offline/offline_fields_load.F |
120 |
OFFLINE_FIELDS_LOAD |
bWght = FLOAT( Ifprd ) |
|
./pkg/offline/offline_fields_load.F |
121 |
OFFLINE_FIELDS_LOAD |
aWght = aWght / bWght |
|
./pkg/offline/offline_fields_load.F |
122 |
OFFLINE_FIELDS_LOAD |
bWght = 1. _d 0 - aWght |
|
./pkg/offline/offline_fields_load.F |
340 |
OFFLINE_FIELDS_LOAD |
Uvel(i,j,k,bi,bj) = bWght*uvel0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
342 |
OFFLINE_FIELDS_LOAD |
Vvel(i,j,k,bi,bj) = bWght*vvel0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
344 |
OFFLINE_FIELDS_LOAD |
Wvel(i,j,k,bi,bj) = bWght*wvel0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
346 |
OFFLINE_FIELDS_LOAD |
theta(i,j,k,bi,bj) = bWght*tave0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
348 |
OFFLINE_FIELDS_LOAD |
salt(i,j,k,bi,bj) = bWght*save0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
350 |
OFFLINE_FIELDS_LOAD |
ConvectCount(i,j,k,bi,bj) = bWght*conv0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
352 |
OFFLINE_FIELDS_LOAD |
IVDConvCount(i,j,k,bi,bj) = bWght*conv0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
355 |
OFFLINE_FIELDS_LOAD |
Kwx(i,j,k,bi,bj) = bWght*gmkx0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
357 |
OFFLINE_FIELDS_LOAD |
Kwy(i,j,k,bi,bj) = bWght*gmky0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
359 |
OFFLINE_FIELDS_LOAD |
Kwz(i,j,k,bi,bj) = bWght*gmkz0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
363 |
OFFLINE_FIELDS_LOAD |
KPPdiffKzS(i,j,k,bi,bj) = bWght*kdfs0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
367 |
OFFLINE_FIELDS_LOAD |
KPPghat(i,j,k,bi,bj) = bWght*kght0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
375 |
OFFLINE_FIELDS_LOAD |
surfaceForcingT(i,j,bi,bj) = bWght*hflx0(i,j,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
379 |
OFFLINE_FIELDS_LOAD |
surfaceForcingS(i,j,bi,bj) = bWght*sflx0(i,j,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
384 |
OFFLINE_FIELDS_LOAD |
ICEM(i,j,bi,bj) = bWght*icem0(i,j,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
67 |
OFFLINE_FIELDS_LOAD |
_RL aWght,bWght,rdt |
|
./pkg/rbcs/rbcs_fields_load.F |
129 |
RBCS_FIELDS_LOAD |
bWght = FLOAT( Ifprd ) |
|
./pkg/rbcs/rbcs_fields_load.F |
130 |
RBCS_FIELDS_LOAD |
aWght = aWght / bWght |
|
./pkg/rbcs/rbcs_fields_load.F |
131 |
RBCS_FIELDS_LOAD |
bWght = 1. _d 0 - aWght |
|
./pkg/rbcs/rbcs_fields_load.F |
138 |
RBCS_FIELDS_LOAD |
bWght = .5 _d 0 |
|
./pkg/rbcs/rbcs_fields_load.F |
241 |
RBCS_FIELDS_LOAD |
RBCtemp(i,j,k,bi,bj) = bWght*rbct0(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
243 |
RBCS_FIELDS_LOAD |
RBCsalt(i,j,k,bi,bj) = bWght*rbcs0(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
261 |
RBCS_FIELDS_LOAD |
& bWght*rbcptr0(i,j,k,bi,bj,iTracer) |
|
./pkg/rbcs/rbcs_fields_load.F |
56 |
RBCS_FIELDS_LOAD |
_RL aWght,bWght,rhalfdt |
|
./model/src/external_fields_load.F |
225 |
EXTERNAL_FIELDS_LOAD |
SST(i,j,bi,bj) = bWght*SST0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
233 |
EXTERNAL_FIELDS_LOAD |
SSS(i,j,bi,bj) = bWght*SSS0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
241 |
EXTERNAL_FIELDS_LOAD |
fu(i,j,bi,bj) = bWght*taux0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
249 |
EXTERNAL_FIELDS_LOAD |
fv(i,j,bi,bj) = bWght*tauy0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
258 |
EXTERNAL_FIELDS_LOAD |
Qnet(i,j,bi,bj) = bWght*Qnet0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
266 |
EXTERNAL_FIELDS_LOAD |
EmPmR(i,j,bi,bj) = bWght*EmPmR0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
274 |
EXTERNAL_FIELDS_LOAD |
saltFlux(i,j,bi,bj) = bWght*saltFlux0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
283 |
EXTERNAL_FIELDS_LOAD |
Qsw(i,j,bi,bj) = bWght*Qsw0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
293 |
EXTERNAL_FIELDS_LOAD |
pLoad(i,j,bi,bj) = bWght*pLoad0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
312 |
EXTERNAL_FIELDS_LOAD |
& intime0,intime1,aWght,bWght |
|
./model/src/external_fields_load.F |
317 |
EXTERNAL_FIELDS_LOAD |
& aWght,bWght |
|
./model/src/external_fields_load.F |
61 |
EXTERNAL_FIELDS_LOAD |
_RL aWght,bWght,rdt |
|
./model/src/external_fields_load.F |
90 |
EXTERNAL_FIELDS_LOAD |
bWght = 1. _d 0 - aWght |
|
./pkg/bulk_force/bulkf_fields_load.F |
120 |
BULKF_FIELDS_LOAD |
_RL aWght,bWght,rdt |
|
./pkg/bulk_force/bulkf_fields_load.F |
183 |
BULKF_FIELDS_LOAD |
bWght = 1. _d 0 - aWght |
|
./pkg/bulk_force/bulkf_fields_load.F |
352 |
BULKF_FIELDS_LOAD |
TAIR(i,j,bi,bj) = bWght*tair0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
357 |
BULKF_FIELDS_LOAD |
QAIR(i,j,bi,bj) =(bWght*qair0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
359 |
BULKF_FIELDS_LOAD |
SOLAR(i,j,bi,bj) = bWght*solar0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
361 |
BULKF_FIELDS_LOAD |
FLWDWN(i,j,bi,bj) = bWght*flwdwn0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
363 |
BULKF_FIELDS_LOAD |
CLOUD(i,j,bi,bj) = bWght*cloud0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
365 |
BULKF_FIELDS_LOAD |
WSPEED(i,j,bi,bj) = bWght*wspeed0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
367 |
BULKF_FIELDS_LOAD |
UWIND(i,j,bi,bj) = bWght*uwind0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
369 |
BULKF_FIELDS_LOAD |
VWIND(i,j,bi,bj) = bWght*vwind0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
371 |
BULKF_FIELDS_LOAD |
RAIN(i,j,bi,bj) = bWght*rain0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
373 |
BULKF_FIELDS_LOAD |
RUNOFF(i,j,bi,bj) = bWght*runoff0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
376 |
BULKF_FIELDS_LOAD |
SNOW(i,j,bi,bj) = bWght*snow0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
379 |
BULKF_FIELDS_LOAD |
Qnetch(i,j,bi,bj) = bWght*qnetch0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
381 |
BULKF_FIELDS_LOAD |
EmPch(i,j,bi,bj) = bWght*empch0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
389 |
BULKF_FIELDS_LOAD |
thAir(i,j,bi,bj) = bWght*thAir0(i,j,bi,bj) |
|
./pkg/cfc/cfc11_forcing.F |
51 |
CFC11_FORCING |
_RL dtinc, aWght, bWght |
|
./pkg/cfc/cfc11_forcing.F |
75 |
CFC11_FORCING |
bWght=1.d0-aWght |
|
./pkg/cfc/cfc11_forcing.F |
78 |
CFC11_FORCING |
ACFC11north = ACFC11(lastYear,1)*bWght |
|
./pkg/cfc/cfc11_forcing.F |
80 |
CFC11_FORCING |
ACFC11south = ACFC11(lastYear,2)*bWght |
|
./pkg/cfc/cfc12_forcing.F |
52 |
CFC12_FORCING |
_RL dtinc, aWght, bWght |
|
./pkg/cfc/cfc12_forcing.F |
75 |
CFC12_FORCING |
bWght=1.d0-aWght |
|
./pkg/cfc/cfc12_forcing.F |
78 |
CFC12_FORCING |
ACFC12north = ACFC12(lastYear,1)*bWght |
|
./pkg/cfc/cfc12_forcing.F |
80 |
CFC12_FORCING |
ACFC12south = ACFC12(lastYear,2)*bWght |
|
./pkg/cfc/cfc_fields_load.F |
143 |
CFC_FIELDS_LOAD |
WIND = bWght*wind0(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
163 |
CFC_FIELDS_LOAD |
ATMOSP(i,j,bi,bj) = bWght*atmosp0(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
192 |
CFC_FIELDS_LOAD |
FIce(i,j,bi,bj) = bWght*ice0(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
36 |
CFC_FIELDS_LOAD |
_RL aWght,bWght,rdt |
|
./pkg/cfc/cfc_fields_load.F |
68 |
CFC_FIELDS_LOAD |
bWght = FLOAT( Ifprd ) |
|
./pkg/cfc/cfc_fields_load.F |
69 |
CFC_FIELDS_LOAD |
aWght = aWght / bWght |
|
./pkg/cfc/cfc_fields_load.F |
70 |
CFC_FIELDS_LOAD |
bWght = 1. _d 0 - aWght |
|
./pkg/cheapaml/cheapaml_fields_load.F |
212 |
CHEAPAML_FIELDS_LOAD |
bWght=1.-aWght |
|
./pkg/cheapaml/cheapaml_fields_load.F |
275 |
CHEAPAML_FIELDS_LOAD |
TR(i,j,bi,bj) = bWght*trair0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
277 |
CHEAPAML_FIELDS_LOAD |
qr(i,j,bi,bj) = bWght*qrair0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
279 |
CHEAPAML_FIELDS_LOAD |
uwind(i,j,bi,bj) = bWght*uwind0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
281 |
CHEAPAML_FIELDS_LOAD |
vwind(i,j,bi,bj) = bWght*vwind0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
283 |
CHEAPAML_FIELDS_LOAD |
solar(i,j,bi,bj) = bWght*solar0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
79 |
CHEAPAML_FIELDS_LOAD |
_RL aWght,bWght,rdt |
|
./pkg/dic/dic_atmos.F |
104 |
DIC_ATMOS |
bWght = FLOAT(dic_int4) |
|
./pkg/dic/dic_atmos.F |
105 |
DIC_ATMOS |
aWght = 0.5 _d 0 + aWght/bWght - FLOAT(ntim-1) |
|
./pkg/dic/dic_atmos.F |
110 |
DIC_ATMOS |
bWght = 1. _d 0 - aWght |
|
./pkg/dic/dic_atmos.F |
111 |
DIC_ATMOS |
tmp=co2atmos(ntim)*bWght+co2atmos(ntim+1)*aWght |
|
./pkg/dic/dic_atmos.F |
112 |
DIC_ATMOS |
WRITE(ioUnit,*) 'weights',ntim, aWght, bWght, tmp |
|
./pkg/dic/dic_atmos.F |
74 |
DIC_ATMOS |
_RL aWght, bWght |
|
./pkg/dic/dic_fields_load.F |
137 |
DIC_FIELDS_LOAD |
WIND(i,j,bi,bj) = bWght*dicwind0(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
150 |
DIC_FIELDS_LOAD |
AtmosP(i,j,bi,bj) = bWght*atmosp0(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
159 |
DIC_FIELDS_LOAD |
SILICA(i,j,bi,bj) = bWght*silica0(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
167 |
DIC_FIELDS_LOAD |
FIce(i,j,bi,bj) = bWght*ice0(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
177 |
DIC_FIELDS_LOAD |
PAR(i,j,bi,bj) = bWght*par0(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
193 |
DIC_FIELDS_LOAD |
InputFe(i,j,bi,bj) = bWght*feinput0(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
43 |
DIC_FIELDS_LOAD |
_RL aWght,bWght,rdt |
|
./pkg/dic/dic_fields_load.F |
66 |
DIC_FIELDS_LOAD |
bWght = FLOAT( Ifprd ) |
|
./pkg/dic/dic_fields_load.F |
67 |
DIC_FIELDS_LOAD |
aWght = aWght / bWght |
|
./pkg/dic/dic_fields_load.F |
68 |
DIC_FIELDS_LOAD |
bWght = 1. _d 0 - aWght |
|
./pkg/dic/dic_surfforcing_init.F |
111 |
DIC_SURFFORCING_INIT |
SILICA(i,j,bi,bj)= bWght*silica0(i,j,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
40 |
DIC_SURFFORCING_INIT |
_RL aWght,bWght,rdt |
|
./pkg/dic/dic_surfforcing_init.F |
79 |
DIC_SURFFORCING_INIT |
bWght = FLOAT( Ifprd ) |
|
./pkg/dic/dic_surfforcing_init.F |
80 |
DIC_SURFFORCING_INIT |
aWght = aWght / bWght |
|
./pkg/dic/dic_surfforcing_init.F |
81 |
DIC_SURFFORCING_INIT |
bWght = 1. _d 0 - aWght |