add one store directive to avoid recomputing the routine in AD-mode

MITgcm · Dec 7, 2023 · 134b5b4 · 134b5b4
1 parent 928b537
commit 134b5b4
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/pkg/shelfice/shelfice_thermodynamics.F b/pkg/shelfice/shelfice_thermodynamics.F
@@ -710,6 +710,11 @@ SUBROUTINE SHELFICE_THERMODYNAMICS(
 C     end bi,bj loops
        ENDDO
       ENDDO
+#ifdef ALLOW_AUTODIFF_TAMC
+C     Avoid recomputing most of the routine body in the AD-code
+CADJ STORE shelfIceFreshWaterFlux
+CADJ &     = comlev1, key=ikey_dynamics, kind=isbyte
+#endif
 
       IF (SHELFICEMassStepping) THEN
        CALL SHELFICE_STEP_ICEMASS( myTime, myIter, myThid )