Changeset 2007 for branches/DEV_r1879_FCM/NEMOGCM/NEMO/LIM_SRC_2/limwri_2.F90

Timestamp:

2010-07-13T17:14:39+02:00 (14 years ago)

Author:

smasson

Message:

update branches/DEV_r1879_FCM/NEMOGCM/NEMO with tags/nemo_v3_2_1/NEMO

File:

• branches/DEV_r1879_FCM/NEMOGCM/NEMO/LIM_SRC_2/limwri_2.F90 (modified) (1 diff)

branches/DEV_r1879_FCM/NEMOGCM/NEMO/LIM_SRC_2/limwri_2.F90

@@ -313 +313 @@
       CALL histwrite( kid, "iicetemp", kt, sist(:,:) - rt0, jpi*jpj, (/1/) )
       CALL histwrite( kid, "ioceflxb", kt, fbif           , jpi*jpj, (/1/) )
-      CALL histwrite( kid, "iicevelv", kt, u_ice          , jpi*jpj, (/1/) )
-      CALL histwrite( kid, "iicevelu", kt, v_ice          , jpi*jpj, (/1/) )
+      CALL histwrite( kid, "iicevelu", kt, u_ice          , jpi*jpj, (/1/) )
+      CALL histwrite( kid, "iicevelv", kt, v_ice          , jpi*jpj, (/1/) )
       CALL histwrite( kid, "isstempe", kt, sst_m          , jpi*jpj, (/1/) )
       CALL histwrite( kid, "isssalin", kt, sss_m          , jpi*jpj, (/1/) )