New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 8171 – NEMO

Changeset 8171


Ignore:
Timestamp:
2017-06-14T12:40:22+02:00 (7 years ago)
Author:
dford
Message:

Remove no longer required output.

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  
    384384            zw3d(:,:,:) = fabm3d_25h(:,:,:,7)*tmask(:,:,:) + zmdi*(1.0-tmask(:,:,:)) 
    385385            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 Pa 
    388386            zw3d(:,:,:) = fabm3d_25h(:,:,:,8)*tmask(:,:,:) + zmdi*(1.0-tmask(:,:,:)) 
    389387            CALL iom_put( "CHL25h", zw3d  )   ! total Chl 
Note: See TracChangeset for help on using the changeset viewer.