Changeset 5105 for LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/gr_fi_dyn.f90

Timestamp:

Jul 23, 2024, 7:14:34 PM (8 weeks ago)

Author:

abarral

Message:

Replace 1DUTILS.h by module lmdz_1dutils.f90
Replace 1DConv.h by module lmdz_old_1dconv.f90 (it's only used by old_* files)
Convert *.F to *.f90
Fix gradsdef.h formatting
Remove unnecessary "RETURN" at the end of functions/subroutines

File:

• LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/gr_fi_dyn.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/gr_fi_dyn.F) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/gr_fi_dyn.f90

@@ -2 +2 @@
 ! $Header$
 
-      SUBROUTINE gr_fi_dyn(nfield,ngrid,im,jm,pfi,pdyn)
-      IMPLICIT NONE
-c=======================================================================
-c   passage d'un champ de la grille scalaire a la grille physique
-c=======================================================================
+SUBROUTINE gr_fi_dyn(nfield,ngrid,im,jm,pfi,pdyn)
+  IMPLICIT NONE
+  !=======================================================================
+  !   passage d'un champ de la grille scalaire a la grille physique
+  !=======================================================================
 
-c-----------------------------------------------------------------------
-c   declarations:
-c   -------------
+  !-----------------------------------------------------------------------
+  !   declarations:
+  !   -------------
 
-      INTEGER im,jm,ngrid,nfield
-      REAL pdyn(im,jm,nfield)
-      REAL pfi(ngrid,nfield)
+  INTEGER :: im,jm,ngrid,nfield
+  REAL :: pdyn(im,jm,nfield)
+  REAL :: pfi(ngrid,nfield)
 
-      INTEGER i,j,ifield,ig
+  INTEGER :: i,j,ifield,ig
 
-c-----------------------------------------------------------------------
-c   calcul:
-c   -------
+  !-----------------------------------------------------------------------
+  !   calcul:
+  !   -------
 
-      DO ifield=1,nfield
-c   traitement des poles
-         DO i=1,im
-            pdyn(i,1,ifield)=pfi(1,ifield)
-            pdyn(i,jm,ifield)=pfi(ngrid,ifield)
-         ENDDO
+  DO ifield=1,nfield
+  !   traitement des poles
+     DO i=1,im
+        pdyn(i,1,ifield)=pfi(1,ifield)
+        pdyn(i,jm,ifield)=pfi(ngrid,ifield)
+     ENDDO
 
-c   traitement des point normaux
-         DO j=2,jm-1
-            ig=2+(j-2)*(im-1)
-            CALL SCOPY(im-1,pfi(ig,ifield),1,pdyn(1,j,ifield),1)
-            pdyn(im,j,ifield)=pdyn(1,j,ifield)
-         ENDDO
-      ENDDO
+  !   traitement des point normaux
+     DO j=2,jm-1
+        ig=2+(j-2)*(im-1)
+        CALL SCOPY(im-1,pfi(ig,ifield),1,pdyn(1,j,ifield),1)
+        pdyn(im,j,ifield)=pdyn(1,j,ifield)
+     ENDDO
+  ENDDO
 
-      RETURN
-      END
+  RETURN
+END SUBROUTINE gr_fi_dyn