Ignore:
Timestamp:
2019-01-09T20:53:37+01:00 (19 months ago)
Author:
mathiot
Message:

Minor changes in isf load computation to fit change in DOMAINcfg

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/DYN/dynhpg.F90

    r10425 r10491  
    245245               END DO 
    246246               IF (ikt  >=  2) ziceload(ji,jj) = ziceload(ji,jj) + (2._wp * znad + zrhdtop_isf(ji,jj) + zrhd(ji,jj,ikt-1)) & 
    247                   &                                              * ( risfdep(ji,jj) - gdept_1d(ikt-1) ) 
     247                  &                                              * ( risfdep(ji,jj) - gdept_n(ji,jj,ikt-1) ) 
    248248            END DO 
    249249         END DO 
Note: See TracChangeset for help on using the changeset viewer.