Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/phy_common

Timestamp:

Aug 2, 2024, 2:12:03 PM (5 months ago)

Author:

abarral

Message:

Add missing klon on strataer_emiss_mod.F90
Correct various missing explicit declarations
Replace tabs by spaces (tabs are not part of the fortran charset)
Continue cleaning modules
Removed unused arguments and variables

Location:

LMDZ6/branches/Amaury_dev/libf/phy_common

Files:

• lmdz_grid_phy.F90 (modified) (1 diff)
• lmdz_phys_transfert_para.f90 (modified) (5 diffs)

LMDZ6/branches/Amaury_dev/libf/phy_common/lmdz_grid_phy.F90

@@ -27 +27 @@
     MODULE PROCEDURE grid2dTo1d_glo_i,grid2dTo1d_glo_i1,grid2dTo1d_glo_i2,grid2dTo1d_glo_i3, &
                      grid2dTo1d_glo_r,grid2dTo1d_glo_r1,grid2dTo1d_glo_r2,grid2dTo1d_glo_r3, &
-                     grid2dTo1d_glo_l,grid2dTo1d_glo_l1,grid2dTo1d_glo_l2,grid2dTo1d_glo_l3
+             grid2dTo1d_glo_l,grid2dTo1d_glo_l1,grid2dTo1d_glo_l2,grid2dTo1d_glo_l3
    END INTERFACE 
  

LMDZ6/branches/Amaury_dev/libf/phy_common/lmdz_phys_transfert_para.f90

@@ -13 +13 @@
                      bcast_i,bcast_i1,bcast_i2,bcast_i3,bcast_i4, &
                      bcast_r,bcast_r1,bcast_r2,bcast_r3,bcast_r4, &
-                     bcast_l,bcast_l1,bcast_l2,bcast_l3,bcast_l4
+             bcast_l,bcast_l1,bcast_l2,bcast_l3,bcast_l4
   END INTERFACE
 
@@ -19 +19 @@
     MODULE PROCEDURE scatter_i,scatter_i1,scatter_i2,scatter_i3, &
                      scatter_r,scatter_r1,scatter_r2,scatter_r3, &
-                     scatter_l,scatter_l1,scatter_l2,scatter_l3
+             scatter_l,scatter_l1,scatter_l2,scatter_l3
   END INTERFACE
 
@@ -26 +26 @@
     MODULE PROCEDURE gather_i,gather_i1,gather_i2,gather_i3, &
                      gather_r,gather_r1,gather_r2,gather_r3, &
-                     gather_l,gather_l1,gather_l2,gather_l3  
+             gather_l,gather_l1,gather_l2,gather_l3
   END INTERFACE
   
@@ -32 +32 @@
     MODULE PROCEDURE scatter2D_i,scatter2D_i1,scatter2D_i2,scatter2D_i3, &
                      scatter2D_r,scatter2D_r1,scatter2D_r2,scatter2D_r3, &
-                     scatter2D_l,scatter2D_l1,scatter2D_l2,scatter2D_l3
+             scatter2D_l,scatter2D_l1,scatter2D_l2,scatter2D_l3
   END INTERFACE
 
@@ -38 +38 @@
     MODULE PROCEDURE gather2D_i,gather2D_i1,gather2D_i2,gather2D_i3, &
                      gather2D_r,gather2D_r1,gather2D_r2,gather2D_r3, &
-                     gather2D_l,gather2D_l1,gather2D_l2,gather2D_l3
+             gather2D_l,gather2D_l1,gather2D_l2,gather2D_l3
   END INTERFACE