Changeset 3806


Ignore:
Timestamp:
2013-02-12T18:55:59+01:00 (8 years ago)
Author:
acc
Message:

Branch dev_v3_4_STABLE_2012. #1043 also correct sign of diagnostic poleward diffusive transport

Location:
branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPA_SRC/TRA
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_bilapg.F90

    r3294 r3806  
    248248         ! "Poleward" diffusive heat or salt transport 
    249249         IF( cdtype == 'TRA' .AND. ln_diaptr .AND. ( kaht == 2 ) .AND. ( MOD( kt, nn_fptr ) == 0 ) ) THEN 
    250             IF( jn == jp_tem)   htr_ldf(:) = ptr_vj( zftv(:,:,:) ) 
    251             IF( jn == jp_sal)   str_ldf(:) = ptr_vj( zftv(:,:,:) ) 
     250            ! note sign is reversed to give down-gradient diffusive transports (#1043) 
     251            IF( jn == jp_tem)   htr_ldf(:) = ptr_vj( -zftv(:,:,:) ) 
     252            IF( jn == jp_sal)   str_ldf(:) = ptr_vj( -zftv(:,:,:) ) 
    252253         ENDIF 
    253254 
  • branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso.F90

    r3783 r3806  
    212212         ! "Poleward" diffusive heat or salt transports (T-S case only) 
    213213         IF( cdtype == 'TRA' .AND. ln_diaptr .AND. ( MOD( kt, nn_fptr ) == 0 ) ) THEN 
    214             IF( jn == jp_tem)   htr_ldf(:) = ptr_vj( zftv(:,:,:) ) 
    215             IF( jn == jp_sal)   str_ldf(:) = ptr_vj( zftv(:,:,:) ) 
     214            ! note sign is reversed to give down-gradient diffusive transports (#1043) 
     215            IF( jn == jp_tem)   htr_ldf(:) = ptr_vj( -zftv(:,:,:) ) 
     216            IF( jn == jp_sal)   str_ldf(:) = ptr_vj( -zftv(:,:,:) ) 
    216217         ENDIF 
    217218  
Note: See TracChangeset for help on using the changeset viewer.