Ignore:
Timestamp:
2013-11-26T17:47:17+01:00 (7 years ago)
Author:
cbricaud
Message:

Deallocate some arrays. see ticket #1190

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/BDY/bdydyn3d.F90

    r4292 r4317  
    288288         pvb2d(:,:) = pvb2d(:,:) + fse3v_b(:,:,jk)* vb(:,:,jk)   *vmask(:,:,jk) 
    289289#else 
    290          pub2d(:,:) = pub2d(:,:) + fse3u_0(:,:,jk) * ub(:,:,jk)  * umask(:,:,jk) 
    291          pvb2d(:,:) = pvb2d(:,:) + fse3v_0(:,:,jk) * vb(:,:,jk)  * vmask(:,:,jk) 
     290         pub2d(:,:) = pub2d(:,:) + fse3u(:,:,jk) * ub(:,:,jk)  * umask(:,:,jk) 
     291         pvb2d(:,:) = pvb2d(:,:) + fse3v(:,:,jk) * vb(:,:,jk)  * vmask(:,:,jk) 
    292292#endif 
    293293      END DO 
     
    329329      ENDDO 
    330330      ! 
    331       CALL wrk_dealloc(jpi,jpj,pub2d,pvb2d)  
     331      CALL wrk_dealloc(jpi,jpj,pub2d,pvb2d,phur1,phvr1)  
    332332      ! 
    333333      CALL lbc_lnk( ua, 'U', -1. )   ;   CALL lbc_lnk( va, 'V', -1. )   ! Boundary points should be updated 
Note: See TracChangeset for help on using the changeset viewer.