Changeset 9923 for NEMO/branches/2018/dev_r9838_ENHANCE04_MLF/src/OCE/DIA/diadct.F90

Timestamp:

2018-07-11T10:24:17+02:00 (6 years ago)

Author:

gm

Message:

#1911 (ENHANCE-04): step I.2: dev_r9838_ENHANCE04_MLF

File:

• NEMO/branches/2018/dev_r9838_ENHANCE04_MLF/src/OCE/DIA/diadct.F90 (modified) (4 diffs)

NEMO/branches/2018/dev_r9838_ENHANCE04_MLF/src/OCE/DIA/diadct.F90

@@ -679 +679 @@
                   zsn   = interp(k%I,k%J,jk,'V',tsn(:,:,:,jp_sal) ) 
                   zrhop = interp(k%I,k%J,jk,'V',rhop) 
-                  zrhoi = interp(k%I,k%J,jk,'V',rhd*rau0+rau0) 
+                  zrhoi = interp(k%I,k%J,jk,'V',rhd*rho0+rho0) 
                   zsshn =  0.5*( sshn(k%I,k%J) + sshn(k%I,k%J+1)    ) * vmask(k%I,k%J,1) 
                CASE(2,3) 
@@ -685 +685 @@
                   zsn   = interp(k%I,k%J,jk,'U',tsn(:,:,:,jp_sal) ) 
                   zrhop = interp(k%I,k%J,jk,'U',rhop) 
-                  zrhoi = interp(k%I,k%J,jk,'U',rhd*rau0+rau0) 
+                  zrhoi = interp(k%I,k%J,jk,'U',rhd*rho0+rho0) 
                   zsshn =  0.5*( sshn(k%I,k%J) + sshn(k%I+1,k%J)    ) * umask(k%I,k%J,1)  
                END SELECT 
@@ -851 +851 @@
                  zsn   = interp(k%I,k%J,jk,'V',tsn(:,:,:,jp_sal) ) 
                  zrhop = interp(k%I,k%J,jk,'V',rhop) 
-                 zrhoi = interp(k%I,k%J,jk,'V',rhd*rau0+rau0) 
+                 zrhoi = interp(k%I,k%J,jk,'V',rhd*rho0+rho0) 
 
               CASE(2,3) 
@@ -857 +857 @@
                  zsn   = interp(k%I,k%J,jk,'U',tsn(:,:,:,jp_sal) ) 
                  zrhop = interp(k%I,k%J,jk,'U',rhop) 
-                 zrhoi = interp(k%I,k%J,jk,'U',rhd*rau0+rau0) 
+                 zrhoi = interp(k%I,k%J,jk,'U',rhd*rho0+rho0) 
                  zsshn =  0.5*( sshn(k%I,k%J)    + sshn(k%I+1,k%J)    ) * umask(k%I,k%J,1)  
               END SELECT