Ignore:
Timestamp:
2014-03-31T14:39:07+02:00 (7 years ago)
Author:
davestorkey
Message:

Bug fixes for BDY with LIM, see ticket #1288.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90

    r4354 r4608  
    379379               ENDIF 
    380380#if defined key_lim3 
    381                IF( .NOT. ll_bdylim3 .AND. nn_ice_lim(ib_bdy) > 0 .AND. nn_ice_lim_dta(ib_bdy) == 1 ) THEN ! bdy ice input (case input is lim2 type) 
     381               IF( .NOT. ll_bdylim3 .AND. cn_ice_lim(ib_bdy) /= 'none' .AND. nn_ice_lim_dta(ib_bdy) == 1 ) THEN ! bdy ice input (case input is lim2 type) 
    382382                CALL lim_cat_1D ( bf(jfld_hti)%fnow(:,1,1), bf(jfld_hts)%fnow(:,1,1), bf(jfld_ai)%fnow(:,1,1), & 
    383383                                  & dta_bdy(ib_bdy)%ht_i,     dta_bdy(ib_bdy)%ht_s,     dta_bdy(ib_bdy)%a_i     ) 
     
    838838 
    839839#if defined key_lim2 
    840          IF (nn_ice_lim(ib_bdy) .gt. 0) THEN 
     840         IF (cn_ice_lim(ib_bdy) /= 'none') THEN 
    841841            IF( nn_ice_lim_dta(ib_bdy) .eq. 0 ) THEN 
    842842               ALLOCATE( dta_bdy(ib_bdy)%frld(nblen(1)) ) 
     
    853853         ENDIF 
    854854#elif defined key_lim3 
    855          IF (nn_ice_lim(ib_bdy) .gt. 0) THEN 
     855         IF (cn_ice_lim(ib_bdy) /= 'none') THEN 
    856856            IF( nn_ice_lim_dta(ib_bdy) .eq. 0 ) THEN 
    857857               ALLOCATE( dta_bdy(ib_bdy)%a_i (nblen(1),jpl) ) 
Note: See TracChangeset for help on using the changeset viewer.