Changeset 3488 for trunk/LMDZ.COMMON/libf/evolution

Timestamp:

Oct 30, 2024, 12:44:37 PM (3 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/dyn_ss_ice_m_wrapper.f90 (modified) (1 diff)

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

@@ -1 +1 @@
 subroutine dyn_ss_ice_m_wrapper(ngrid,nsoil,tHIn,p0,pfrost,T_in,ssi_depth_in,porefill_in,porefill,ssi_depth)
 
-  use allinterfaces
+  use allinterfaces, only: dyn_ss_ice_m
   implicit none
   integer               ngrid,nsoil