Changeset 6790


Ignore:
Timestamp:
2016-07-05T13:30:25+02:00 (5 years ago)
Author:
mocavero
Message:

hybrid version update

Location:
branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

    r6748 r6790  
    257257      ! Lateral boundary conditions on velocity (modify fmask) 
    258258      ! ---------------------------------------      
    259 !$OMP PARALLEL DO schedule(static) private(jk, jj, ji) 
    260259      DO jk = 1, jpk 
    261260         zwf(:,:) = fmask(:,:,jk)          
  • branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90

    r6748 r6790  
    213213         END DO 
    214214         ! 
    215 !$OMP PARALLEL DO schedule(static) private(jk,jj,ji,zchl,irgb,zc0,zc1,zc2,zc3) 
    216215         DO jk = 2, nksr+1                   !* interior equi-partition in R-G-B depending of vertical profile of Chl 
    217216            DO jj = 2, jpjm1 
Note: See TracChangeset for help on using the changeset viewer.