Changeset 1470 for trunk/NEMO/LIM_SRC_2/ice_2.F90

Timestamp:

2009-06-11T15:01:25+02:00 (15 years ago)

Author:

smasson

Message:

[uv]i_ice and [uv]i_oce renamed [uv]_ice and [uv]_oce, see ticket:453

File:

• trunk/NEMO/LIM_SRC_2/ice_2.F90 (modified) (1 diff)

trunk/NEMO/LIM_SRC_2/ice_2.F90

@@ -95 +95 @@
    REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   tauc          !: Cloud optical depth
 
-   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   ui_ice, vi_ice   !: two components of the ice   velocity at I-point (m/s)
-   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   ui_oce, vi_oce   !: two components of the ocean velocity at I-point (m/s)
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   u_ice, v_ice   !: two components of the ice   velocity at I-point (m/s)
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   u_oce, v_oce   !: two components of the ocean velocity at I-point (m/s)
 
    REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpsmax)     ::   scal0   !: ???