Ignore:
Timestamp:
2017-03-03T12:46:59+01:00 (4 years ago)
Author:
mocavero
Message:

Reverting trunk to remove OpenMP

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limhdf.F90

    r7698 r7753  
    254254 
    255255      CASE( 0 ) 
    256 !$OMP PARALLEL DO schedule(static) private(jj,ji) 
    257          DO jj = 1, jpj 
    258             DO ji = 1, jpi 
    259                ahiu(ji,jj) = rn_ahi0_ref 
    260                ahiv(ji,jj) = rn_ahi0_ref 
    261             END DO 
    262          END DO 
     256         ahiu(:,:) = rn_ahi0_ref 
     257         ahiv(:,:) = rn_ahi0_ref 
    263258 
    264259         IF(lwp) WRITE(numout,*) '' 
     
    270265         IF( lk_mpp )   CALL mpp_max( zd_max )          ! max over the global domain 
    271266          
    272 !$OMP PARALLEL DO schedule(static) private(jj,ji) 
    273          DO jj = 1, jpj 
    274             DO ji = 1, jpi 
    275                ahiu(ji,jj) = rn_ahi0_ref * zd_max * 1.e-05_wp   ! 1.e05 = 100km = max grid space at 60deg latitude in orca2 
     267         ahiu(:,:) = rn_ahi0_ref * zd_max * 1.e-05_wp   ! 1.e05 = 100km = max grid space at 60deg latitude in orca2 
    276268                                                        !                    (60deg = min latitude for ice cover)   
    277                ahiv(ji,jj) = rn_ahi0_ref * zd_max * 1.e-05_wp 
    278             END DO 
    279          END DO 
     269         ahiv(:,:) = rn_ahi0_ref * zd_max * 1.e-05_wp 
    280270 
    281271         IF(lwp) WRITE(numout,*) '' 
     
    290280         za00 = rn_ahi0_ref * 1.e-05_wp          ! 1.e05 = 100km = max grid space at 60deg latitude in orca2 
    291281                                                 !                    (60deg = min latitude for ice cover)   
    292 !$OMP PARALLEL DO schedule(static) private(jj,ji) 
    293282         DO jj = 1, jpj 
    294283            DO ji = 1, jpi 
Note: See TracChangeset for help on using the changeset viewer.