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 1005 for trunk/NEMO/TOP_SRC/LOBSTER/trcsed.F90 – NEMO

Ignore:
Timestamp:
2008-05-30T11:48:49+02:00 (16 years ago)
Author:
cetlod
Message:

Update LOBSTER modules to take into account the re-organization of TOP initialization phase, see ticket 169

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/TOP_SRC/LOBSTER/trcsed.F90

    r934 r1005  
    7979      ! tracer flux at w-point: we use -vsed (downward flux)  with simplification : no e1*e2 
    8080 
    81       DO jk = 2, jpkm1 
     81      DO jk = 2, jpk 
    8282         zwork(:,:,jk) = -vsed * trn(:,:,jk-1,jpdet) 
    8383      END DO 
Note: See TracChangeset for help on using the changeset viewer.