Changeset 8564 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/OPA_SRC/ICB/icbutl.F90

Timestamp:

2017-09-27T11:11:01+02:00 (7 years ago)

Author:

clem

Message:

change variable names

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/OPA_SRC/ICB/icbutl.F90 (modified) (2 diffs)

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/OPA_SRC/ICB/icbutl.F90

@@ -22 +22 @@
    USE sbc_oce                             ! ocean surface boundary conditions
 #if defined key_lim3
-   USE ice,    ONLY: u_ice, v_ice, htm_i   ! LIM-3 variables
+   USE ice,    ONLY: u_ice, v_ice, hm_i    ! LIM-3 variables
 #endif
 
@@ -81 +81 @@
       CALL lbc_lnk_icb( tt_e, 'T', +1._wp, 1, 1 )
 #if defined key_lim3
-      hicth(:,:) = 0._wp ;  hicth(1:jpi,1:jpj) = htm_i(:,:)  
+      hicth(:,:) = 0._wp ;  hicth(1:jpi,1:jpj) = hm_i (:,:)  
       ui_e(:,:) = 0._wp ;   ui_e(1:jpi, 1:jpj) = u_ice(:,:)
       vi_e(:,:) = 0._wp ;   vi_e(1:jpi, 1:jpj) = v_ice(:,:)