source: LMDZ6/trunk/libf/dynphy_lonlat/gr_fi_dyn.f90 @ 5267

Last change on this file since 5267 was 5246, checked in by abarral, 4 days ago

Convert fixed-form to free-form sources .F -> .{f,F}90
(WIP: some .F remain, will be handled in subsequent commits)
  • 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
RevLine 
[524]1!
2! $Header$
3!
[5246]4SUBROUTINE gr_fi_dyn(nfield,ngrid,im,jm,pfi,pdyn)
5  IMPLICIT NONE
6  !=======================================================================
7  !   passage d'un champ de la grille scalaire a la grille physique
8  !=======================================================================
[524]9
[5246]10  !-----------------------------------------------------------------------
11  !   declarations:
12  !   -------------
[524]13
[5246]14  INTEGER :: im,jm,ngrid,nfield
15  REAL :: pdyn(im,jm,nfield)
16  REAL :: pfi(ngrid,nfield)
[524]17
[5246]18  INTEGER :: i,j,ifield,ig
[524]19
[5246]20  !-----------------------------------------------------------------------
21  !   calcul:
22  !   -------
[524]23
[5246]24  DO ifield=1,nfield
25  !   traitement des poles
26     DO i=1,im
27        pdyn(i,1,ifield)=pfi(1,ifield)
28        pdyn(i,jm,ifield)=pfi(ngrid,ifield)
29     ENDDO
[524]30
[5246]31  !   traitement des point normaux
32     DO j=2,jm-1
33        ig=2+(j-2)*(im-1)
34        CALL SCOPY(im-1,pfi(ig,ifield),1,pdyn(1,j,ifield),1)
35        pdyn(im,j,ifield)=pdyn(1,j,ifield)
36     ENDDO
37  ENDDO
[524]38
[5246]39  RETURN
40END SUBROUTINE gr_fi_dyn
Note: See TracBrowser for help on using the repository browser.