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 10193 for NEMO/branches – NEMO

Changeset 10193 for NEMO/branches


Ignore:
Timestamp:
2018-10-15T12:31:58+02:00 (5 years ago)
Author:
andmirek
Message:

Ticket #2139 new approach

Location:
NEMO/branches/2018/dev_r10190_ice_thd_zdf/src/ICE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2018/dev_r10190_ice_thd_zdf/src/ICE/icethd.F90

    r10069 r10193  
    212212         END DO 
    213213 
    214          IF( lk_mpp )         CALL mpp_ini_ice( npti , numout ) 
    215  
    216214         IF( npti > 0 ) THEN  ! If there is no ice, do nothing. 
    217215            !                                                                 
     
    250248            !                                                       ! --- & Move to 2D arrays --- ! 
    251249            ! 
    252             IF( lk_mpp )      CALL mpp_comm_free( ncomm_ice ) !RB necessary ?? 
    253250         ENDIF 
    254251         ! 
  • NEMO/branches/2018/dev_r10190_ice_thd_zdf/src/ICE/icethd_zdf_bl99.F90

    r10192 r10193  
    222222      ! 
    223223      liter(:) = .TRUE.                                          !============================! 
    224 !     DO iconv = 1, iconv_max                                    ! Iterative procedure begins ! 
    225       DO WHILE ( zdti_max > zdti_bnd .AND. iconv < iconv_max) 
    226          zdti_max = 0._wp 
    227 !        IF(itot<1) EXIT 
    228          iconv = iconv + 1 
     224      DO iconv = 1, iconv_max                                    ! Iterative procedure begins ! 
     225         IF(itot<1) EXIT 
    229226         DO ji = 1, npti 
    230227          IF(liter(ji)) THEN 
    231 !            zdti_max = 0._wp 
     228            zdti_max = 0._wp 
    232229            ! 
    233230            ztib(:, ji) = tt_i_1d(:, ji) 
     
    662659        ENDIF ! k_jules 
    663660 
    664 !       IF(zdti_max.le.zdti_bnd) THEN 
    665 !         liter(ji) = .FALSE. 
    666 !         itot = itot - 1 
    667 !       ENDIF 
     661        IF(zdti_max.le.zdti_bnd) THEN 
     662          liter(ji) = .FALSE. 
     663          itot = itot - 1 
     664        ENDIF 
    668665 
    669666        ENDIF ! liter 
    670667        END DO ! ji 
    671         IF( lk_mpp ) CALL mpp_max( zdti_max, kcom=ncomm_ice ) 
    672668      END DO  ! End of the do while iterative procedure 
    673669!need to move this part where all processors are available       
Note: See TracChangeset for help on using the changeset viewer.