Changeset 10491


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

Minor changes in isf load computation to fit change in DOMAINcfg

Location:
NEMO/trunk
Files:
2 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 
  • NEMO/trunk/tests/ISOMIP/MY_SRC/usrdef_zgr.F90

    r10425 r10491  
    150150                  ! e3t into the ice shelf 
    151151                  pe3t (ji,jj,ik-1) = pdepw(ji,jj,ik  ) - pdepw(ji,jj,ik-1) 
     152                  pe3w (ji,jj,ik-1) = pdept(ji,jj,ik-1) - pdept(ji,jj,ik-2) 
    152153               END IF 
    153154            END DO 
Note: See TracChangeset for help on using the changeset viewer.