| File |
Line number |
Procedure |
Code |
|
./pkg/dic/dic_atmos.F |
56 |
DIC_ATMOS |
INTEGER ntim |
|
./pkg/dic/dic_atmos.F |
85 |
DIC_ATMOS |
ntim=int((myIter-dic_int3)/dic_int4)+1 |
|
./pkg/dic/dic_atmos.F |
88 |
DIC_ATMOS |
aWght = 0.5 _d 0 + aWght/bWght - FLOAT(ntim-1) |
|
./pkg/dic/dic_atmos.F |
90 |
DIC_ATMOS |
ntim=ntim+1 |
|
./pkg/dic/dic_atmos.F |
94 |
DIC_ATMOS |
atm_pCO2 = co2atmos(ntim)*bWght + co2atmos(ntim+1)*aWght |
|
./pkg/dic/dic_atmos.F |
95 |
DIC_ATMOS |
WRITE(ioUnit,*) 'weights',ntim, aWght, bWght, atm_pCO2 |
|
./pkg/dic/dic_ini_atmos.F |
100 |
DIC_INI_ATMOS |
ntim=ntim+1 |
|
./pkg/dic/dic_ini_atmos.F |
104 |
DIC_INI_ATMOS |
atm_pCO2 = co2atmos(ntim)*bWght + co2atmos(ntim+1)*aWght |
|
./pkg/dic/dic_ini_atmos.F |
105 |
DIC_INI_ATMOS |
WRITE(ioUnit,*) 'weights',ntim, aWght, bWght, atm_pCO2 |
|
./pkg/dic/dic_ini_atmos.F |
56 |
DIC_INI_ATMOS |
INTEGER ntim |
|
./pkg/dic/dic_ini_atmos.F |
95 |
DIC_INI_ATMOS |
ntim=int((myIter-dic_int3)/dic_int4)+1 |
|
./pkg/dic/dic_ini_atmos.F |
98 |
DIC_INI_ATMOS |
aWght = 0.5 _d 0 + aWght/bWght - FLOAT(ntim-1) |