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/OPA_SRC/DIA/diatmb.F90

    r10308 r10366  
    1212   USE wrk_nemo        ! working arrays 
    1313#if defined key_fabm 
    14    USE trc, ONLY: trn, visib 
     14   USE trc, ONLY: trn 
    1515   USE par_fabm 
    16    USE fabm, ONLY: fabm_get_bulk_diagnostic_data 
     16   USE fabm, ONLY: fabm_get_interior_diagnostic_data 
    1717#endif 
    1818 
     
    177177         END DO 
    178178         DO jn = 1, jp_fabm_3d 
    179             CALL dia_calctmb( fabm_get_bulk_diagnostic_data(model, jn), zwtmb ) 
     179            CALL dia_calctmb( fabm_get_interior_diagnostic_data(model, jn), zwtmb ) 
    180180            CALL iom_put( "top_"//TRIM(model%diagnostic_variables(jn)%name) , zwtmb(:,:,1) ) 
    181181            CALL iom_put( "mid_"//TRIM(model%diagnostic_variables(jn)%name) , zwtmb(:,:,2) ) 
    182182            CALL iom_put( "bot_"//TRIM(model%diagnostic_variables(jn)%name) , zwtmb(:,:,3) ) 
    183183         END DO 
    184          CALL dia_calctmb( visib(:,:,:), zwtmb ) 
    185          CALL iom_put( "top_visib" , zwtmb(:,:,1) ) 
    186          CALL iom_put( "mid_visib" , zwtmb(:,:,2) ) 
    187          CALL iom_put( "bot_visib" , zwtmb(:,:,3) ) 
    188184#endif 
    189185      ELSE 
Note: See TracChangeset for help on using the changeset viewer.