Changeset 8420 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90

Timestamp:

2017-08-08T14:18:46+02:00 (7 years ago)

Author:

clem

Message:

changing names

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90 (modified) (2 diffs)

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90

@@ -24 +24 @@
    USE dom_oce         ! ocean space and time domain
    USE ice             ! LIM-3: ice variables
-   USE thd_ice         ! LIM-3: thermodynamical variables
+   USE ice1D           ! LIM-3: thermodynamical variables
    !
    USE sbc_oce         ! Surface boundary condition: ocean fields
@@ -261 +261 @@
       ierr =        ice_alloc        ()      ! ice variables
       ierr = ierr + sbc_ice_alloc    ()      ! surface forcing 
-      ierr = ierr + thd_ice_alloc    ()      ! thermodynamics
+      ierr = ierr + ice1D_alloc      ()      ! thermodynamics
       IF( ln_limdyn )   ierr = ierr + ice_rdgrft_alloc ()      ! ridging/rafting
       !