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 617 for trunk/NEMO/TOP_SRC/SMS/p4zsink2.F – NEMO

Ignore:
Timestamp:
2007-02-21T14:03:10+01:00 (17 years ago)
Author:
opalod
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/TOP_SRC/SMS/p4zsink2.F

    r341 r617  
    6565! -------------- 
    6666 
    67         zstep  = rdt*ndttrc 
     67        zstep  = rfact2 
    6868 
    6969        ztraz  = 0 
    … …  
    122122              zew   = wstmp2(ji,jj,jk+1) 
    123123              sinktemp(ji,jj,jk+1) = -zew*(trn(ji,jj,jk,jn) 
    124      $           -0.5*(1+zigma)*zakz(ji,jj,jk))*rfact2 
     124     $           -0.5*(1+zigma)*zakz(ji,jj,jk))*zstep 
    125125            ENDDO 
    126126          ENDDO 
Note: See TracChangeset for help on using the changeset viewer.