Fix typo

darwinproject · Jun 11, 2024 · 233ff02 · 233ff02
1 parent 3e9a5e6
commit 233ff02
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/pkg/darwin/darwin_surfforcing.F b/pkg/darwin/darwin_surfforcing.F
@@ -275,7 +275,7 @@ SUBROUTINE DARWIN_SURFFORCING(
           surfphos = ptr2mol * MAX(surfPO4Min,
      &               MIN(surfPO4Max, Ptracer(i,j,k,bi,bj,iPO4)))
      &               * maskC(i,j,k,bi,bj)
-          surfsi   = ptr2mol * MAX(surfSiMinINit,
+          surfsi   = ptr2mol * MAX(surfSiMin,
      &               MIN(surfSiMax, Ptracer(i,j,k,bi,bj,iSiO2)))
      &               * maskC(i,j,k,bi,bj)
 

diff --git a/pkg/darwin/darwin_surfforcing_init.F b/pkg/darwin/darwin_surfforcing_init.F
@@ -153,7 +153,7 @@ SUBROUTINE DARWIN_SURFFORCING_INIT(myThid)
              surfphos = ptr2mol * MAX(surfPO4MinInit,
      &                  MIN(surfPO4MaxInit, Ptracer(i,j,k,bi,bj,iPO4)))
      &                  * maskC(i,j,k,bi,bj)
-             surfsi   = ptr2mol * MAX(surfSiMinINit,
+             surfsi   = ptr2mol * MAX(surfSiMinInit,
      &                  MIN(surfSiMaxInit, Ptracer(i,j,k,bi,bj,iSiO2)))
      &                  * maskC(i,j,k,bi,bj)
 C$TAF init dic_surf = static, 10