source: LMDZ6/branches/contrails/libf/dyn3d_common/convflu.f90 @ 5424

Last change on this file since 5424 was 5285, checked in by abarral, 8 weeks ago

As discussed internally, remove generic ONLY: ... for new _mod_h modules

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.6 KB
Line 
1!
2! $Header$
3!
4SUBROUTINE convflu( xflu,yflu,nbniv,convfl )
5  !
6  !  P. Le Van
7  !
8  !
9  !    *******************************************************************
10  !  ... calcule la (convergence horiz. * aire locale)du flux ayant pour
11  !  composantes xflu et yflu ,variables extensives .  ......
12  !    *******************************************************************
13  !  xflu , yflu et nbniv sont des arguments d'entree pour le s-pg ..
14  !  convfl                est  un argument de sortie pour le s-pg .
15  !
16  ! njxflu  est le nombre de lignes de latitude de xflu,
17  ! ( = jjm ou jjp1 )
18  ! nbniv   est le nombre de niveaux vert. de  xflu et de yflu .
19  !
20  USE comgeom_mod_h
21  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
22USE paramet_mod_h
23IMPLICIT NONE
24  !
25
26
27  REAL :: xflu,yflu,convfl,convpn,convps
28  INTEGER :: l,ij,nbniv
29  DIMENSION  xflu( ip1jmp1,nbniv ),yflu( ip1jm,nbniv ) , &
30        convfl( ip1jmp1,nbniv )
31  !
32  REAL :: SSUM
33  !
34  !
35  !
36  DO l = 1,nbniv
37  !
38  DO  ij = iip2, ip1jm - 1
39  convfl( ij + 1,l ) =  xflu(   ij,l ) - xflu( ij +  1,l )   + &
40        yflu(ij +1,l ) - yflu( ij -iim,l )
41  END DO
42  !
43  !
44
45  ! ....  correction pour  convfl( 1,j,l)  ......
46  ! ....   convfl(1,j,l)= convfl(iip1,j,l) ...
47  !
48  !DIR$ IVDEP
49  DO ij = iip2,ip1jm,iip1
50  convfl( ij,l ) = convfl( ij + iim,l )
51  END DO
52  !
53  ! ......  calcul aux poles  .......
54  !
55  convpn =   SSUM( iim, yflu(     1    ,l ),  1 )
56  convps = - SSUM( iim, yflu( ip1jm-iim,l ),  1 )
57  DO ij = 1,iip1
58  convfl(     ij   ,l ) = convpn * aire(   ij     ) / apoln
59  convfl( ij+ ip1jm,l ) = convps * aire( ij+ ip1jm) / apols
60  END DO
61  !
62  END DO
63  RETURN
64END SUBROUTINE convflu
Note: See TracBrowser for help on using the repository browser.