Changeset 9939 for NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/TOP/C14
- Timestamp:
- 2018-07-13T09:28:50+02:00 (6 years ago)
- Location:
- NEMO/branches/2018/dev_r9838_ENHANCE04_RK3
- Files:
-
- 2 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/TOP/C14/trcatm_c14.F90
r9598 r9939 223 223 IF(kc14typ >= 1) THEN ! Transient C14 & CO2 224 224 ! 225 tyrc14_now = tyrc14_now + ( r dt / ( rday * nyear_len(1)) ) ! current time step in yr relative to tyrc14_beg225 tyrc14_now = tyrc14_now + ( rn_Dt / ( rday * nyear_len(1) ) ) ! current time step in yr relative to tyrc14_beg 226 226 ! 227 227 ! CO2 -------------------------------------------------------- -
NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/TOP/C14/trcsms_c14.F90
r9598 r9939 123 123 124 124 ! cumulation of air-to-sea flux at each time step 125 qint_c14(:,:) = qint_c14(:,:) + qtr_c14(:,:) * r dttrc125 qint_c14(:,:) = qint_c14(:,:) + qtr_c14(:,:) * rn_Dt_trc 126 126 ! 127 127 ! Add the surface flux to the trend of jp_c14 … … 148 148 IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~' 149 149 ! 150 CALL iom_rstput( kt, nitrst, numrtw, 'co2sbc', co2sbc ) 150 CALL iom_rstput( kt, nitrst, numrtw, 'co2sbc', co2sbc ) ! These five need & 151 151 CALL iom_rstput( kt, nitrst, numrtw, 'c14sbc', c14sbc ) ! & to be written & 152 152 CALL iom_rstput( kt, nitrst, numrtw, 'exch_co2', exch_co2 ) ! & for temporal &
Note: See TracChangeset
for help on using the changeset viewer.