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 11079 – NEMO

Changeset 11079


Ignore:
Timestamp:
2019-06-05T16:18:10+02:00 (5 years ago)
Author:
jchanut
Message:

#2284

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/releases/release-4.0/src/NST/agrif_top_update.F90

    r10068 r11079  
    138138                     DO ji=i1,i2 
    139139                        IF( tabres_child(ji,jj,jk,jn) .NE. 0. ) THEN 
    140                            trb(ji,jj,jk,jn) = tsb(ji,jj,jk,jn) &  
     140                           trb(ji,jj,jk,jn) = trb(ji,jj,jk,jn) &  
    141141                                 & + atfp * ( tabres_child(ji,jj,jk,jn) & 
    142142                                 &          - trn(ji,jj,jk,jn) ) * tmask(ji,jj,jk) 
Note: See TracChangeset for help on using the changeset viewer.