Changeset 4179 for trunk/LMDZ.GENERIC/libf/phygeneric/soil_settings.F

Timestamp:

Apr 10, 2026, 5:31:47 PM (3 days ago)

Author:

emillour

Message:

Generic PCM:
Clean up code: put inter_line.F in a module util_linear_interpolation.F90 and
also turn soil.F and soil_settings.F into modules.
EM

File:

• trunk/LMDZ.GENERIC/libf/phygeneric/soil_settings.F (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phygeneric/soil_settings.F

@@ +1 @@
+      module soil_settings_mod
+      
+      implicit none
+      
+      contains
+      
       subroutine soil_settings(nid,ngrid,nsoil,tsurf,tsoil,indextime)
 
-!      use netcdf
       use comsoil_h, only: layer, mlayer, inertiedat, volcapa,
      &                     lay1_soil, alpha_soil
+      use util_linear_interpolation_mod, only: interp_line
       use iostart, only: inquire_field_ndims, get_var, get_field,
      &                   inquire_field, inquire_dimension_length
@@ -364 +370 @@
       xmax = MAXVAL(tsoil)
       write(*,*)'Soil temperature <tsoil>:',xmin,xmax
-      end
+      
+      end subroutine soil_settings
+      
+      end module soil_settings_mod