diff --git a/pkg/darwin/darwin_surfforcing.F b/pkg/darwin/darwin_surfforcing.F index 89211ee7a..827ffa2ed 100644 --- 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 index 55b428ab7..063256dd9 100644 --- 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