Ignore:
Timestamp:
2018-05-22T11:09:09+02:00 (2 years ago)
Author:
andmirek
Message:

#2001 few additionale changes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_OMP/NEMOGCM/NEMO/OPA_SRC/DYN/divcur.F90

    r9176 r9616  
    287287      ENDIF 
    288288 
    289 !$OMP PARALLEL DO                                      ! =============== 
    290       DO jk = 1, jpkm1                                 ! Horizontal slab 
    291          !                                             ! =============== 
    292          ! 
    293          hdivb(:,:,jk) = hdivn(:,:,jk)    ! time swap of div arrays 
    294          rotb (:,:,jk) = rotn (:,:,jk)    ! time swap of rot arrays 
    295          ! 
     289         hdivb(:,:,1:jpkm1) = hdivn(:,:,1:jpkm1)    ! time swap of div arrays 
     290         rotb (:,:,1:jpkm1) = rotn (:,:,1:jpkm1)    ! time swap of rot arrays 
     291 
    296292         !                                             ! -------- 
    297293         ! Horizontal divergence                       !   div  
    298294         !                                             ! -------- 
     295!$OMP PARALLEL DO 
     296      DO jk = 1, jpkm1 
    299297         DO jj = 2, jpjm1 
    300298            DO ji = fs_2, fs_jpim1   ! vector opt. 
     
    312310            IF ((nbondj == -1).OR.(nbondj == 2)) hdivn(:      ,2      ,jk) = 0.e0      ! south 
    313311         ENDIF 
     312      END DO 
    314313 
    315314         !                                             ! -------- 
    316315         ! relative vorticity                          !   rot  
    317316         !                                             ! -------- 
     317!$OMP PARALLEL DO 
     318      DO jk = 1, jpkm1 
    318319         DO jj = 1, jpjm1 
    319320            DO ji = 1, fs_jpim1   ! vector opt. 
Note: See TracChangeset for help on using the changeset viewer.