Changeset 5246 for LMDZ6/trunk/libf/dynphy_lonlat/gr_fi_dyn.f90
- Timestamp:
- Oct 21, 2024, 2:58:45 PM (22 hours ago)
- File:
-
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dynphy_lonlat/gr_fi_dyn.f90
r5245 r5246 2 2 ! $Header$ 3 3 ! 4 5 6 c=======================================================================7 cpassage d'un champ de la grille scalaire a la grille physique8 c=======================================================================4 SUBROUTINE 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 !======================================================================= 9 9 10 c-----------------------------------------------------------------------11 cdeclarations:12 c-------------10 !----------------------------------------------------------------------- 11 ! declarations: 12 ! ------------- 13 13 14 INTEGERim,jm,ngrid,nfield15 REALpdyn(im,jm,nfield)16 REALpfi(ngrid,nfield)14 INTEGER :: im,jm,ngrid,nfield 15 REAL :: pdyn(im,jm,nfield) 16 REAL :: pfi(ngrid,nfield) 17 17 18 INTEGERi,j,ifield,ig18 INTEGER :: i,j,ifield,ig 19 19 20 c-----------------------------------------------------------------------21 ccalcul:22 c-------20 !----------------------------------------------------------------------- 21 ! calcul: 22 ! ------- 23 23 24 25 ctraitement des poles26 27 28 29 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 30 30 31 ctraitement des point normaux32 33 34 35 36 37 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 38 38 39 40 END 39 RETURN 40 END SUBROUTINE gr_fi_dyn
Note: See TracChangeset
for help on using the changeset viewer.