Context Navigation

dyn3dmem

Timestamp:

Jul 24, 2024, 6:46:45 PM (2 months ago)

Author:

abarral

Message:

enforce PRIVATE by default in several modules, expose PUBLIC as needed
move eigen.f90 to obsolete/
(lint) aslong the way

Location:

LMDZ6/branches/Amaury_dev/libf/dyn3dmem

Files:

-                      r5117
+                      r5119
     INTEGER,DIMENSION(:),ALLOCATABLE :: distrib_phys
   contains
+  CONTAINS
   SUBROUTINE AllocateBands
 …
     END SUBROUTINE  WriteBands
   end module Bands
+  END MODULE Bands

-                      r5117
+                      r5119
   IMPLICIT NONE
+contains
+CONTAINS
   SUBROUTINE  exner_hyb_loc(ngrid, ps, p, pks, pk, pkf)
 …
   END SUBROUTINE exner_hyb_loc
 end module exner_hyb_loc_m
+END MODULE exner_hyb_loc_m

-                      r5117
+                      r5119
   IMPLICIT NONE
+contains
+CONTAINS
   SUBROUTINE exner_milieu_loc( ngrid, ps, p, pks, pk, pkf )
 …
   END SUBROUTINE exner_milieu_loc
 end module exner_milieu_loc_m
+END MODULE exner_milieu_loc_m

-                      r5117
+                      r5119
   END INTERFACE Register_SwapField2d_v
   contains
+  CONTAINS
   SUBROUTINE Init_mod_hallo
 …
     END SUBROUTINE  Scatter_field_v
+end module mod_Hallo
+END MODULE mod_Hallo

r5118	r5119
76	76	TYPE(distrib), SAVE :: current_dist
77	77
78		contains
	78	CONTAINS
79	79
80	80	SUBROUTINE init_parallel

-                      r5117
+                      r5119
   INTEGER, ALLOCATABLE,DIMENSION(:) :: timer_state
   contains
+  CONTAINS
   SUBROUTINE init_timer
 …
   END FUNCTION DiffCpuTime
 end module times
+END MODULE times

-                      r5117
+                      r5119
   end interface WriteField_v
   contains
+  CONTAINS
   SUBROUTINE write_field1D_u(name,Field)
 …
     END SUBROUTINE write_field_v_gen
 end module write_field_loc
+END MODULE write_field_loc

-                      r5117
+                      r5119
   end interface WriteField_p
   contains
+  CONTAINS
   SUBROUTINE write_field1D_p(name,Field)
 …
   END SUBROUTINE  write_field3D_p
 end module write_field_p
+END MODULE write_field_p

Note: See TracChangeset for help on using the changeset viewer.