Changeset 26886 for issm/trunk-jpl/test/MITgcm/code_4003/shelfice_step_icemass.F

Timestamp:

02/13/22 14:07:27 (3 years ago)

Author:

dmenemen

Message:

first working check-in of test4003

File:

• issm/trunk-jpl/test/MITgcm/code_4003/shelfice_step_icemass.F (modified) (1 diff)

issm/trunk-jpl/test/MITgcm/code_4003/shelfice_step_icemass.F

@@ -73 +73 @@
           DO j=1-OLy,sNy+OLy-1
            DO i=1-OLx+1,sNx+OLx-1
-             shelficeMass(i,j,bi,bj) = R_shelfIce(i,j,bi,bj) * rhoConst
+             shelficeMass(i,j,bi,bj) = -R_shelfIce(i,j,bi,bj) * rhoConst
            ENDDO
           ENDDO