source: LMDZ6/branches/cirrus/libf/phylmd/Dust/minmaxqfi2.F @ 4945

Last change on this file since 4945 was 4593, checked in by yann meurdesoif, 18 months ago

Replace #include (c preprocessor) by INCLUDE (fortran keyword)

in phylmd (except rrtm and ecrad) filtrez, dy3dmem and dyn3dcommon

Other directories will follow
YM

File size: 762 bytes
Line 
1      subroutine minmaxqfi2(zq,qmin,qmax,comment)
2c
3      USE dimphy
4      USE infotrac
5      INCLUDE "dimensions.h"
6
7!      character*20 comment
8      character*(*) comment
9      real qmin,qmax
10      real zq(klon,klev)
11
12      integer ijmin, lmin, ijlmin
13      integer ijmax, lmax, ijlmax
14
15      integer ismin,ismax
16
17      ijlmin=ismin(klon*klev,zq,1)
18      lmin=(ijlmin-1)/klon+1
19      ijmin=ijlmin-(lmin-1)*klon
20      zqmin=zq(ijmin,lmin)
21
22      ijlmax=ismax(klon*klev,zq,1)
23      lmax=(ijlmax-1)/klon+1
24      ijmax=ijlmax-(lmax-1)*klon
25      zqmax=zq(ijmax,lmax)
26 
27      if(zqmin.lt.qmin.or.zqmax.gt.qmax)
28     s     write(*,9999) comment,
29     s     ijmin,lmin,zqmin,ijmax,lmax,zqmax
30
31      return
329999  format(a20,2('  q(',i4,',',i2,')=',e12.5))
33      end
Note: See TracBrowser for help on using the repository browser.