New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5626 for branches/2014/dev_r4621_NOC4_BDY_VERT_INTERP/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90 – NEMO

Ignore:
Timestamp:
2015-07-22T09:49:20+02:00 (9 years ago)
Author:
jamesharle
Message:

Correct for un-allocated arrays.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2014/dev_r4621_NOC4_BDY_VERT_INTERP/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90

    r5620 r5626  
    515515            ALLOCATE( dta_global(jpbdtau, 1, nb_jpk_bdy) ) 
    516516            ALLOCATE( dta_global_z(jpbdtau, 1, nb_jpk_bdy) ) 
     517            ALLOCATE( dta_global_dz(jpbdtau, 1, nb_jpk_bdy) ) 
    517518         ELSE 
    518519            ALLOCATE( dta_global(jpbdtau, 1, jpk) ) 
    519             ALLOCATE( dta_global_z(jpbdtau, 1, jpk) ) 
     520            ALLOCATE( dta_global_z(jpbdtau, 1, jpk) ) ! needed ?? TODO 
     521            ALLOCATE( dta_global_dz(jpbdtau, 1, jpk) )! needed ?? TODO 
    520522         ENDIF 
    521523 
     
    524526               ALLOCATE( dta_global2(jpbdtas, nrimmax, nb_jpk_bdy) ) 
    525527               ALLOCATE( dta_global2_z(jpbdtas, nrimmax, nb_jpk_bdy) ) 
     528               ALLOCATE( dta_global2_dz(jpbdtas, nrimmax, nb_jpk_bdy) ) 
    526529            ELSE 
    527530               ALLOCATE( dta_global2(jpbdtas, nrimmax, jpk) ) 
    528                ALLOCATE( dta_global2_z(jpbdtas, nrimmax, jpk) ) 
     531               ALLOCATE( dta_global2_z(jpbdtas, nrimmax, jpk) ) ! needed ?? TODO 
     532               ALLOCATE( dta_global2_dz(jpbdtas, nrimmax, jpk) )! needed ?? TODO   
    529533            ENDIF 
    530534         ENDIF 
Note: See TracChangeset for help on using the changeset viewer.