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 894 for trunk/NEMO/LIM_SRC_3/limitd_me.F90 – NEMO

Ignore:
Timestamp:
2008-04-21T14:36:04+02:00 (16 years ago)
Author:
rblod
Message:

Correct remaining bugs in LIM3 implementation, see ticket #71

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/LIM_SRC_3/limitd_me.F90

    r888 r894  
    625625               DO ji = 1, jpi 
    626626 
    627                   IF                                                           & 
    628                   (       ( a_i(ji,jj,jl)    .GT. epsi11 )                     & 
     627                  IF(     ( a_i(ji,jj,jl)    .GT. epsi11 )                     & 
    629628                    .AND. ( athorn(ji,jj,jl) .GT. 0.0    ) ) THEN 
    630629                     hi = v_i(ji,jj,jl) / a_i(ji,jj,jl) 
Note: See TracChangeset for help on using the changeset viewer.