Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/rotatf.f90
- Timestamp:
- Aug 2, 2024, 9:58:25 PM (7 weeks ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/dyn3d_common/rotatf.f90
r5136 r5159 3 3 4 4 SUBROUTINE rotatf(klevel, x, y, rot ) 5 ! 5 6 6 ! Auteur : P.Le Van 7 7 !************************************************************** … … 13 13 ! klevel, x et y sont des arguments d'entree pour le s-prog 14 14 ! rot est un argument de sortie pour le s-prog 15 ! 15 16 16 USE lmdz_filtreg, ONLY: filtreg 17 17 USE lmdz_comgeom 18 18 19 USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm 20 USE lmdz_paramet 19 21 IMPLICIT NONE 20 22 ! 21 INCLUDE "dimensions.h" 22 INCLUDE "paramet.h" 23 ! 23 24 25 24 26 ! ..... variables en arguments ...... 25 ! 27 26 28 INTEGER :: klevel 27 29 REAL :: rot( ip1jm,klevel ) 28 30 REAL :: x( ip1jmp1,klevel ), y( ip1jm,klevel ) 29 ! 31 30 32 ! ... variables locales ... 31 ! 33 32 34 INTEGER :: l, ij 33 ! 34 ! 35 36 35 37 DO l = 1,klevel 36 ! 38 37 39 DO ij = 1, ip1jm - 1 38 40 rot( ij,l ) = y( ij+1 , l ) - y( ij,l ) + & 39 41 x(ij +iip1, l ) - x( ij,l ) 40 42 ENDDO 41 ! 43 42 44 ! .... correction pour rot( iip1,j,l) .... 43 45 ! .... rot(iip1,j,l)= rot(1,j,l) ... … … 46 48 rot( ij,l ) = rot( ij -iim,l ) 47 49 ENDDO 48 ! 50 49 51 END DO 50 52 … … 56 58 ENDDO 57 59 ENDDO 58 ! 59 ! 60 61 60 62 RETURN 61 63 END SUBROUTINE rotatf
Note: See TracChangeset
for help on using the changeset viewer.