Changeset 6050


Ignore:
Timestamp:
2015-12-15T00:07:08+01:00 (5 years ago)
Author:
acc
Message:

Branch 2015/dev_r5836_NOC3_vvl_by_default. Replace missing allocation omitted in last commit

Location:
branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

    r6049 r6050  
    8686      !!                  ***  routine dyn_spg_ts_alloc  *** 
    8787      !!---------------------------------------------------------------------- 
    88       INTEGER :: ierr(2) 
     88      INTEGER :: ierr(3) 
    8989      !!---------------------------------------------------------------------- 
    9090      ierr(:) = 0 
    9191      ! 
     92      ALLOCATE( wgtbtp1(3*nn_baro), wgtbtp2(3*nn_baro), zwz(jpi,jpj), STAT=ierr(1) ) 
     93      ! 
    9294      IF( ln_dynvor_een )   ALLOCATE( ftnw(jpi,jpj) , ftne(jpi,jpj) , &  
    93          &                            ftsw(jpi,jpj) , ftse(jpi,jpj) , STAT=ierr(1) ) 
    94          ! 
    95       ALLOCATE( un_adv(jpi,jpj), vn_adv(jpi,jpj)                    , STAT=ierr(2) ) 
     95         &                            ftsw(jpi,jpj) , ftse(jpi,jpj) , STAT=ierr(2) ) 
     96         ! 
     97      ALLOCATE( un_adv(jpi,jpj), vn_adv(jpi,jpj)                    , STAT=ierr(3) ) 
    9698      ! 
    9799      dyn_spg_ts_alloc = MAXVAL( ierr(:) ) 
  • branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OPA_SRC/oce.F90

    r6049 r6050  
    9696      !!---------------------------------------------------------------------- 
    9797      ! 
     98      ierr(:) = 0  
    9899      ALLOCATE( ub   (jpi,jpj,jpk)      , un   (jpi,jpj,jpk)      , ua(jpi,jpj,jpk)       ,     & 
    99100         &      vb   (jpi,jpj,jpk)      , vn   (jpi,jpj,jpk)      , va(jpi,jpj,jpk)       ,     &           
Note: See TracChangeset for help on using the changeset viewer.