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 9502 for branches/UKMO/dev_r5518_fix_diag_bitcomp/NEMOGCM/NEMO/OPA_SRC/DIA/diaprod.F90 – NEMO

Ignore:
Timestamp:
2018-04-25T10:24:20+02:00 (6 years ago)
Author:
frrh
Message:

Ensure numerous diagnostics are bit comparable ond different PE
decompositions.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_fix_diag_bitcomp/NEMOGCM/NEMO/OPA_SRC/DIA/diaprod.F90

    r7993 r9502  
    9696            END DO 
    9797         END DO 
     98         CALL lbc_lnk( z3d(:,:,:), 'U', -1.) 
    9899         CALL iom_put( "ut", z3d )                  ! product of temperature and zonal velocity at U points 
    99100      ENDIF 
     
    108109            END DO 
    109110         END DO 
     111         CALL lbc_lnk( z3d(:,:,:), 'V', -1.) 
    110112         CALL iom_put( "vt", z3d )                  ! product of temperature and meridional velocity at V points 
    111113         DO jk = 1, jpkm1 
     
    133135            END DO 
    134136         END DO 
     137         CALL lbc_lnk( z3d(:,:,:), 'W', 1.) 
    135138         CALL iom_put( "wt", z3d )                  ! product of temperature and vertical velocity at W points 
    136139      ENDIF 
     
    145148            END DO 
    146149         END DO 
     150         CALL lbc_lnk( z3d(:,:,:), 'U', -1.) 
    147151         CALL iom_put( "us", z3d )                  ! product of salinity and zonal velocity at U points 
    148152      ENDIF 
     
    157161            END DO 
    158162         END DO 
     163         CALL lbc_lnk( z3d(:,:,:), 'V', -1.) 
    159164         CALL iom_put( "vs", z3d )                  ! product of salinity and meridional velocity at V points 
    160165         DO jk = 1, jpkm1 
     
    182187            END DO 
    183188         END DO 
     189         CALL lbc_lnk( z3d(:,:,:), 'W', 1.) 
    184190         CALL iom_put( "ws", z3d )                  ! product of salinity and vertical velocity at W points 
    185191      ENDIF 
     
    194200            END DO 
    195201         END DO 
     202         CALL lbc_lnk( z3d(:,:,:), 'U', -1.) 
    196203         CALL iom_put( "urhop", z3d )                  ! product of density and zonal velocity at U points 
    197204      ENDIF 
     
    206213            END DO 
    207214         END DO 
     215         CALL lbc_lnk( z3d(:,:,:), 'V', -1.) 
    208216         CALL iom_put( "vrhop", z3d )                  ! product of density and meridional velocity at V points 
    209217      ENDIF 
     
    223231            END DO 
    224232         END DO 
     233         CALL lbc_lnk( z3d(:,:,:), 'W', 1.) 
    225234         CALL iom_put( "wrhop", z3d )                  ! product of density and vertical velocity at W points 
    226235      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.