source: LMDZ5/branches/LMDZ5_SPLA/libf/phylmd/minmaxsource.F @ 4934

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

SPLA code included for first time

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