Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/inigrads.f90

Timestamp:

Jul 24, 2024, 2:54:37 PM (2 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d_common/inigrads.f90 (modified) (4 diffs)

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

@@ -7 +7 @@
   IMPLICIT NONE
 
-  integer :: if, im, jm, lm, i, j, l
-  real :: x(im), y(jm), z(lm), fx, fy, fz, dt
-  real :: xmin, xmax, ymin, ymax
+  INTEGER :: if, im, jm, lm, i, j, l
+  REAL :: x(im), y(jm), z(lm), fx, fy, fz, dt
+  REAL :: xmin, xmax, ymin, ymax
 
-  character(len = *), intent(in) :: file
-  character(len = *), intent(in) :: titlel
+  CHARACTER(LEN = *), intent(in) :: file
+  CHARACTER(LEN = *), intent(in) :: titlel
 
   INCLUDE "gradsdef.h"
 
   ! data unit/66,32,34,36,38,40,42,44,46,48/
-  integer :: nf
+  INTEGER :: nf
   save nf
   data nf/0/
@@ -49 +49 @@
   do i = 1, im
     xd(i, if) = x(i) * fx
-    if(xd(i, if)<xmin) iid(if) = i + 1
-    if(xd(i, if)<=xmax) ifd(if) = i
+    IF(xd(i, if)<xmin) iid(if) = i + 1
+    IF(xd(i, if)<=xmax) ifd(if) = i
   enddo
   PRINT*, 'On stoke du point ', iid(if), '  a ', ifd(if), ' en x'
@@ -59 +59 @@
   do j = 1, jm
     yd(j, if) = y(j) * fy
-    if(yd(j, if)>ymax) jid(if) = j + 1
-    if(yd(j, if)>=ymin) jfd(if) = j
+    IF(yd(j, if)>ymax) jid(if) = j + 1
+    IF(yd(j, if)>=ymin) jfd(if) = j
   enddo
   PRINT*, 'On stoke du point ', jid(if), '  a ', jfd(if), ' en y'
@@ -89 +89 @@
 
 
-end subroutine inigrads
+END SUBROUTINE inigrads