Ignore:
Timestamp:
2018-02-16T18:29:04+01:00 (2 years ago)
Author:
dford
Message:

Add required diagnostics.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/CO6_KD490_amm7_oper_fabm_hem08/NEMOGCM/NEMO/OPA_SRC/DIA/dia25h.F90

    r8173 r9330  
    392392            zw3d(:,:,:) = fabm3d_25h(:,:,:,11)*tmask(:,:,:) + zmdi*(1.0-tmask(:,:,:)) 
    393393            CALL iom_put( "PhytoC25h", zw3d  )   ! total phytoplankton 
    394             zw3d(:,:,:) = fabm3d_25h(:,:,:,11)*tmask(:,:,:)*0.0832590939745 + zmdi*(1.0-tmask(:,:,:)) 
    395             CALL iom_put( "PhyCMol25h", zw3d  )   ! total phytoplankton in mmol 
    396             zw3d(:,:,:) = fabm3d_25h(:,:,:,12)*tmask(:,:,:) + zmdi*(1.0-tmask(:,:,:)) 
    397             CALL iom_put( "ZooC25h", zw3d  )   ! total zooplankton 
    398             zw3d(:,:,:) = fabm3d_25h(:,:,:,12)*tmask(:,:,:)*0.0832590939745 + zmdi*(1.0-tmask(:,:,:)) 
    399             CALL iom_put( "ZooCMol25h", zw3d  )   ! total zooplankton in mmol 
     394            !zw3d(:,:,:) = fabm3d_25h(:,:,:,11)*tmask(:,:,:)*0.0832590939745 + zmdi*(1.0-tmask(:,:,:)) 
     395            !CALL iom_put( "PhyCMol25h", zw3d  )   ! total phytoplankton in mmol 
     396            !zw3d(:,:,:) = fabm3d_25h(:,:,:,12)*tmask(:,:,:) + zmdi*(1.0-tmask(:,:,:)) 
     397            !CALL iom_put( "ZooC25h", zw3d  )   ! total zooplankton 
     398            !zw3d(:,:,:) = fabm3d_25h(:,:,:,12)*tmask(:,:,:)*0.0832590939745 + zmdi*(1.0-tmask(:,:,:)) 
     399            !CALL iom_put( "ZooCMol25h", zw3d  )   ! total zooplankton in mmol 
    400400#endif 
    401401 
Note: See TracChangeset for help on using the changeset viewer.