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