source: LMDZ6/trunk/libf/dyn3d_common/gr_v_scal.f90 @ 5450

Last change on this file since 5450 was 5285, checked in by abarral, 2 months 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.2 KB
RevLine 
[524]1!
2! $Header$
3!
[5246]4SUBROUTINE gr_v_scal(nx,x_v,x_scal)
5  !%W%    %G%
6  !=======================================================================
7  !
8  !   Author:    Frederic Hourdin      original: 11/11/92
9  !   -------
10  !
11  !   Subject:
12  !   ------
13  !
14  !   Method:
15  !   --------
16  !
17  !   Interface:
18  !   ----------
19  !
20  !  Input:
21  !  ------
22  !
23  !  Output:
24  !  -------
25  !
26  !=======================================================================
[5281]27  USE comgeom_mod_h
[5271]28  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
[5285]29USE paramet_mod_h
[5271]30IMPLICIT NONE
[5246]31  !-----------------------------------------------------------------------
32  !   Declararations:
33  !   ---------------
[524]34
[5271]35
[5272]36
[524]37
[5246]38  !   Arguments:
39  !   ----------
[524]40
[5246]41  INTEGER :: nx
42  REAL :: x_v(ip1jm,nx),x_scal(ip1jmp1,nx)
[524]43
[5246]44  !   Local:
45  !   ------
[524]46
[5246]47  INTEGER :: l,ij
[524]48
[5246]49  !-----------------------------------------------------------------------
[524]50
[5246]51  DO l=1,nx
52     DO ij=iip2,ip1jm
53        x_scal(ij,l)= &
54              (airev(ij-iip1)*x_v(ij-iip1,l)+airev(ij)*x_v(ij,l)) &
55              /(airev(ij-iip1)+airev(ij))
56     ENDDO
57     DO ij=1,iip1
58        x_scal(ij,l)=0.
59     ENDDO
60     DO ij=ip1jm+1,ip1jmp1
61        x_scal(ij,l)=0.
62     ENDDO
63  ENDDO
[524]64
[5246]65  RETURN
66END SUBROUTINE gr_v_scal
Note: See TracBrowser for help on using the repository browser.