Changeset 5246 for LMDZ6/trunk/libf/dyn3d_common/interpost.f90

Timestamp:

Oct 21, 2024, 2:58:45 PM (23 hours ago)

Author:

abarral

Message:

Convert fixed-form to free-form sources .F -> .{f,F}90
(WIP: some .F remain, will be handled in subsequent commits)

File:

• LMDZ6/trunk/libf/dyn3d_common/interpost.f90 (moved) (moved from LMDZ6/trunk/libf/dyn3d_common/interpost.F) (1 diff)

LMDZ6/trunk/libf/dyn3d_common/interpost.f90

@@ -2 +2 @@
 ! $Header$
 !
-        subroutine interpost(q,qppm)
+  subroutine interpost(q,qppm)
 
-       implicit none
+   implicit none
 
 
-      include "dimensions.h"
-      include "paramet.h"
-      include "comgeom2.h"
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom2.h"
 
-c Arguments   
-      real   q(iip1,jjp1,llm)
-      real   qppm(iim,jjp1,llm)
-c Local
-      integer l,i,j
-  
-c RE-INVERSION DES NIVEAUX
-c le programme ppm3d travaille avec une 3ème coordonnée inversée par rapport
-c de celle du LMDZ: z=1<=>niveau max, z=llm+1<=>surface
-c On passe donc des niveaux de Lin à ceux du LMDZ
-           
-        do l=1,llm
-          do j=1,jjp1
-             do i=1,iim
-                 q(i,j,l)=qppm(i,j,llm-l+1)
-             enddo
-          enddo
+  ! Arguments
+  real :: q(iip1,jjp1,llm)
+  real :: qppm(iim,jjp1,llm)
+  ! Local
+  integer :: l,i,j
+
+  ! RE-INVERSION DES NIVEAUX
+  ! le programme ppm3d travaille avec une 3ème coordonnée inversée par rapport
+  ! de celle du LMDZ: z=1<=>niveau max, z=llm+1<=>surface
+  ! On passe donc des niveaux de Lin à ceux du LMDZ
+
+    do l=1,llm
+      do j=1,jjp1
+         do i=1,iim
+             q(i,j,l)=qppm(i,j,llm-l+1)
          enddo
-            
-c BOUCLAGE EN LONGITUDE PAS EFFECTUE DANS PPM3D
+      enddo
+     enddo
 
-         do l=1,llm
-           do j=1,jjp1
-            q(iip1,j,l)=q(1,j,l)
-           enddo
-         enddo
-  
-      
-       return
+  ! BOUCLAGE EN LONGITUDE PAS EFFECTUE DANS PPM3D
 
-       end
+     do l=1,llm
+       do j=1,jjp1
+        q(iip1,j,l)=q(1,j,l)
+       enddo
+     enddo
+
+
+   return
+
+end subroutine interpost