Changeset 5104 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/minmaxqfi2.f90

Timestamp:

Jul 23, 2024, 5:57:06 PM (2 months 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 in DUST to *.f90

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/minmaxqfi2.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/minmaxqfi2.F) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/minmaxqfi2.f90

@@ -1 @@
-      SUBROUTINE minmaxqfi2(zq,qmin,qmax,comment)
-c
-      USE dimphy
-      USE infotrac
-      INCLUDE "dimensions.h"
+SUBROUTINE minmaxqfi2(zq, qmin, qmax, comment)
+  !
+  USE dimphy
+  USE infotrac
+  INCLUDE "dimensions.h"
 
-!      character*20 comment
-      character*(*) comment
-      real qmin,qmax
-      real zq(klon,klev)
+  ! character*20 comment
+  character(len = *) :: comment
+  real :: qmin, qmax
+  real :: zq(klon, klev)
 
-      integer ijmin, lmin, ijlmin
-      integer ijmax, lmax, ijlmax
+  integer :: ijmin, lmin, ijlmin
+  integer :: ijmax, lmax, ijlmax
 
-      integer ismin,ismax
+  integer :: ismin, ismax
 
-      ijlmin=ismin(klon*klev,zq,1)
-      lmin=(ijlmin-1)/klon+1
-      ijmin=ijlmin-(lmin-1)*klon
-      zqmin=zq(ijmin,lmin)
+  ijlmin = ismin(klon * klev, zq, 1)
+  lmin = (ijlmin - 1) / klon + 1
+  ijmin = ijlmin - (lmin - 1) * klon
+  zqmin = zq(ijmin, lmin)
 
-      ijlmax=ismax(klon*klev,zq,1)
-      lmax=(ijlmax-1)/klon+1
-      ijmax=ijlmax-(lmax-1)*klon
-      zqmax=zq(ijmax,lmax)
- 
-      if(zqmin<qmin.or.zqmax>qmax)
-     s     write(*,9999) comment,
-     s     ijmin,lmin,zqmin,ijmax,lmax,zqmax
+  ijlmax = ismax(klon * klev, zq, 1)
+  lmax = (ijlmax - 1) / klon + 1
+  ijmax = ijlmax - (lmax - 1) * klon
+  zqmax = zq(ijmax, lmax)
 
-      return
-9999  format(a20,2('  q(',i4,',',i2,')=',e12.5))
-      end
+  if(zqmin<qmin.or.zqmax>qmax) &
+          write(*, 9999) comment, &
+                  ijmin, lmin, zqmin, ijmax, lmax, zqmax
+
+  return
+  9999   format(a20, 2('  q(', i4, ',', i2, ')=', e12.5))
+end subroutine minmaxqfi2