Changeset 5105 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/dump2d.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/dyn3d_common/dump2d.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/dyn3d_common/dump2d.F) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/dump2d.f90

@@ -2 +2 @@
 ! $Id$
 
-      SUBROUTINE dump2d(im,jm,z,nom_z)
-      IMPLICIT NONE
-      INTEGER im,jm
-      REAL z(im,jm)
-      CHARACTER (len=*) :: nom_z
+SUBROUTINE dump2d(im,jm,z,nom_z)
+  IMPLICIT NONE
+  INTEGER :: im,jm
+  REAL :: z(im,jm)
+  CHARACTER (len=*) :: nom_z
 
-      INTEGER i,j,imin,illm,jmin,jllm
-      REAL zmin,zllm
+  INTEGER :: i,j,imin,illm,jmin,jllm
+  REAL :: zmin,zllm
 
-      WRITE(*,*) "dump2d: ",trim(nom_z)
+  WRITE(*,*) "dump2d: ",trim(nom_z)
 
-      zmin=z(1,1)
-      zllm=z(1,1)
-      imin=1
-      illm=1
-      jmin=1
-      jllm=1
+  zmin=z(1,1)
+  zllm=z(1,1)
+  imin=1
+  illm=1
+  jmin=1
+  jllm=1
 
-      DO j=1,jm
-         DO i=1,im
-            IF(z(i,j)>zllm) THEN
-               illm=i
-               jllm=j
-               zllm=z(i,j)
-            ENDIF
-            IF(z(i,j)<zmin) THEN
-               imin=i
-               jmin=j
-               zmin=z(i,j)
-            ENDIF
-         ENDDO
-      ENDDO
+  DO j=1,jm
+     DO i=1,im
+        IF(z(i,j)>zllm) THEN
+           illm=i
+           jllm=j
+           zllm=z(i,j)
+        ENDIF
+        IF(z(i,j)<zmin) THEN
+           imin=i
+           jmin=j
+           zmin=z(i,j)
+        ENDIF
+     ENDDO
+  ENDDO
 
-      PRINT*,'MIN: ',zmin
-      PRINT*,'MAX: ',zllm
+  PRINT*,'MIN: ',zmin
+  PRINT*,'MAX: ',zllm
 
-      IF(zllm>zmin) THEN
-       DO j=1,jm
-        WRITE(*,'(600i1)') (NINT(10.*(z(i,j)-zmin)/(zllm-zmin)),i=1,im)
-       ENDDO
-      ENDIF
-      RETURN
-      END
+  IF(zllm>zmin) THEN
+   DO j=1,jm
+    WRITE(*,'(600i1)') (NINT(10.*(z(i,j)-zmin)/(zllm-zmin)),i=1,im)
+   ENDDO
+  ENDIF
+  RETURN
+END SUBROUTINE dump2d