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 9006 for branches/2017/dev_METO_MERCATOR_2017_agrif/NEMOGCM/NEMO/NST_SRC/agrif_top_update.F90 – NEMO

Ignore:
Timestamp:
2017-12-13T12:14:44+01:00 (7 years ago)
Author:
timgraham
Message:

Modification to updates

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_METO_MERCATOR_2017_agrif/NEMOGCM/NEMO/NST_SRC/agrif_top_update.F90

    r9005 r9006  
    8383                  DO ji=i1,i2 
    8484                     tabres(ji,jj,jk,jn) = (trn(ji,jj,jk,jn) * e3t_n(ji,jj,jk) ) & 
    85                                            * tmask(ji,jj,jk) * zrho_xy + (tmask(ji,jj,jk)-1)*999._wp 
     85                                           * tmask(ji,jj,jk) + (tmask(ji,jj,jk)-1)*999._wp 
    8686                  END DO 
    8787               END DO 
Note: See TracChangeset for help on using the changeset viewer.