| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_external_fields_load.F |
103 |
OBCS_EXTERNAL_FIELDS_LOAD |
aWght = FLOAT( Iftm-Ifprd*(iRec0 - 1) ) |
|
./pkg/obcs/obcs_external_fields_load.F |
105 |
OBCS_EXTERNAL_FIELDS_LOAD |
aWght = aWght / bWght |
|
./pkg/obcs/obcs_external_fields_load.F |
106 |
OBCS_EXTERNAL_FIELDS_LOAD |
bWght = 1. _d 0 - aWght |
|
./pkg/obcs/obcs_external_fields_load.F |
310 |
OBCS_EXTERNAL_FIELDS_LOAD |
aWght = 0. _d 0 |
|
./pkg/obcs/obcs_external_fields_load.F |
479 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBEu, OBEu0, OBEu1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
481 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBEv, OBEv0, OBEv1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
483 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBEt, OBEt0, OBEt1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
485 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBEs, OBEs0, OBEs1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
488 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBEw, OBEw0, OBEw1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
496 |
OBCS_EXTERNAL_FIELDS_LOAD |
& +aWght*OBEeta1(j,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
505 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBWu, OBWu0, OBWu1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
507 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBWv, OBWv0, OBWv1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
509 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBWt, OBWt0, OBWt1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
511 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBWs, OBWs0, OBWs1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
514 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBWw, OBWw0, OBWw1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
522 |
OBCS_EXTERNAL_FIELDS_LOAD |
& +aWght*OBWeta1(j,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
531 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBNu, OBNu0, OBNu1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
533 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBNv, OBNv0, OBNv1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
535 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBNt, OBNt0, OBNt1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
537 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBNs, OBNs0, OBNs1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
540 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBNw, OBNw0, OBNw1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
548 |
OBCS_EXTERNAL_FIELDS_LOAD |
& +aWght*OBNeta1(i,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
557 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBSu, OBSu0, OBSu1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
559 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBSv, OBSv0, OBSv1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
561 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBSt, OBSt0, OBSt1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
563 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBSs, OBSs0, OBSs1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
566 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBSw, OBSw0, OBSw1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
574 |
OBCS_EXTERNAL_FIELDS_LOAD |
& +aWght*OBSeta1(i,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
590 |
OBCS_EXTERNAL_FIELDS_LOAD |
I OBEptr1(1-Oly,1,1,1,iTr), aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
597 |
OBCS_EXTERNAL_FIELDS_LOAD |
I OBWptr1(1-Oly,1,1,1,iTr), aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
604 |
OBCS_EXTERNAL_FIELDS_LOAD |
I OBNptr1(1-Olx,1,1,1,iTr), aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
611 |
OBCS_EXTERNAL_FIELDS_LOAD |
I OBSptr1(1-Olx,1,1,1,iTr), aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
627 |
OBCS_EXTERNAL_FIELDS_INTERP_XZ |
I fld0, fld1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
647 |
OBCS_EXTERNAL_FIELDS_INTERP_XZ |
_RL aWght,bWght |
|
./pkg/obcs/obcs_external_fields_load.F |
662 |
OBCS_EXTERNAL_FIELDS_INTERP_XZ |
& +aWght*fld1(i,k,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
675 |
OBCS_EXTERNAL_FIELDS_INTERP_YZ |
I fld0, fld1, aWght, bWght, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
695 |
OBCS_EXTERNAL_FIELDS_INTERP_YZ |
_RL aWght,bWght |
|
./pkg/obcs/obcs_external_fields_load.F |
710 |
OBCS_EXTERNAL_FIELDS_INTERP_YZ |
& +aWght*fld1(j,k,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
77 |
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 |
111 |
RBCS_FIELDS_LOAD |
aWght = FLOAT( Iftm-Ifprd*(intime0 - 1) ) |
|
./pkg/rbcs/rbcs_fields_load.F |
113 |
RBCS_FIELDS_LOAD |
aWght = aWght / bWght |
|
./pkg/rbcs/rbcs_fields_load.F |
114 |
RBCS_FIELDS_LOAD |
bWght = 1. _d 0 - aWght |
|
./pkg/rbcs/rbcs_fields_load.F |
121 |
RBCS_FIELDS_LOAD |
aWght = .5 _d 0 |
|
./pkg/rbcs/rbcs_fields_load.F |
191 |
RBCS_FIELDS_LOAD |
& +aWght*rbct1(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
193 |
RBCS_FIELDS_LOAD |
& +aWght*rbcs1(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
211 |
RBCS_FIELDS_LOAD |
& +aWght*rbcptr1(i,j,k,bi,bj,iTracer) |
|
./pkg/rbcs/rbcs_fields_load.F |
56 |
RBCS_FIELDS_LOAD |
_RL aWght,bWght,rdt |
|
./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 |
205 |
CHEAPAML_FIELDS_LOAD |
aWght=dfloat( Iftm-Ifprd*intime0 )/dfloat( Ifprd ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
206 |
CHEAPAML_FIELDS_LOAD |
bWght=1.-aWght |
|
./pkg/cheapaml/cheapaml_fields_load.F |
270 |
CHEAPAML_FIELDS_LOAD |
& +aWght*trair1(i,j,bi,bj) !+273.15 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
272 |
CHEAPAML_FIELDS_LOAD |
& +aWght*qrair1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
274 |
CHEAPAML_FIELDS_LOAD |
& +aWght*uwind1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
276 |
CHEAPAML_FIELDS_LOAD |
& +aWght*vwind1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
278 |
CHEAPAML_FIELDS_LOAD |
& +aWght*solar1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
73 |
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 |