Changeset 5246 for LMDZ6/trunk/libf/dyn3d/covnat.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/covnat.F90 (moved) (moved from LMDZ6/trunk/libf/dyn3d/covnat.F) (2 diffs)

LMDZ6/trunk/libf/dyn3d/covnat.F90

@@ -2 +2 @@
 ! $Header$
 !
-      SUBROUTINE covnat (klevel,ucov, vcov, unat, vnat )
-      IMPLICIT NONE
+SUBROUTINE covnat (klevel,ucov, vcov, unat, vnat )
+  IMPLICIT NONE
 
-c=======================================================================
-c
-c   Auteur:  F Hourdin Phu LeVan
-c   -------
-c
-c   Objet:
-c   ------
-c
-c  *********************************************************************
-c    calcul des compos. naturelles a partir des comp.covariantes
-c  ********************************************************************
-c
-c=======================================================================
+  !=======================================================================
+  !
+  !   Auteur:  F Hourdin Phu LeVan
+  !   -------
+  !
+  !   Objet:
+  !   ------
+  !
+  !  *********************************************************************
+  !    calcul des compos. naturelles a partir des comp.covariantes
+  !  ********************************************************************
+  !
+  !=======================================================================
 
 #include "dimensions.h"
@@ -23 +23 @@
 #include "comgeom.h"
 
-      INTEGER klevel
-      REAL ucov( ip1jmp1,klevel ),  vcov( ip1jm,klevel )
-      REAL unat( ip1jmp1,klevel ), vnat( ip1jm,klevel )
-      INTEGER   l,ij
+  INTEGER :: klevel
+  REAL :: ucov( ip1jmp1,klevel ),  vcov( ip1jm,klevel )
+  REAL :: unat( ip1jmp1,klevel ), vnat( ip1jm,klevel )
+  INTEGER :: l,ij
 
 
-      DO l = 1,klevel
-         DO ij = 1, iip1
-            unat (ij,l) =0.
-         END DO
+  DO l = 1,klevel
+     DO ij = 1, iip1
+        unat (ij,l) =0.
+     END DO
 
-         DO ij = iip2, ip1jm
-            unat( ij,l ) = ucov( ij,l ) / cu(ij)
-         ENDDO
-         DO ij = ip1jm+1, ip1jmp1  
-            unat (ij,l) =0.
-         END DO
+     DO ij = iip2, ip1jm
+        unat( ij,l ) = ucov( ij,l ) / cu(ij)
+     ENDDO
+     DO ij = ip1jm+1, ip1jmp1
+        unat (ij,l) =0.
+     END DO
 
-         DO ij = 1,ip1jm
-            vnat( ij,l ) = vcov( ij,l ) / cv(ij)
-         ENDDO
+     DO ij = 1,ip1jm
+        vnat( ij,l ) = vcov( ij,l ) / cv(ij)
+     ENDDO
 
-      ENDDO
-      RETURN
-      END
+  ENDDO
+  RETURN
+END SUBROUTINE covnat