Ignore:
Timestamp:
2017-09-01T18:15:45+02:00 (3 years ago)
Author:
clem
Message:

debug icevar.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icerhg.F90

    r8486 r8491  
    7373      !                       
    7474      IF( ln_landfast ) THEN        ! -- Landfast ice parameterization: define max bottom friction 
     75         tau_icebfr(:,:) = 0._wp 
    7576         DO jl = 1, jpl 
    76             WHERE( ht_i(:,:,jl) > ht_n(:,:) * rn_gamma )   ;   tau_icebfr(:,:) = tau_icebfr(:,:) + a_i(:,:,jl) * rn_icebfr 
    77             ELSEWHERE                                      ;   tau_icebfr(:,:) = 0._wp 
    78             END WHERE 
     77            WHERE( ht_i(:,:,jl) > ht_n(:,:) * rn_gamma )   tau_icebfr(:,:) = tau_icebfr(:,:) + a_i(:,:,jl) * rn_icebfr 
    7978         END DO 
    8079      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.