Changeset 5246 for LMDZ6/trunk/libf/dyn3d_common/gr_ecrit_fi.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/gr_ecrit_fi.f90 (moved) (moved from LMDZ6/trunk/libf/dyn3d_common/gr_ecrit_fi.F) (1 diff)

LMDZ6/trunk/libf/dyn3d_common/gr_ecrit_fi.f90

@@ -2 +2 @@
 ! $Header$
 !
-        SUBROUTINE gr_ecrit_fi(nfield,nlon,iim,jjmp1,ecrit,fi)
+  SUBROUTINE gr_ecrit_fi(nfield,nlon,iim,jjmp1,ecrit,fi)
 
-        IMPLICIT none
+    IMPLICIT none
 
-c Transformer une variable de la grille d'ecriture a la grille physique
-        
-        INTEGER nfield,nlon,iim,jjmp1, jjm
-      REAL fi(nlon,nfield), ecrit(iim,jjmp1,nfield)
-c
-      INTEGER i, j, n, ig
-c
-c       print*,'iim jjm ',iim,jjm
+  ! Transformer une variable de la grille d'ecriture a la grille physique
 
-c modif par abd 21 02 01
+    INTEGER :: nfield,nlon,iim,jjmp1, jjm
+  REAL :: fi(nlon,nfield), ecrit(iim,jjmp1,nfield)
+  !
+  INTEGER :: i, j, n, ig
+  !
+  ! print*,'iim jjm ',iim,jjm
 
-        jjm = jjmp1 - 1
-        do n = 1, nfield
-            fi(1,n) = ecrit(1,1,n)
-            fi(nlon,n) = ecrit(1,jjm+1,n)
-         DO j = 2, jjm
-            ig = 2+(j-2)*iim
-            DO i = 1, iim
-             fi(ig-1+i,n) = ecrit(i,j,n)
-            ENDDO
-         ENDDO
-      ENDDO
-      RETURN
-      END
+  ! modif par abd 21 02 01
 
+    jjm = jjmp1 - 1
+    do n = 1, nfield
+        fi(1,n) = ecrit(1,1,n)
+        fi(nlon,n) = ecrit(1,jjm+1,n)
+     DO j = 2, jjm
+        ig = 2+(j-2)*iim
+        DO i = 1, iim
+         fi(ig-1+i,n) = ecrit(i,j,n)
+        ENDDO
+     ENDDO
+  ENDDO
+  RETURN
+END SUBROUTINE gr_ecrit_fi
+