Changeset 6962 for trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zflx.F90
- Timestamp:
- 2016-09-29T16:46:06+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zflx.F90
r6945 r6962 228 228 ENDIF 229 229 IF( iom_use( "Dpco2" ) ) THEN 230 zw2d(:,:) = ( zpco2atm(:,:) - zh2co3(:,:) / ( chemc(:,: ) + rtrn ) ) * tmask(:,:,1)230 zw2d(:,:) = ( zpco2atm(:,:) - zh2co3(:,:) / ( chemc(:,:,1) + rtrn ) ) * tmask(:,:,1) 231 231 CALL iom_put( "Dpco2" , zw2d ) 232 232 ENDIF … … 244 244 trc2d(:,:,jp_pcs0_2d + 1) = zoflx(:,:) * 1000 * tmask(:,:,1) 245 245 trc2d(:,:,jp_pcs0_2d + 2) = zkgco2(:,:) * tmask(:,:,1) 246 trc2d(:,:,jp_pcs0_2d + 3) = ( zpco2atm(:,:) - zh2co3(:,:) / ( chemc(:,: ) + rtrn ) ) * tmask(:,:,1)246 trc2d(:,:,jp_pcs0_2d + 3) = ( zpco2atm(:,:) - zh2co3(:,:) / ( chemc(:,:,1) + rtrn ) ) * tmask(:,:,1) 247 247 ENDIF 248 248 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.