Changeset 2699


Ignore:
Timestamp:
2011-03-21T10:10:32+01:00 (10 years ago)
Author:
rblod
Message:

Suppress arrays allocated twice when using OBC

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/OBC/obcdta.F90

    r2647 r2699  
    119119# endif 
    120120 
    121       ALLOCATE( uedta(jpj,jpk,jptobc) , vedta(jpj,jpk,jptobc)       ,     & 
    122          &      tedta(jpj,jpk,jptobc) , sedta(jpj,jpk,jptobc)       ,     & 
    123          &      uwdta(jpj,jpk,jptobc) , vwdta(jpj,jpk,jptobc)       ,     & 
    124          &      twdta(jpj,jpk,jptobc) , swdta(jpj,jpk,jptobc)       ,     & 
    125          &      undta(jpj,jpk,jptobc) , vndta(jpj,jpk,jptobc)       ,     & 
    126          &      tndta(jpj,jpk,jptobc) , sndta(jpj,jpk,jptobc)       ,     & 
    127          &      usdta(jpj,jpk,jptobc) , vsdta(jpj,jpk,jptobc)       ,     & 
    128          &      tsdta(jpj,jpk,jptobc) , ssdta(jpj,jpk,jptobc)       ,     & 
    129          &      ltemsk(jpj,jpk) , luemsk(jpj,jpk) , lvemsk(jpj,jpk) ,     & 
     121      ALLOCATE( ltemsk(jpj,jpk) , luemsk(jpj,jpk) , lvemsk(jpj,jpk) ,     & 
    130122         &      ltwmsk(jpj,jpk) , luwmsk(jpj,jpk) , lvwmsk(jpj,jpk) ,     & 
    131123         &      ltnmsk(jpj,jpk) , lunmsk(jpj,jpk) , lvnmsk(jpj,jpk) ,     & 
Note: See TracChangeset for help on using the changeset viewer.