| File |
Line number |
Procedure |
Code |
|
./pkg/dic/dic_atmos.F |
50 |
DIC_ATMOS |
INTEGER ntim |
|
./pkg/dic/dic_atmos.F |
79 |
DIC_ATMOS |
ntim=int((myIter-dic_int3)/dic_int4)+1 |
|
./pkg/dic/dic_atmos.F |
82 |
DIC_ATMOS |
aWght = 0.5 _d 0 + aWght/bWght - FLOAT(ntim-1) |
|
./pkg/dic/dic_atmos.F |
84 |
DIC_ATMOS |
ntim=ntim+1 |
|
./pkg/dic/dic_atmos.F |
88 |
DIC_ATMOS |
atm_pCO2 = co2atmos(ntim)*bWght + co2atmos(ntim+1)*aWght |
|
./pkg/dic/dic_atmos.F |
89 |
DIC_ATMOS |
WRITE(ioUnit,*) 'weights',ntim, aWght, bWght, atm_pCO2 |
|
./pkg/dic/dic_ini_atmos.F |
50 |
DIC_INI_ATMOS |
INTEGER ntim |
|
./pkg/dic/dic_ini_atmos.F |
84 |
DIC_INI_ATMOS |
ntim=int((myIter-dic_int3)/dic_int4)+1 |
|
./pkg/dic/dic_ini_atmos.F |
87 |
DIC_INI_ATMOS |
aWght = 0.5 _d 0 + aWght/bWght - FLOAT(ntim-1) |
|
./pkg/dic/dic_ini_atmos.F |
89 |
DIC_INI_ATMOS |
ntim=ntim+1 |
|
./pkg/dic/dic_ini_atmos.F |
93 |
DIC_INI_ATMOS |
atm_pCO2 = co2atmos(ntim)*bWght + co2atmos(ntim+1)*aWght |
|
./pkg/dic/dic_ini_atmos.F |
94 |
DIC_INI_ATMOS |
WRITE(ioUnit,*) 'weights',ntim, aWght, bWght, atm_pCO2 |