Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/dudv1_loc.f90
- Timestamp:
- Aug 2, 2024, 9:58:25 PM (7 weeks ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/dyn3dmem/dudv1_loc.f90
r5117 r5159 1 1 SUBROUTINE dudv1_loc( vorpot, pbaru, pbarv, du, dv ) 2 2 USE parallel_lmdz 3 USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm 4 USE lmdz_paramet 3 5 IMPLICIT NONE 4 ! 6 5 7 !----------------------------------------------------------------------- 6 ! 8 7 9 ! Auteur: P. Le Van 8 10 ! ------- 9 ! 11 10 12 ! Objet: 11 13 ! ------ … … 14 16 ! vorpot, pbaru et pbarv sont des arguments d'entree pour le s-pg .. 15 17 ! du et dv sont des arguments de sortie pour le s-pg .. 16 ! 18 17 19 !----------------------------------------------------------------------- 18 20 19 INCLUDE "dimensions.h" 20 INCLUDE "paramet.h" 21 22 21 23 22 24 REAL :: vorpot( ijb_v:ije_v,llm ) ,pbaru( ijb_u:ije_u,llm ) , & … … 24 26 REAL :: du( ijb_u:ije_u,llm ) ,dv( ijb_v:ije_v,llm ) 25 27 INTEGER :: l,ij,ijb,ije 26 ! 28 27 29 ! 28 30 29 31 !$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 30 32 DO l = 1,llm 31 ! 33 32 34 ijb=ij_begin 33 35 ije=ij_end … … 43 45 44 46 45 ! 47 46 48 IF (pole_nord) ijb=ij_begin 47 49 … … 51 53 pbaru(ij+iip1, l) + pbaru(ij+iip2, l) ) 52 54 END DO 53 ! 55 54 56 ! .... correction pour dv( 1,j,l ) ..... 55 57 ! .... dv(1,j,l)= dv(iip1,j,l) .... 56 ! 58 57 59 !DIR$ IVDEP 58 60 DO ij = ijb, ije, iip1 59 61 dv( ij,l ) = dv( ij + iim, l ) 60 62 END DO 61 ! 63 62 64 END DO 63 65 !$OMP END DO NOWAIT
Note: See TracChangeset
for help on using the changeset viewer.