Changeset 57

Timestamp:

2004-04-22T12:04:07+02:00 (20 years ago)

Author:

opalod

Message:

CT : BUGFIX031 : Running error corrected: when duplicating e3X_ps() scale factors in mpp case

File:

• trunk/NEMO/OPA_SRC/DOM/domzgr_zps.h90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DOM/domzgr_zps.h90

@@ -288 +288 @@
      END DO
      ! we duplicate factor scales for jj = 1 and jj = 2
-     e3t_ps(:,1,:) = e3t_ps(:,2,:) 
-     e3w_ps(:,1,:) = e3w_ps(:,2,:) 
-     e3u_ps(:,1,:) = e3u_ps(:,2,:) 
-     e3v_ps(:,1,:) = e3v_ps(:,2,:) 
-     e3f_ps(:,1,:) = e3f_ps(:,2,:) 
+     e3t_ps(:,mj0(1),:) = e3t_ps(:,mj0(2),:) 
+     e3w_ps(:,mj0(1),:) = e3w_ps(:,mj0(2),:) 
+     e3u_ps(:,mj0(1),:) = e3u_ps(:,mj0(2),:) 
+     e3v_ps(:,mj0(1),:) = e3v_ps(:,mj0(2),:) 
+     e3f_ps(:,mj0(1),:) = e3f_ps(:,mj0(2),:) 
+