Ignore:
Timestamp:
2018-12-03T12:26:33+01:00 (23 months ago)
Author:
dford
Message:

Remove visibility, as now available through FABM, and switch from deprecated get_bulk to get_interior.

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  
    8181      INTEGER, INTENT( in )               :: kt 
    8282      INTEGER              :: jn 
    83        
    84       REAL(wp), DIMENSION(jpi,jpj,jpk)    :: zw3d 
    8583 
    8684#if defined key_tracer_budget 
     
    107105             CALL iom_put( model%diagnostic_variables(jn)%name, fabm_get_bulk_diagnostic_data(model,jn)) 
    108106      END DO 
    109       zw3d(:,:,:) = visib(:,:,:)*tmask(:,:,:) + 1.e+20*(1.0-tmask(:,:,:)) 
    110       CALL iom_put( 'visib', zw3d ) 
    111107 
    112108      ! write 2D diagnostics in the file 
Note: See TracChangeset for help on using the changeset viewer.