source: LMDZ6/trunk/libf/dynphy_lonlat/gr_dyn_fi.F @ 3352

Last change on this file since 3352 was 2239, checked in by Ehouarn Millour, 10 years ago

Reorganizing physics/dynamics interface:

  • what is related to dynamics-physics interface is now in a seperate directory: dynlmdz_phy* for physics in phy*
  • 1d model and related dependencies (including a couple from "dynamics", set up as symbolic links) is now in subdirectory "dyn1d" of phy*.
  • "bibio" directory is now "misc" and should only contain autonomous utilities.
  • "cosp" is now a subdirectory of phylmd.

EM

  • 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.0 KB
Line 
1!
2! $Header$
3!
4      SUBROUTINE gr_dyn_fi(nfield,im,jm,ngrid,pdyn,pfi)
5      IMPLICIT NONE
6c=======================================================================
7c   passage d'un champ de la grille scalaire a la grille physique
8c=======================================================================
9
10c-----------------------------------------------------------------------
11c   declarations:
12c   -------------
13
14      INTEGER im,jm,ngrid,nfield
15      REAL pdyn(im,jm,nfield)
16      REAL pfi(ngrid,nfield)
17
18      INTEGER j,ifield,ig
19
20c-----------------------------------------------------------------------
21c   calcul:
22c   -------
23
24      IF(ngrid.NE.2+(jm-2)*(im-1)) STOP 'probleme de dim'
25c   traitement des poles
26      CALL SCOPY(nfield,pdyn,im*jm,pfi,ngrid)
27      CALL SCOPY(nfield,pdyn(1,jm,1),im*jm,pfi(ngrid,1),ngrid)
28
29c   traitement des point normaux
30      DO ifield=1,nfield
31         DO j=2,jm-1
32            ig=2+(j-2)*(im-1)
33            CALL SCOPY(im-1,pdyn(1,j,ifield),1,pfi(ig,ifield),1)
34         ENDDO
35      ENDDO
36
37      RETURN
38      END
Note: See TracBrowser for help on using the repository browser.