Changeset 9512


Ignore:
Timestamp:
2018-04-27T13:06:25+02:00 (2 years ago)
Author:
frrh
Message:

Correct lbc_lnk call and fix initialisation bugs in diaptr.

Location:
branches/UKMO/dev_r5518_fix_diag_bitcomp/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

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

    r9207 r9512  
    102102 
    103103      ! 
     104      z2d(:,:) = 0._wp 
    104105      z3d(:,:,:) = 0._wp 
    105106      IF( PRESENT( pvtr ) ) THEN 
     
    246247         ! 
    247248         IF( iom_use("zotemglo") ) THEN    ! i-mean i-k-surface  
     249            zmask(:,:,:) = 0._wp 
     250            zts(:,:,:,:) = 0._wp 
    248251            DO jk = 1, jpkm1 
    249252               DO jj = 1, jpj 
  • branches/UKMO/dev_r5518_fix_diag_bitcomp/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_eiv.F90

    r9502 r9512  
    177177               z2d(:,:) = z2d(:,:) + z3d(:,:,jk) 
    178178            END DO 
    179             CALL lbc_lnk( z3d_T, 'U', -1. ) 
     179            CALL lbc_lnk( z3d, 'U', -1. ) 
    180180            CALL iom_put( "ueiv_masstr", z3d )                  ! mass transport in i-direction 
    181181         ENDIF 
Note: See TracChangeset for help on using the changeset viewer.