Ignore:
Timestamp:
2016-11-16T12:48:46+01:00 (4 years ago)
Author:
timgraham
Message:

All changes related to diaptr (basin heat transports and transport components)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2016/dev_r7233_CMIP6_diags_trunk_version/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_triad.F90

    r6140 r7236  
    416416            ! 
    417417            !                          ! "Poleward" diffusive heat or salt transports (T-S case only) 
    418             IF( cdtype == 'TRA' .AND. ln_diaptr ) THEN 
    419                IF( jn == jp_tem)   htr_ldf(:) = ptr_sj( zftv(:,:,:) )        ! 3.3  names 
    420                IF( jn == jp_sal)   str_ldf(:) = ptr_sj( zftv(:,:,:) ) 
    421             ENDIF 
     418            IF( cdtype == 'TRA' .AND. ln_diaptr )  CALL dia_ptr_ohst_components( jn, 'ldf', zftv(:,:,:) ) 
    422419            ! 
    423420            IF( iom_use("udiff_heattr") .OR. iom_use("vdiff_heattr") ) THEN 
Note: See TracChangeset for help on using the changeset viewer.