New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 9030 – NEMO

Changeset 9030


Ignore:
Timestamp:
2017-12-14T11:03:50+01:00 (5 years ago)
Author:
acc
Message:

Branch 2017/dev_merge_2017. Fix compilation issue in dynhpg.F90

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

    r9023 r9030  
    463463                  &    MAX(   sshn(ji,jj)             ,  sshn(ji,jj+1) ) >                & 
    464464                  &    MAX(  -ht_0(ji,jj)             , -ht_0(ji,jj+1) ) + rn_wdmin1 + rn_wdmin2 ) 
    465                   ! 
    466                IF(ll_tmp1) THEN 
    467                   zcpy(ji,jj) = 1.0_wp 
    468                ELSE IF(ll_tmp2) THEN 
    469                   ! no worries about  sshn(ji,jj+1) -  sshn(ji,jj  ) = 0, it won't happen ! here 
    470                   zcpy(ji,jj) = ABS(   ( sshn(ji,jj+1)+ht_wd(ji,jj+1) - sshn(ji,jj) - ht_wd(ji,jj) )   & 
    471                      &               / ( sshn(ji,jj+1)                - sshn(ji,jj)                )   ) 
    472                ELSE 
    473                   zcpy(ji,jj) = 0._wp 
    474                ENDIF 
    475             END DO 
    476          END DO 
    477          CALL lbc_lnk( zcpx, 'U', 1._wp )    ;   CALL lbc_lnk( zcpy, 'V', 1._wp ) 
    478       ENDIF 
    479465 
    480466             IF(ll_tmp1) THEN 
Note: See TracChangeset for help on using the changeset viewer.