Changeset 1812 for tags/nemo_v3_2/NEMO/LIM_SRC_2/limwri_2.F90

Timestamp:

2010-03-25T11:30:26+01:00 (14 years ago)

Author:

rblod

Message:

Syntax error for abort files in limwri_2, see ticket #623

File:

• tags/nemo_v3_2/NEMO/LIM_SRC_2/limwri_2.F90 (modified) (1 diff)

tags/nemo_v3_2/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/) )