Changeset 22797

Timestamp:

05/21/18 11:46:06 (7 years ago)

Author:

dmenemen

Message:

MITgcm sends shelficeFreshWaterFlux
instead of shelficeHeatFlux to ISSM

File:

• issm/trunk-jpl/test/MITgcm/code/cpl_issm.F (modified) (2 diffs)

issm/trunk-jpl/test/MITgcm/code/cpl_issm.F

@@ -159 +159 @@
                DO j=1,sNy
                   DO i=1,sNx
-                     local(i,j,bi,bj) = shelficeHeatFlux(i,j,bi,bj)
+                     local(i,j,bi,bj)=shelficeFreshWaterFlux(i,j,bi,bj)
                   ENDDO
                ENDDO
@@ -175 +175 @@
          ENDIF
          CALL BAR2( myThid )
-         print*,'Done Sending shelficeHeatFlux array.'
+         print*,'Done Sending shelficeFreshWaterFlux array.'
          
       ENDIF