New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5137 for branches/2015/dev_r5020_CNRS_DIAPTR/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_lap.F90 – NEMO

Ignore:
Timestamp:
2015-03-11T10:57:11+01:00 (9 years ago)
Author:
cetlod
Message:

dev_r5020_CNRS_DIAPTR: some improvments of poleward heat transport diagnostics before merging with the trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5020_CNRS_DIAPTR/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_lap.F90

    r5023 r5137  
    148148         ! 
    149149         ! "Poleward" diffusive heat or salt transports 
    150          IF( cdtype == 'TRA' .AND. l_diaptr ) THEN 
     150         IF( cdtype == 'TRA' .AND. ln_diaptr ) THEN 
    151151            IF( jn  == jp_tem)   htr_ldf(:) = ptr_sj( ztv(:,:,:) ) 
    152152            IF( jn  == jp_sal)   str_ldf(:) = ptr_sj( ztv(:,:,:) ) 
Note: See TracChangeset for help on using the changeset viewer.