Changeset 3106 for branches/2011

Timestamp:

2011-11-15T12:40:00+01:00 (13 years ago)

Author:

cbricaud

Message:

change tn and sn by tsn

File:

• branches/2011/dev_LOCEAN_CMCC_INGV_MERCATOR_2011/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90 (modified) (1 diff)

branches/2011/dev_LOCEAN_CMCC_INGV_MERCATOR_2011/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90

@@ -641 +641 @@
                  SELECT CASE( sec%direction(jseg) )
                  CASE(0,1)
-                    ztn   = interp(k%I,k%J,jk,'V',tn)
-                    zsn   = interp(k%I,k%J,jk,'V',sn)
+                    ztn   = interp(k%I,k%J,jk,'V',tsn(:,:,:,jp_tem) )
+                    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)
                     zsshn =  0.5*( sshn(k%I,k%J)    + sshn(k%I,k%J+1)    ) * vmask(k%I,k%J,1)
                  CASE(2,3)
-                    ztn   = interp(k%I,k%J,jk,'U',tn)
-                    zsn   = interp(k%I,k%J,jk,'U',sn)
+                    ztn   = interp(k%I,k%J,jk,'U',tsn(:,:,:,jp_tem) )
+                    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)