| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_external_fields_load.F |
111 |
OBCS_EXTERNAL_FIELDS_LOAD |
aWght = FLOAT( Iftm-Ifprd*(iRec0 - 1) ) |
|
./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 |
318 |
OBCS_EXTERNAL_FIELDS_LOAD |
aWght = 0. _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 |
504 |
OBCS_EXTERNAL_FIELDS_LOAD |
& +aWght*OBEeta1(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 |
530 |
OBCS_EXTERNAL_FIELDS_LOAD |
& +aWght*OBWeta1(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 |
556 |
OBCS_EXTERNAL_FIELDS_LOAD |
& +aWght*OBNeta1(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 |
582 |
OBCS_EXTERNAL_FIELDS_LOAD |
& +aWght*OBSeta1(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 |
671 |
OBCS_EXTERNAL_FIELDS_INTERP_XZ |
& +aWght*fld1(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 |
721 |
OBCS_EXTERNAL_FIELDS_INTERP_YZ |
& +aWght*fld1(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 |
119 |
OFFLINE_FIELDS_LOAD |
aWght = FLOAT( Iftm-Ifprd*(intime0 - 1) ) |
|
./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 |
341 |
OFFLINE_FIELDS_LOAD |
& +aWght*uvel1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
343 |
OFFLINE_FIELDS_LOAD |
& +aWght*vvel1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
345 |
OFFLINE_FIELDS_LOAD |
& +aWght*wvel1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
347 |
OFFLINE_FIELDS_LOAD |
& +aWght*tave1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
349 |
OFFLINE_FIELDS_LOAD |
& +aWght*save1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
351 |
OFFLINE_FIELDS_LOAD |
& +aWght*conv1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
353 |
OFFLINE_FIELDS_LOAD |
& +aWght*conv1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
356 |
OFFLINE_FIELDS_LOAD |
& +aWght*gmkx1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
358 |
OFFLINE_FIELDS_LOAD |
& +aWght*gmky1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
360 |
OFFLINE_FIELDS_LOAD |
& +aWght*gmkz1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
364 |
OFFLINE_FIELDS_LOAD |
& +aWght*kdfs1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
368 |
OFFLINE_FIELDS_LOAD |
& +aWght*kght1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
376 |
OFFLINE_FIELDS_LOAD |
& +aWght*hflx1(i,j,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
380 |
OFFLINE_FIELDS_LOAD |
& +aWght*sflx1(i,j,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
385 |
OFFLINE_FIELDS_LOAD |
& +aWght*icem1(i,j,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
67 |
OFFLINE_FIELDS_LOAD |
_RL aWght,bWght,rdt |
|
./pkg/rbcs/rbcs_fields_load.F |
128 |
RBCS_FIELDS_LOAD |
aWght = FLOAT( Ifmod ) |
|
./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 |
137 |
RBCS_FIELDS_LOAD |
aWght = .5 _d 0 |
|
./pkg/rbcs/rbcs_fields_load.F |
242 |
RBCS_FIELDS_LOAD |
& +aWght*rbct1(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
244 |
RBCS_FIELDS_LOAD |
& +aWght*rbcs1(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
262 |
RBCS_FIELDS_LOAD |
& +aWght*rbcptr1(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 |
226 |
EXTERNAL_FIELDS_LOAD |
& + aWght*SST1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
234 |
EXTERNAL_FIELDS_LOAD |
& + aWght*SSS1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
242 |
EXTERNAL_FIELDS_LOAD |
& + aWght*taux1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
250 |
EXTERNAL_FIELDS_LOAD |
& + aWght*tauy1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
259 |
EXTERNAL_FIELDS_LOAD |
& + aWght*Qnet1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
267 |
EXTERNAL_FIELDS_LOAD |
& + aWght*EmPmR1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
275 |
EXTERNAL_FIELDS_LOAD |
& + aWght*saltFlux1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
284 |
EXTERNAL_FIELDS_LOAD |
& + aWght*Qsw1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
294 |
EXTERNAL_FIELDS_LOAD |
& + aWght*pLoad1(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 |
89 |
EXTERNAL_FIELDS_LOAD |
aWght = tmp1Wght / tmp2Wght |
|
./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 |
182 |
BULKF_FIELDS_LOAD |
aWght = tmp1Wght / tmp2Wght |
|
./pkg/bulk_force/bulkf_fields_load.F |
183 |
BULKF_FIELDS_LOAD |
bWght = 1. _d 0 - aWght |
|
./pkg/bulk_force/bulkf_fields_load.F |
353 |
BULKF_FIELDS_LOAD |
& +aWght*tair1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
358 |
BULKF_FIELDS_LOAD |
& +aWght*qair1(i,j,bi,bj) ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
360 |
BULKF_FIELDS_LOAD |
& +aWght*solar1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
362 |
BULKF_FIELDS_LOAD |
& +aWght*flwdwn1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
364 |
BULKF_FIELDS_LOAD |
& +aWght*cloud1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
366 |
BULKF_FIELDS_LOAD |
& +aWght*wspeed1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
368 |
BULKF_FIELDS_LOAD |
& +aWght*uwind1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
370 |
BULKF_FIELDS_LOAD |
& +aWght*vwind1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
372 |
BULKF_FIELDS_LOAD |
& +aWght*rain1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
374 |
BULKF_FIELDS_LOAD |
& +aWght*runoff1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
377 |
BULKF_FIELDS_LOAD |
& +aWght*snow1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
380 |
BULKF_FIELDS_LOAD |
& +aWght*qnetch1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
382 |
BULKF_FIELDS_LOAD |
& +aWght*empch1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
390 |
BULKF_FIELDS_LOAD |
& + aWght*thAir1(i,j,bi,bj) |
|
./pkg/cfc/cfc11_forcing.F |
51 |
CFC11_FORCING |
_RL dtinc, aWght, bWght |
|
./pkg/cfc/cfc11_forcing.F |
74 |
CFC11_FORCING |
aWght=0.5d0+dtinc |
|
./pkg/cfc/cfc11_forcing.F |
75 |
CFC11_FORCING |
bWght=1.d0-aWght |
|
./pkg/cfc/cfc11_forcing.F |
79 |
CFC11_FORCING |
& + ACFC11(thisYear,1)*aWght |
|
./pkg/cfc/cfc11_forcing.F |
81 |
CFC11_FORCING |
& + ACFC11(thisYear,2)*aWght |
|
./pkg/cfc/cfc12_forcing.F |
52 |
CFC12_FORCING |
_RL dtinc, aWght, bWght |
|
./pkg/cfc/cfc12_forcing.F |
74 |
CFC12_FORCING |
aWght=0.5d0+dtinc |
|
./pkg/cfc/cfc12_forcing.F |
75 |
CFC12_FORCING |
bWght=1.d0-aWght |
|
./pkg/cfc/cfc12_forcing.F |
79 |
CFC12_FORCING |
& + ACFC12(thisYear,1)*aWght |
|
./pkg/cfc/cfc12_forcing.F |
81 |
CFC12_FORCING |
& + ACFC12(thisYear,2)*aWght |
|
./pkg/cfc/cfc_fields_load.F |
144 |
CFC_FIELDS_LOAD |
& +aWght*wind1(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
164 |
CFC_FIELDS_LOAD |
& +aWght*atmosp1(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
193 |
CFC_FIELDS_LOAD |
& +aWght*ice1(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
36 |
CFC_FIELDS_LOAD |
_RL aWght,bWght,rdt |
|
./pkg/cfc/cfc_fields_load.F |
67 |
CFC_FIELDS_LOAD |
aWght = FLOAT( Iftm-Ifprd*(intime0 - 1) ) |
|
./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 |
211 |
CHEAPAML_FIELDS_LOAD |
aWght=dfloat( Iftm-Ifprd*intime0 )/dfloat( Ifprd ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
212 |
CHEAPAML_FIELDS_LOAD |
bWght=1.-aWght |
|
./pkg/cheapaml/cheapaml_fields_load.F |
276 |
CHEAPAML_FIELDS_LOAD |
& +aWght*trair1(i,j,bi,bj) !+273.15 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
278 |
CHEAPAML_FIELDS_LOAD |
& +aWght*qrair1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
280 |
CHEAPAML_FIELDS_LOAD |
& +aWght*uwind1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
282 |
CHEAPAML_FIELDS_LOAD |
& +aWght*vwind1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
284 |
CHEAPAML_FIELDS_LOAD |
& +aWght*solar1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
79 |
CHEAPAML_FIELDS_LOAD |
_RL aWght,bWght,rdt |
|
./pkg/dic/dic_atmos.F |
103 |
DIC_ATMOS |
aWght = FLOAT(myIter-dic_int3) |
|
./pkg/dic/dic_atmos.F |
105 |
DIC_ATMOS |
aWght = 0.5 _d 0 + aWght/bWght - FLOAT(ntim-1) |
|
./pkg/dic/dic_atmos.F |
106 |
DIC_ATMOS |
IF (aWght.GT.1. _d 0) THEN |
|
./pkg/dic/dic_atmos.F |
108 |
DIC_ATMOS |
aWght=aWght-1. _d 0 |
|
./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 |
138 |
DIC_FIELDS_LOAD |
& + aWght*dicwind1(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
151 |
DIC_FIELDS_LOAD |
& + aWght*atmosp1(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
160 |
DIC_FIELDS_LOAD |
& + aWght*silica1(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
168 |
DIC_FIELDS_LOAD |
& + aWght*ice1(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
178 |
DIC_FIELDS_LOAD |
& + aWght*par1(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
194 |
DIC_FIELDS_LOAD |
& + aWght*feinput1(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
43 |
DIC_FIELDS_LOAD |
_RL aWght,bWght,rdt |
|
./pkg/dic/dic_fields_load.F |
65 |
DIC_FIELDS_LOAD |
aWght = FLOAT( Iftm-Ifprd*(intime0 - 1) ) |
|
./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 |
112 |
DIC_SURFFORCING_INIT |
& + aWght*silica1(i,j,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
40 |
DIC_SURFFORCING_INIT |
_RL aWght,bWght,rdt |
|
./pkg/dic/dic_surfforcing_init.F |
78 |
DIC_SURFFORCING_INIT |
aWght = FLOAT( Iftm-Ifprd*(intime0 - 1) ) |
|
./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 |