Changeset 2666


Ignore:
Timestamp:
2011-03-07T16:47:03+01:00 (10 years ago)
Author:
cetlod
Message:

Offline: minor updates

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90

    r2652 r2666  
    165165      jpi = ( jpiglo-2*jpreci + (jpni-1) ) / jpni + 2*jpreci !: first  dim. 
    166166      jpj = ( jpjglo-2*jprecj + (jpnj-1) ) / jpnj + 2*jprecj !: second dim. 
     167      jpk = jpkdta                                           !: third dim 
    167168      jpim1 = jpi-1                                          !: inner domain indices 
    168169      jpjm1 = jpj-1                                          !:   "           " 
     
    170171      jpij  = jpi*jpj                                        !:  jpi x j 
    171172 
    172       ! Now we know the dimensions of the grid, allocate arrays 
    173       CALL nemo_alloc() 
    174173 
    175174      IF(lwp) THEN                            ! open listing units 
     
    190189         ! 
    191190      ENDIF 
     191 
     192      ! Now we know the dimensions of the grid and numout has been set we can  
     193      ! allocate arrays 
     194      CALL nemo_alloc() 
     195 
    192196      !                             !--------------------------------! 
    193197      !                             !  Model general initialization  ! 
Note: See TracChangeset for help on using the changeset viewer.