Changeset 13101


Ignore:
Timestamp:
2020-06-12T13:10:44+02:00 (5 months ago)
Author:
rblod
Message:

ticket #2471 : not need for initialisation of hdiv in istate.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/releases/r4.0/r4.0-HEAD/src/OCE/DOM/istate.F90

    r10499 r13101  
    2424   USE dom_oce        ! ocean space and time domain  
    2525   USE daymod         ! calendar 
    26    USE divhor         ! horizontal divergence            (div_hor routine) 
    2726   USE dtatsd         ! data temperature and salinity   (dta_tsd routine) 
    2827   USE dtauvd         ! data: U & V current             (dta_uvd routine) 
     
    123122         un   (:,:,:)   = ub  (:,:,:) 
    124123         vn   (:,:,:)   = vb  (:,:,:) 
    125          hdivn(:,:,jpk) = 0._wp               ! bottom divergence set one for 0 to zero at jpk level 
    126          CALL div_hor( 0 )                    ! compute interior hdivn value   
    127 !!gm                                    hdivn(:,:,:) = 0._wp 
    128124 
    129125!!gm POTENTIAL BUG : 
Note: See TracChangeset for help on using the changeset viewer.