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

LMDZ6/trunk/libf/dyn3d_common/laplacien_rot.f90

@@ -2 +2 @@
 ! $Header$
 !
-      SUBROUTINE laplacien_rot ( klevel, rotin, rotout,ghx,ghy )
-c
-c    P. Le Van
-c
-c   ************************************************************
-c    ...  calcul de  ( rotat x nxgrad )  du rotationnel rotin  .
-c   ************************************************************
-c
-c     klevel et rotin  sont des arguments  d'entree pour le s-prog
-c      rotout           est  un argument  de sortie pour le s-prog
-c
-      IMPLICIT NONE
-c
-      INCLUDE "dimensions.h"
-      INCLUDE "paramet.h"
-      INCLUDE "comgeom.h"
+SUBROUTINE laplacien_rot ( klevel, rotin, rotout,ghx,ghy )
+  !
+  !    P. Le Van
+  !
+  !   ************************************************************
+  !    ...  calcul de  ( rotat x nxgrad )  du rotationnel rotin  .
+  !   ************************************************************
+  !
+  ! klevel et rotin  sont des arguments  d'entree pour le s-prog
+  !  rotout           est  un argument  de sortie pour le s-prog
+  !
+  IMPLICIT NONE
+  !
+  INCLUDE "dimensions.h"
+  INCLUDE "paramet.h"
+  INCLUDE "comgeom.h"
 
-c 
-c   ..........    variables  en  arguments     .............
-c
-      INTEGER klevel
-      REAL rotin( ip1jm,klevel ), rotout( ip1jm,klevel )
-c
-c   ..........    variables   locales       ................
-c
-      REAL ghy(ip1jm,klevel), ghx(ip1jmp1,klevel)
-c   ........................................................
-c
-c
-      CALL  filtreg ( rotin ,   jjm, klevel,   2, 1, .FALSE., 1 )
+  !
+  !   ..........    variables  en  arguments     .............
+  !
+  INTEGER :: klevel
+  REAL :: rotin( ip1jm,klevel ), rotout( ip1jm,klevel )
+  !
+  !   ..........    variables   locales       ................
+  !
+  REAL :: ghy(ip1jm,klevel), ghx(ip1jmp1,klevel)
+  !   ........................................................
+  !
+  !
+  CALL  filtreg ( rotin ,   jjm, klevel,   2, 1, .FALSE., 1 )
 
-      CALL   nxgrad ( klevel, rotin,   ghx ,  ghy               )
-      CALL   rotatf  ( klevel, ghx  ,   ghy , rotout             )
-c
-      RETURN
-      END
+  CALL   nxgrad ( klevel, rotin,   ghx ,  ghy               )
+  CALL   rotatf  ( klevel, ghx  ,   ghy , rotout             )
+  !
+  RETURN
+END SUBROUTINE laplacien_rot