Changeset 5073

Timestamp:

2015-02-10T09:32:12+01:00 (10 years ago)

Author:

hliu

Message:

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

File:

• branches/2015/dev_r4826_NOC_WAD/NEMOGCM/NEMO/OPA_SRC/DYN/wadlmt.F90 (modified) (2 diffs)

branches/2015/dev_r4826_NOC_WAD/NEMOGCM/NEMO/OPA_SRC/DYN/wadlmt.F90

@@ -170 +170 @@
         END DO  ! jk1 loop
        
-        un(:,:,:) = un(:,:,:) * zwdlmtu(ji, jj) 
-        vn(:,:,:) = vn(:,:,:) * zwdlmtv(ji, jj) 
+        DO jk = 1, jpkm1
+        !un(:,:,1:jpkm1) = un(:,:,1:jpkm1) * zwdlmtu(:, :) 
+        !vn(:,:,1:jpkm1) = vn(:,:,1:jpkm1) * zwdlmtv(:, :) 
+
+        un(:,:,jk) = un(:,:,jk) * zwdlmtu(:, :) 
+        vn(:,:,jk) = vn(:,:,jk) * zwdlmtv(:, :) 
+        END DO
 
         CALL lbc_lnk( un, 'U', -1. )
@@ -316 +321 @@
         END DO  ! jk1 loop
        
-        zflxu(:,:) = zflxu(:,:) * zwdlmtu(ji, jj) 
-        zflxv(:,:) = zflxv(:,:) * zwdlmtv(ji, jj) 
+        zflxu(:,:) = zflxu(:,:) * zwdlmtu(:, :) 
+        zflxv(:,:) = zflxv(:,:) * zwdlmtv(:, :) 
 
         CALL lbc_lnk( zflxu, 'U', -1. )