Changeset 8171
- Timestamp:
- 2017-06-14T12:40:22+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/CO6_KD490_amm7_oper_fabm_cf_25h_bgc/NEMOGCM/NEMO/OPA_SRC/DIA/dia25h.F90
r8167 r8171 384 384 zw3d(:,:,:) = fabm3d_25h(:,:,:,7)*tmask(:,:,:) + zmdi*(1.0-tmask(:,:,:)) 385 385 CALL iom_put( "pCO2_25h", zw3d ) ! pCO2 386 zw2d(:,:) = fabm3d_25h(:,:,1,7)*tmask(:,:,1)*0.101325 + zmdi*(1.0-tmask(:,:,1))387 CALL iom_put( "spCO2_25h", zw2d ) ! surface pCO2 in Pa388 386 zw3d(:,:,:) = fabm3d_25h(:,:,:,8)*tmask(:,:,:) + zmdi*(1.0-tmask(:,:,:)) 389 387 CALL iom_put( "CHL25h", zw3d ) ! total Chl
Note: See TracChangeset
for help on using the changeset viewer.