New URL for NEMO forge! http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.

Changeset 6748 for branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/DYN/divhor.F90 – NEMO

Context Navigation

← Previous Change
Next Change →

Changeset 6748 for branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/DYN/divhor.F90

Timestamp:

2016-06-28T11:53:56+02:00 (8 years ago)

Author:

mocavero

Message:

GYRE hybrid parallelization

File:

: 1 edited

branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/DYN/divhor.F90 (modified) (1 diff)

Legend:

: Unmodified
: Added
: Removed

branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/DYN/divhor.F90

r6140	r6748
72	72	ENDIF
73	73	!
	74	!$OMP PARALLEL DO schedule(static) private(jk, jj, ji)
74	75	DO jk = 1, jpkm1 !== Horizontal divergence ==!
75	76	DO jj = 2, jpjm1

Note: See TracChangeset for help on using the changeset viewer.

Download in other formats: