source: LMDZ5/trunk/libf/phylmd/Dust/minmaxsource.F @ 3357

Last change on this file since 3357 was 2630, checked in by fhourdin, 8 years ago

Importation du modèle d'aérosols de Boucher, Escribano et al.

File size: 758 bytes
RevLine 
[2630]1      subroutine minmaxsource(zq,qmin,qmax,comment)
2
3      USE dimphy
4      USE infotrac
5
6#include "dimensions.h"
7
8!      character*20 comment
9      character*(*) comment
10      real qmin,qmax
11      real zq(klon,nbtr)
12
13      integer ijmin, lmin, ijlmin
14      integer ijmax, lmax, ijlmax
15
16      integer ismin,ismax
17
18      ijlmin=ismin(klon*nbtr,zq,1)
19      lmin=(ijlmin-1)/klon+1
20      ijmin=ijlmin-(lmin-1)*klon
21      zqmin=zq(ijmin,lmin)
22
23      ijlmax=ismax(klon*nbtr,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.