Changeset 13101 for NEMO/releases

Timestamp:

2020-06-12T13:10:44+02:00 (4 years ago)

Author:

rblod

Message:

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

File:

• NEMO/releases/r4.0/r4.0-HEAD/src/OCE/DOM/istate.F90 (modified) (2 diffs)

NEMO/releases/r4.0/r4.0-HEAD/src/OCE/DOM/istate.F90

@@ -24 +24 @@
    USE dom_oce        ! ocean space and time domain 
    USE daymod         ! calendar
-   USE divhor         ! horizontal divergence            (div_hor routine)
    USE dtatsd         ! data temperature and salinity   (dta_tsd routine)
    USE dtauvd         ! data: U & V current             (dta_uvd routine)
@@ -123 +122 @@
          un   (:,:,:)   = ub  (:,:,:)
          vn   (:,:,:)   = vb  (:,:,:)
-         hdivn(:,:,jpk) = 0._wp               ! bottom divergence set one for 0 to zero at jpk level
-         CALL div_hor( 0 )                    ! compute interior hdivn value  
-!!gm                                    hdivn(:,:,:) = 0._wp
 
 !!gm POTENTIAL BUG :