- 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/laplacien_rot.f90
r5136 r5159 3 3 4 4 SUBROUTINE laplacien_rot( klevel, rotin, rotout,ghx,ghy ) 5 ! 5 6 6 ! P. Le Van 7 ! 7 8 8 ! ************************************************************ 9 9 ! ... calcul de ( rotat x nxgrad ) du rotationnel rotin . 10 10 ! ************************************************************ 11 ! 11 12 12 ! klevel et rotin sont des arguments d'entree pour le s-prog 13 13 ! rotout est un argument de sortie pour le s-prog 14 ! 14 15 15 USE lmdz_filtreg, ONLY: filtreg 16 16 USE lmdz_comgeom 17 17 18 USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm 19 USE lmdz_paramet 18 20 IMPLICIT NONE 19 21 ! 20 INCLUDE "dimensions.h"21 INCLUDE "paramet.h"22 22 23 ! 23 24 25 24 26 ! .......... variables en arguments ............. 25 ! 27 26 28 INTEGER :: klevel 27 29 REAL :: rotin( ip1jm,klevel ), rotout( ip1jm,klevel ) 28 ! 30 29 31 ! .......... variables locales ................ 30 ! 32 31 33 REAL :: ghy(ip1jm,klevel), ghx(ip1jmp1,klevel) 32 34 ! ........................................................ 33 ! 34 ! 35 36 35 37 CALL filtreg ( rotin , jjm, klevel, 2, 1, .FALSE., 1 ) 36 38 37 39 CALL nxgrad ( klevel, rotin, ghx , ghy ) 38 40 CALL rotatf ( klevel, ghx , ghy , rotout ) 39 ! 41 40 42 RETURN 41 43 END SUBROUTINE laplacien_rot
Note: See TracChangeset
for help on using the changeset viewer.