source: LMDZ6/trunk/libf/phylmd/Dust/minmaxqfi2.f90 @ 5445

Last change on this file since 5445 was 5367, checked in by abarral, 3 weeks ago

(WIP) Turn implicit into explicit declarations

File size: 717 bytes
RevLine 
[5246]1subroutine minmaxqfi2(zq,qmin,qmax,comment)
2  !
3  USE dimphy
[5337]4  USE infotrac_phy, ONLY: nbtr
[2630]5
[5246]6   ! character*20 comment
7  character(len=*) :: comment
[5367]8  real :: qmin,qmax,zqmin,zqmax
[5246]9  real :: zq(klon,klev)
[2630]10
[5246]11  integer :: ijmin, lmin, ijlmin
12  integer :: ijmax, lmax, ijlmax
[2630]13
[5246]14  integer :: ismin,ismax
[2630]15
[5246]16  ijlmin=ismin(klon*klev,zq,1)
17  lmin=(ijlmin-1)/klon+1
18  ijmin=ijlmin-(lmin-1)*klon
19  zqmin=zq(ijmin,lmin)
[2630]20
[5246]21  ijlmax=ismax(klon*klev,zq,1)
22  lmax=(ijlmax-1)/klon+1
23  ijmax=ijlmax-(lmax-1)*klon
24  zqmax=zq(ijmax,lmax)
[2630]25
[5246]26  if(zqmin.lt.qmin.or.zqmax.gt.qmax) &
27        write(*,9999) comment, &
28        ijmin,lmin,zqmin,ijmax,lmax,zqmax
29
30  return
319999   format(a20,2('  q(',i4,',',i2,')=',e12.5))
32end subroutine minmaxqfi2
Note: See TracBrowser for help on using the repository browser.