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 4869 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limupdate1.F90 – NEMO

Ignore:
Timestamp:
2014-11-18T16:43:44+01:00 (9 years ago)
Author:
clem
Message:

LIM3: removing useless ice types

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limupdate1.F90

    r4688 r4869  
    6969      !!                 
    7070      !!--------------------------------------------------------------------- 
    71       INTEGER  ::   ji, jj, jk, jl, jm    ! dummy loop indices 
    72       INTEGER  ::   jbnd1, jbnd2 
     71      INTEGER  ::   ji, jj, jk, jl   ! dummy loop indices 
    7372      INTEGER  ::   i_ice_switch 
    7473      REAL(wp) ::   zsal 
     
    9392      ! Rebin categories with thickness out of bounds 
    9493      !---------------------------------------------------- 
    95       DO jm = 1, jpm 
    96          jbnd1 = ice_cat_bounds(jm,1) 
    97          jbnd2 = ice_cat_bounds(jm,2) 
    98          IF (ice_ncat_types(jm) .GT. 1 )   CALL lim_itd_th_reb(jbnd1, jbnd2, jm) 
    99       END DO 
     94      IF ( jpl > 1 )   CALL lim_itd_th_reb(1, jpl) 
    10095 
    10196      at_i(:,:) = 0._wp 
     
    126121      ! Final thickness distribution rebinning 
    127122      ! -------------------------------------- 
    128       DO jm = 1, jpm 
    129          jbnd1 = ice_cat_bounds(jm,1) 
    130          jbnd2 = ice_cat_bounds(jm,2) 
    131          IF (ice_ncat_types(jm) .GT. 1 ) CALL lim_itd_th_reb(jbnd1, jbnd2, jm) 
    132          IF (ice_ncat_types(jm) .EQ. 1 ) THEN 
    133          ENDIF 
    134       END DO 
     123      IF ( jpl > 1 ) CALL lim_itd_th_reb(1, jpl) 
    135124 
    136125      !----------------- 
Note: See TracChangeset for help on using the changeset viewer.