Changeset 3727 for trunk/LMDZ.MARS/libf/phymars/soil_settings.F

Timestamp:

Apr 17, 2025, 5:28:46 PM (2 months ago)

Author:

emillour

Message:

Mars PCM:
Code tidying: put routines in modules, remove useless "return" statements and
remove obsolete and unused scopyi.F
EM

File:

• trunk/LMDZ.MARS/libf/phymars/soil_settings.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/soil_settings.F

@@ +1 @@
+      module soil_settings_mod
+      
+      implicit none
+      
+      contains
+      
       subroutine soil_settings(nid,ngrid,nsoil,nqsoil,tsurf,tsoil,
      &                         qsoil,indextime)
@@ -516 +522 @@
       write(*,*)'Soil temperature <tsoil>:',xmin,xmax
 
-      end
+      end subroutine soil_settings
+      
+      end module soil_settings_mod
+