- Timestamp:
- 2021-12-03T20:32:50+01:00 (3 years ago)
- Location:
- NEMO/branches/2021/dev_r14318_RK3_stage1
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14318_RK3_stage1
- Property svn:externals
-
old new 9 9 10 10 # SETTE 11 ^/utils/CI/sette@14244 sette 11 ^/utils/CI/sette@HEAD sette 12
-
- Property svn:externals
-
NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/lib_fortran_generic.h90
r13226 r15574 38 38 !!----------------------------------------------------------------------- 39 39 ! 40 REAL(wp) 40 REAL(wp) :: FUNCTION_GLOB_OP ! global sum 41 41 !! 42 42 COMPLEX(dp):: ctmp 43 43 REAL(wp) :: ztmp 44 INTEGER :: ji, jj, jk ! dummy loop indices 45 INTEGER :: ipi, ipj, ipk ! dimensions 44 INTEGER :: ji, jj, jk ! dummy loop indices 45 INTEGER :: ipi,ipj, ipk ! dimensions 46 INTEGER :: iis, iie, ijs, ije ! loop start and end 46 47 !!----------------------------------------------------------------------- 47 48 ! … … 50 51 ipk = K_SIZE(ptab) ! 3rd dimension 51 52 ! 53 IF( ipi == jpi .AND. ipj == jpj ) THEN ! do 2D loop only over the inner domain (-> avoid to use undefined values) 54 iis = Nis0 ; iie = Nie0 55 ijs = Njs0 ; ije = Nje0 56 ELSE 57 iis = 1 ; iie = jpi 58 ijs = 1 ; ije = jpj 59 ENDIF 60 ! 52 61 ctmp = CMPLX( 0.e0, 0.e0, dp ) ! warning ctmp is cumulated 53 54 62 DO jk = 1, ipk 55 DO jj = 1, ipj56 DO ji = 1, ipi63 DO jj = ijs, ije 64 DO ji = iis, iie 57 65 ztmp = ARRAY_IN(ji,jj,jk) * MASK_ARRAY(ji,jj) 58 66 CALL DDPDD( CMPLX( ztmp, 0.e0, dp ), ctmp )
Note: See TracChangeset
for help on using the changeset viewer.