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 5207 for branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/LIM_SRC_3/limthd_dif.F90 – NEMO

Ignore:
Timestamp:
2015-04-13T13:00:27+02:00 (9 years ago)
Author:
cetlod
Message:

dev_r5204_CNRS_PISCES_dcy:minor bugs corrections

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/LIM_SRC_3/limthd_dif.F90

    r5206 r5207  
    2424   USE wrk_nemo       ! work arrays 
    2525   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
    26    USE sbc_oce, ONLY : lk_cpl 
     26   USE sbc_oce, ONLY : lk_cpl, l_trcdm2dc 
    2727 
    2828   IMPLICIT NONE 
     
    294294      IF( l_trcdm2dc ) THEN 
    295295         DO ji = kideb , kiut 
    296              ftr_ice_mean_1d(ji) =  ftr_ice_mean_1d(ji) &  
    297                  &                + a_i_1d(ji) * zftrice_mean(ji) & 
    298                  &                             * EXP( - rn_kappa_i * ( MAX ( 0._wp , h_i_1d(ji) ) ) ) & 
    299                                                * EXP( - zraext_s   * ( MAX ( 0._wp , h_s_1d(ji) ) ) ) 
     296             ftr_ice_mean_1d(ji) =  ftr_ice_mean_1d(ji)               &  
     297                 &                + a_i_1d(ji) * zftrice_mean(ji)     & 
     298                 &                             * EXP( - rn_kappa_i * ( MAX ( 0._wp , ht_i_1d(ji) ) ) ) & 
     299                 &                             * EXP( - zraext_s   * ( MAX ( 0._wp , ht_s_1d(ji) ) ) ) 
    300300         END DO 
    301301      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.