source: LMDZ5/branches/LMDZ5_SPLA/libf/phylmd/minmaxqfi2.F

Last change on this file was 2175, checked in by jescribano, 10 years ago

SPLA code included for first time

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