Dear Mduda
The solution for my experiments was to include a modification to the NoahmpDriverMainMod.f90 code described below.
I don't know if this is the best option?
141
142 if ( NoahmpIO%itimestep == 1 ) then
143 do i = NoahmpIO%its, NoahmpIO%ite
144 if ( (NoahmpIO%xland(i)-1.5) >= 0.0 ) then ! open water point
145 if ( NoahmpIO%xice(i) == 1.0 ) print*,' sea-ice at water point, i=',i
146 NoahmpIO%smstav(i) = 1.0
147 NoahmpIO%smstot(i) = 1.0
148 do k = 1, NoahmpIO%nsoil
149 NoahmpIO%smois(i,k) = 1.0
150 NoahmpIO%tslb(i,k) = 273.16
151 enddo
152 else
153 if ( NoahmpIO%xice(i) == 1.0 ) then ! sea-ice case
154 NoahmpIO%smstav(i) = 1.0
155 NoahmpIO%smstot(i) = 1.0
156 do k = 1, NoahmpIO%nsoil
157 NoahmpIO%smois(i,k) = 1.0
158 enddo
159 endif
160 endif
!PK Solution for MONAN experiments
161 do k = 1, NoahmpIO%nsoil
162 if(NoahmpIO%tslb(i,k) > 273.16 )then
163 NoahmpIO%sh2o (i,k) = NoahmpIO%smois(i,k)
164 endif
165 enddo
!PK Solution for MONAN experiments
166 enddo
167 endif ! end of initialization over ocean
168