Changeset 10366 for branches/UKMO/AMM15_v3_6_STABLE_package_collate_bgc_diagnostics/NEMOGCM/NEMO/TOP_SRC/FABM/trcwri_fabm.F90
- Timestamp:
- 2018-12-03T12:26:33+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_package_collate_bgc_diagnostics/NEMOGCM/NEMO/TOP_SRC/FABM/trcwri_fabm.F90
r10308 r10366 81 81 INTEGER, INTENT( in ) :: kt 82 82 INTEGER :: jn 83 84 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zw3d85 83 86 84 #if defined key_tracer_budget … … 107 105 CALL iom_put( model%diagnostic_variables(jn)%name, fabm_get_bulk_diagnostic_data(model,jn)) 108 106 END DO 109 zw3d(:,:,:) = visib(:,:,:)*tmask(:,:,:) + 1.e+20*(1.0-tmask(:,:,:))110 CALL iom_put( 'visib', zw3d )111 107 112 108 ! write 2D diagnostics in the file
Note: See TracChangeset
for help on using the changeset viewer.