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 864 for trunk/NEMO – NEMO

Changeset 864 for trunk/NEMO


Ignore:
Timestamp:
2008-03-14T14:47:30+01:00 (16 years ago)
Author:
rblod
Message:

Come back to previous version since 842 rev of this routine altere results

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/LIM_SRC_3/limthd_dif.F90

    r842 r864  
    439439       END DO 
    440440 
    441        DO layer = 1, nlay_s-1, -1 
     441       DO layer = 1, nlay_s-1 
    442442          DO ji = kideb , kiut 
    443443             zkappa_s(ji,layer)  = 2.0 * rcdsn / & 
     
    558558! 
    559559                !!snow interior terms (bottom equation has the same form as the others) 
    560                 DO numeq = 3, nlay_s + 1, -1 
     560                DO numeq = 3, nlay_s + 1 
    561561                   layer =  numeq - 1 
    562562                   ztrid(ji,numeq,1)   =  - zeta_s(ji,layer)*zkappa_s(ji,layer-1) 
Note: See TracChangeset for help on using the changeset viewer.