Ignore:
Timestamp:
2019-10-29T12:00:04+01:00 (12 months ago)
Author:
mathiot
Message:

rm useless USE statement, option compatibility test + minor changes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/DYN/divhor.F90

    r11541 r11823  
    8686         END DO   
    8787      END DO 
    88  
    89       ztmp = 0.0 
    90       DO jk = jpkm1,1,-1 
    91          ztmp(:,:) = ztmp(:,:) + hdivn(:,:,jk) * e3t_n(:,:,jk) 
    92       END DO 
    93       CALL debug('divhor 1',ztmp) 
    94  
     88      ! 
    9589#if defined key_agrif 
    9690      IF( .NOT. Agrif_Root() ) THEN 
     
    10296#endif 
    10397      ! 
    104       IF( ln_rnf )   CALL sbc_rnf_div( hdivn )              !==  runoffs    ==!   (update hdivn field) 
     98      IF( ln_rnf )                      CALL sbc_rnf_div( hdivn )       !==  runoffs    ==!   (update hdivn field) 
    10599      ! 
    106100#if defined key_asminc  
     
    109103#endif 
    110104      ! 
    111       IF( ln_isf .OR. ln_isfcpl )   CALL isf_hdiv( kt, hdivn )      !==  ice shelf  ==!   (update hdivn field) 
     105      IF( ln_isf .AND. kt /= 0 )        CALL isf_hdiv( kt, hdivn )      !==  ice shelf  ==!   (update hdivn field) 
    112106      ! 
    113107      CALL lbc_lnk( 'divhor', hdivn, 'T', 1. )   !   (no sign change) 
    114       ! 
    115       ztmp = 0.0 
    116       DO jk = jpkm1,1,-1 
    117          ztmp(:,:) = ztmp(:,:) + hdivn(:,:,jk) * e3t_n(:,:,jk) 
    118       END DO 
    119       CALL debug('divhor 2',ztmp) 
    120108      ! 
    121109      IF( ln_timing )   CALL timing_stop('div_hor') 
Note: See TracChangeset for help on using the changeset viewer.