| File |
Line number |
Procedure |
Code |
|
./pkg/dic/dic_surfforcing_init.F |
108 |
DIC_SURFFORCING_INIT |
SILICA(i,j,bi,bj) = bWght*silica0(i,j,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
44 |
DIC_SURFFORCING_INIT |
_RL aWght,bWght,rdt |
|
./pkg/dic/dic_surfforcing_init.F |
75 |
DIC_SURFFORCING_INIT |
bWght=1.-aWght |
|
./pkg/dic/dic_fields_load.F |
144 |
DIC_FIELDS_LOAD |
WIND(i,j,bi,bj) = bWght*wspeed0(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
154 |
DIC_FIELDS_LOAD |
ATMOSP(i,j,bi,bj) = bWght*atmosp0(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
160 |
DIC_FIELDS_LOAD |
SILICA(i,j,bi,bj) = bWght*silica0(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
166 |
DIC_FIELDS_LOAD |
FIce(i,j,bi,bj) = bWght*ice0(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
176 |
DIC_FIELDS_LOAD |
InputFe(i,j,bi,bj) = bWght*feinput0(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
45 |
DIC_FIELDS_LOAD |
_RL aWght,bWght,rdt |
|
./pkg/dic/dic_fields_load.F |
67 |
DIC_FIELDS_LOAD |
bWght=1.-aWght |
|
./pkg/obcs/obcs_external_fields_load.F |
228 |
OBCS_EXTERNAL_FIELDS_LOAD |
OBEu(j,k,bi,bj) = bWght*OBEu0(j,k,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
230 |
OBCS_EXTERNAL_FIELDS_LOAD |
OBEv(j,k,bi,bj) = bWght*OBEv0(j,k,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
232 |
OBCS_EXTERNAL_FIELDS_LOAD |
OBEt(j,k,bi,bj) = bWght*OBEt0(j,k,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
234 |
OBCS_EXTERNAL_FIELDS_LOAD |
OBEs(j,k,bi,bj) = bWght*OBEs0(j,k,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
238 |
OBCS_EXTERNAL_FIELDS_LOAD |
OBWu(j,k,bi,bj) = bWght*OBWu0(j,k,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
240 |
OBCS_EXTERNAL_FIELDS_LOAD |
OBWv(j,k,bi,bj) = bWght*OBWv0(j,k,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
242 |
OBCS_EXTERNAL_FIELDS_LOAD |
OBWt(j,k,bi,bj) = bWght*OBWt0(j,k,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
244 |
OBCS_EXTERNAL_FIELDS_LOAD |
OBWs(j,k,bi,bj) = bWght*OBWs0(j,k,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
250 |
OBCS_EXTERNAL_FIELDS_LOAD |
OBNu(i,k,bi,bj) = bWght*OBNu0(i,k,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
252 |
OBCS_EXTERNAL_FIELDS_LOAD |
OBNv(i,k,bi,bj) = bWght*OBNv0(i,k,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
254 |
OBCS_EXTERNAL_FIELDS_LOAD |
OBNt(i,k,bi,bj) = bWght*OBNt0(i,k,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
256 |
OBCS_EXTERNAL_FIELDS_LOAD |
OBNs(i,k,bi,bj) = bWght*OBNs0(i,k,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
260 |
OBCS_EXTERNAL_FIELDS_LOAD |
OBSu(i,k,bi,bj) = bWght*OBSu0(i,k,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
262 |
OBCS_EXTERNAL_FIELDS_LOAD |
OBSv(i,k,bi,bj) = bWght*OBSv0(i,k,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
264 |
OBCS_EXTERNAL_FIELDS_LOAD |
OBSt(i,k,bi,bj) = bWght*OBSt0(i,k,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
266 |
OBCS_EXTERNAL_FIELDS_LOAD |
OBSs(i,k,bi,bj) = bWght*OBSs0(i,k,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
69 |
OBCS_EXTERNAL_FIELDS_LOAD |
_RL aWght,bWght,rdt |
|
./pkg/obcs/obcs_external_fields_load.F |
86 |
OBCS_EXTERNAL_FIELDS_LOAD |
bWght=1.-aWght |
|
./pkg/bulk_force/bulkf_fields_load.F |
127 |
BULKF_FIELDS_LOAD |
_RL aWght,bWght,rdt |
|
./pkg/bulk_force/bulkf_fields_load.F |
189 |
BULKF_FIELDS_LOAD |
bWght=1.-aWght |
|
./pkg/bulk_force/bulkf_fields_load.F |
374 |
BULKF_FIELDS_LOAD |
TAIR(i,j,bi,bj) = bWght*tair0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
378 |
BULKF_FIELDS_LOAD |
QAIR(i,j,bi,bj) =(bWght*qair0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
380 |
BULKF_FIELDS_LOAD |
RAIN(i,j,bi,bj) = bWght*rain0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
382 |
BULKF_FIELDS_LOAD |
SOLAR(i,j,bi,bj) = bWght*solar0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
384 |
BULKF_FIELDS_LOAD |
FLW(i,j,bi,bj) = bWght*flw0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
386 |
BULKF_FIELDS_LOAD |
UWIND(i,j,bi,bj) = bWght*uwind0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
388 |
BULKF_FIELDS_LOAD |
VWIND(i,j,bi,bj) = bWght*vwind0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
390 |
BULKF_FIELDS_LOAD |
RUNOFF(i,j,bi,bj) = bWght*runoff0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
392 |
BULKF_FIELDS_LOAD |
WSPEED(i,j,bi,bj) = bWght*wspeed0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
394 |
BULKF_FIELDS_LOAD |
QNETCH(i,j,bi,bj) = bWght*qnetch0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
396 |
BULKF_FIELDS_LOAD |
EMPCH(i,j,bi,bj) = bWght*empch0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
398 |
BULKF_FIELDS_LOAD |
CLOUD(i,j,bi,bj) = bWght*cloud0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
401 |
BULKF_FIELDS_LOAD |
SNOW(i,j,bi,bj) = bWght*snow0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
405 |
BULKF_FIELDS_LOAD |
fu(i,j,bi,bj) = bWght*taux0Local(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
407 |
BULKF_FIELDS_LOAD |
fv(i,j,bi,bj) = bWght*tauy0Local(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
411 |
BULKF_FIELDS_LOAD |
SST(i,j,bi,bj) = bWght*SST0Local(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
413 |
BULKF_FIELDS_LOAD |
SSS(i,j,bi,bj) = bWght*SSS0Local(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
116 |
EXTERNAL_FIELDS_LOAD |
bWght = 1. _d 0 - aWght |
|
./model/src/external_fields_load.F |
242 |
EXTERNAL_FIELDS_LOAD |
SST(i,j,bi,bj) = bWght*SST0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
244 |
EXTERNAL_FIELDS_LOAD |
SSS(i,j,bi,bj) = bWght*SSS0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
246 |
EXTERNAL_FIELDS_LOAD |
fu(i,j,bi,bj) = bWght*taux0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
248 |
EXTERNAL_FIELDS_LOAD |
fv(i,j,bi,bj) = bWght*tauy0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
250 |
EXTERNAL_FIELDS_LOAD |
Qnet(i,j,bi,bj) = bWght*Qnet0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
252 |
EXTERNAL_FIELDS_LOAD |
EmPmR(i,j,bi,bj) = bWght*EmPmR0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
254 |
EXTERNAL_FIELDS_LOAD |
saltFlux(i,j,bi,bj) = bWght*saltFlux0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
257 |
EXTERNAL_FIELDS_LOAD |
Qsw(i,j,bi,bj) = bWght*Qsw0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
261 |
EXTERNAL_FIELDS_LOAD |
pload(i,j,bi,bj) = bWght*pload0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
279 |
EXTERNAL_FIELDS_LOAD |
& intime0,intime1,aWght,bWght |
|
./model/src/external_fields_load.F |
284 |
EXTERNAL_FIELDS_LOAD |
& aWght,bWght |
|
./model/src/external_fields_load.F |
62 |
EXTERNAL_FIELDS_LOAD |
_RL aWght,bWght,rdt |
|
./verification/natl_box/code/external_fields_load.F |
100 |
EXTERNAL_FIELDS_LOAD |
bWght=1.-aWght |
|
./verification/natl_box/code/external_fields_load.F |
208 |
EXTERNAL_FIELDS_LOAD |
SST(i,j,bi,bj) = bWght*SST0(i,j,bi,bj) |
|
./verification/natl_box/code/external_fields_load.F |
210 |
EXTERNAL_FIELDS_LOAD |
SSS(i,j,bi,bj) = bWght*SSS0(i,j,bi,bj) |
|
./verification/natl_box/code/external_fields_load.F |
212 |
EXTERNAL_FIELDS_LOAD |
fu(i,j,bi,bj) = -(bWght*taux0(i,j,bi,bj) |
|
./verification/natl_box/code/external_fields_load.F |
214 |
EXTERNAL_FIELDS_LOAD |
fv(i,j,bi,bj) = -(bWght*tauy0(i,j,bi,bj) |
|
./verification/natl_box/code/external_fields_load.F |
216 |
EXTERNAL_FIELDS_LOAD |
Qnet(i,j,bi,bj) = bWght*Qnet0(i,j,bi,bj) |
|
./verification/natl_box/code/external_fields_load.F |
218 |
EXTERNAL_FIELDS_LOAD |
EmPmR(i,j,bi,bj) = bWght*EmPmR0(i,j,bi,bj) |
|
./verification/natl_box/code/external_fields_load.F |
221 |
EXTERNAL_FIELDS_LOAD |
Qsw(i,j,bi,bj) = bWght*Qsw0(i,j,bi,bj) |
|
./verification/natl_box/code/external_fields_load.F |
62 |
EXTERNAL_FIELDS_LOAD |
_RL aWght,bWght,rdt |
|
./pkg/cfc/cfc11_forcing.F |
49 |
CFC11_FORCING |
_RL dtinc, aWght, bWght |
|
./pkg/cfc/cfc11_forcing.F |
71 |
CFC11_FORCING |
bWght=1.d0-aWght |
|
./pkg/cfc/cfc11_forcing.F |
74 |
CFC11_FORCING |
ACFC11north = ACFC11(lastYear,1)*bWght |
|
./pkg/cfc/cfc11_forcing.F |
76 |
CFC11_FORCING |
ACFC11south = ACFC11(lastYear,2)*bWght |
|
./pkg/cfc/cfc12_forcing.F |
50 |
CFC12_FORCING |
_RL dtinc, aWght, bWght |
|
./pkg/cfc/cfc12_forcing.F |
71 |
CFC12_FORCING |
bWght=1.d0-aWght |
|
./pkg/cfc/cfc12_forcing.F |
74 |
CFC12_FORCING |
ACFC12north = ACFC12(lastYear,1)*bWght |
|
./pkg/cfc/cfc12_forcing.F |
76 |
CFC12_FORCING |
ACFC12south = ACFC12(lastYear,2)*bWght |
|
./pkg/cfc/cfc_fields_load.F |
134 |
CFC_FIELDS_LOAD |
WIND(i,j,bi,bj) = bWght*wspeed0(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
144 |
CFC_FIELDS_LOAD |
ATMOSP(i,j,bi,bj) = bWght*atmosp0(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
150 |
CFC_FIELDS_LOAD |
FIce(i,j,bi,bj) = bWght*ice0(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
45 |
CFC_FIELDS_LOAD |
_RL aWght,bWght,rdt |
|
./pkg/cfc/cfc_fields_load.F |
78 |
CFC_FIELDS_LOAD |
bWght=1.-aWght |
|
./pkg/offline/offline_fields_load.F |
101 |
OFFLINE_FIELDS_LOAD |
_RL aWght,bWght,rdt, KGM |
|
./pkg/offline/offline_fields_load.F |
151 |
OFFLINE_FIELDS_LOAD |
bWght=1.-aWght |
|
./pkg/offline/offline_fields_load.F |
345 |
OFFLINE_FIELDS_LOAD |
Uvel(i,j,k,bi,bj) = bWght*uvel0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
347 |
OFFLINE_FIELDS_LOAD |
Vvel(i,j,k,bi,bj) = bWght*vvel0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
349 |
OFFLINE_FIELDS_LOAD |
Wvel(i,j,k,bi,bj) = bWght*wvel0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
351 |
OFFLINE_FIELDS_LOAD |
theta(i,j,k,bi,bj) = bWght*tave0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
353 |
OFFLINE_FIELDS_LOAD |
salt(i,j,k,bi,bj) = bWght*save0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
355 |
OFFLINE_FIELDS_LOAD |
ConvectCount(i,j,k,bi,bj) = bWght*conv0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
357 |
OFFLINE_FIELDS_LOAD |
IVDConvCount(i,j,k,bi,bj) = bWght*conv0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
360 |
OFFLINE_FIELDS_LOAD |
Kwx(i,j,k,bi,bj) = bWght*gmkx0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
362 |
OFFLINE_FIELDS_LOAD |
Kwy(i,j,k,bi,bj) = bWght*gmky0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
364 |
OFFLINE_FIELDS_LOAD |
Kwz(i,j,k,bi,bj) = bWght*gmkz0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
367 |
OFFLINE_FIELDS_LOAD |
surfaceForcingT(i,j,bi,bj) = bWght*hflx0(i,j,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
371 |
OFFLINE_FIELDS_LOAD |
surfaceForcingS(i,j,bi,bj) = bWght*sflx0(i,j,bi,bj) |