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/traadv_mus.F90

    r6140 r7236  
    197197            CALL trd_tra( kt, cdtype, jn, jptra_yad, zwy, pvn, ptb(:,:,:,jn) ) 
    198198         END IF 
     199         !                                 ! "Poleward" heat and salt transports 
     200         IF( cdtype == 'TRA' .AND. ln_diaptr ) CALL dia_ptr_ohst_components( jn, 'adv', zwy(:,:,:)  ) 
    199201         !                                ! "Poleward" heat and salt transports 
    200          IF( cdtype == 'TRA' .AND. ln_diaptr ) THEN   
    201             IF( jn == jp_tem )  htr_adv(:) = ptr_sj( zwy(:,:,:) ) 
    202             IF( jn == jp_sal )  str_adv(:) = ptr_sj( zwy(:,:,:) ) 
    203          ENDIF 
    204202         ! 
    205203         !                          !* Vertical advective fluxes 
Note: See TracChangeset for help on using the changeset viewer.