Changeset 2666 for branches/dev_r2586_dynamic_mem

Timestamp:

2011-03-07T16:47:03+01:00 (13 years ago)

Author:

cetlod

Message:

Offline: minor updates

File:

• branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90 (modified) (3 diffs)

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

@@ -165 +165 @@
       jpi = ( jpiglo-2*jpreci + (jpni-1) ) / jpni + 2*jpreci !: first  dim.
       jpj = ( jpjglo-2*jprecj + (jpnj-1) ) / jpnj + 2*jprecj !: second dim.
+      jpk = jpkdta                                           !: third dim
       jpim1 = jpi-1                                          !: inner domain indices
       jpjm1 = jpj-1                                          !:   "           "
@@ -170 +171 @@
       jpij  = jpi*jpj                                        !:  jpi x j
 
-      ! Now we know the dimensions of the grid, allocate arrays
-      CALL nemo_alloc()
 
       IF(lwp) THEN                            ! open listing units
@@ -190 +189 @@
          !
       ENDIF
+
+      ! Now we know the dimensions of the grid and numout has been set we can 
+      ! allocate arrays
+      CALL nemo_alloc()
+
       !                             !--------------------------------!
       !                             !  Model general initialization  !