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 5073 for branches/2015/dev_r4826_NOC_WAD/NEMOGCM/NEMO/OPA_SRC/DYN/wadlmt.F90 – NEMO

Ignore:
Timestamp:
2015-02-10T09:32:12+01:00 (9 years ago)
Author:
hliu
Message:

two bugs fixed in wadlmt (only wetting/drying related)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r4826_NOC_WAD/NEMOGCM/NEMO/OPA_SRC/DYN/wadlmt.F90

    r5017 r5073  
    170170        END DO  ! jk1 loop 
    171171        
    172         un(:,:,:) = un(:,:,:) * zwdlmtu(ji, jj)  
    173         vn(:,:,:) = vn(:,:,:) * zwdlmtv(ji, jj)  
     172        DO jk = 1, jpkm1 
     173        !un(:,:,1:jpkm1) = un(:,:,1:jpkm1) * zwdlmtu(:, :)  
     174        !vn(:,:,1:jpkm1) = vn(:,:,1:jpkm1) * zwdlmtv(:, :)  
     175 
     176        un(:,:,jk) = un(:,:,jk) * zwdlmtu(:, :)  
     177        vn(:,:,jk) = vn(:,:,jk) * zwdlmtv(:, :)  
     178        END DO 
    174179 
    175180        CALL lbc_lnk( un, 'U', -1. ) 
     
    316321        END DO  ! jk1 loop 
    317322        
    318         zflxu(:,:) = zflxu(:,:) * zwdlmtu(ji, jj)  
    319         zflxv(:,:) = zflxv(:,:) * zwdlmtv(ji, jj)  
     323        zflxu(:,:) = zflxu(:,:) * zwdlmtu(:, :)  
     324        zflxv(:,:) = zflxv(:,:) * zwdlmtv(:, :)  
    320325 
    321326        CALL lbc_lnk( zflxu, 'U', -1. ) 
Note: See TracChangeset for help on using the changeset viewer.