Changeset 2597

Timestamp:

2011-02-20T15:33:53+01:00 (13 years ago)

Author:

gm

Message:

dynamic mem: #785 nemogcm error in LIM-3 case: lim_idt instead of lim_itd...

File:

• branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90 (modified) (5 diffs)

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

@@ -27 +27 @@
    !!            3.3  ! 2010-05  (K. Mogensen, A. Weaver, M. Martin, D. Lea) Assimilation interface 
    !!             -   ! 2010-10  (C. Ethe, G. Madec) reorganisation of initialisation phase
+   !!            4.0  ! 2011-01  (A. R. Porter, STFC Daresbury) dynamical allocation
    !!----------------------------------------------------------------------
 
@@ -34 +35 @@
    !!   nemo_ctl       : initialisation of the contol print 
    !!   nemo_closefile : close remaining open files
+   !!   nemo_alloc     : dynamical allocation
+   !!   nemo_partition : ???
+   !!   nemo_partition : ???
+   !!   factorise      : ???
    !!----------------------------------------------------------------------
    USE step_oce        ! module used in the ocean time stepping module
@@ -79 +84 @@
 
    !!----------------------------------------------------------------------
-   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
+   !! NEMO/OPA 4.0 , NEMO Consortium (2011)
    !! $Id$
    !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
@@ -478 +483 @@
 #if defined key_lim3
      USE dom_ice,      ONLY: dom_ice_alloc
-     USE limidt_me,    ONLY: lim_idt_me_alloc
+     USE limitd_me,    ONLY: lim_itd_me_alloc
      USE thd_ice,      ONLY: thd_ice_alloc
 #endif
@@ -632 +637 @@
 #if defined key_lim3
      ierr = ierr + dom_ice_alloc()
-     ierr = ierr + lim_idt_me_alloc()
+     ierr = ierr + lim_itd_me_alloc()
      ierr = ierr + thd_ice_alloc()
 #endif