Changeset 3486 for trunk/LMDZ.COMMON/libf/evolution/fast_modules.f90

Timestamp:

Oct 29, 2024, 2:53:13 PM (4 weeks ago)

Author:

evos

Message:

we added the option to use NS dynamical subsurface ice in the model to more realisticly calculate the amount of ice in the subsurface and therfore the subsurface thermal inertia

File:

• trunk/LMDZ.COMMON/libf/evolution/fast_modules.f90 (modified) (1 diff)

trunk/LMDZ.COMMON/libf/evolution/fast_modules.f90

@@ -249 +249 @@
    end subroutine dyn_ss_ice_m
   end interface
+
+    interface
+      subroutine dyn_ss_ice_m_wrapper(ngrid,nsoil,tHIn,p0,pfrost,T_in,ssi_depth_in,porefill_in,porefill,ssi_depth)
+           implicit none
+           integer, intent(IN) :: nsoil,ngrid
+           real(8),  intent(IN) :: thIn(ngrid),ssi_depth_in(ngrid)
+           real(8),  intent(IN) :: p0(ngrid), pfrost(ngrid)
+           real(8),  intent(IN) :: T_in(nsoil,ngrid)
+           real(8), intent(OUT) :: porefill(nsoil,ngrid)
+           real(8), intent(IN) :: porefill_in(nsoil,ngrid)
+           real(8), intent(OUT) :: ssi_depth(ngrid)
+   end subroutine dyn_ss_ice_m_wrapper
+  end interface
+
 end module allinterfaces