Changeset 3996 for trunk/LMDZ.MARS/libf/phymars/surfdat_h.F90

Timestamp:

Jan 12, 2026, 9:49:50 AM (42 hours ago)

Author:

jbclement

Message:

Mars PCM:
Deletion of unused legacy code in "initracer.F90".
JBC

File:

• trunk/LMDZ.MARS/libf/phymars/surfdat_h.F90 (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/surfdat_h.F90

@@ -62 +62 @@
 
   implicit none
-  integer,intent(in) :: ngrid ! number of atmospheric columns
-  integer,intent(in) :: nq ! number of tracers
-  integer,intent(in) :: nslope ! number of sub-grid scale slope
+  integer,intent(in) :: ngrid  ! number of atmospheric columns
+  integer,intent(in) :: nq     ! number of tracers
+  integer,intent(in) :: nslope ! number of sub-grid scale slopes
 
     allocate(albedodat(ngrid))