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 7698 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limhdf.F90 – NEMO

Ignore:
Timestamp:
2017-02-18T10:02:03+01:00 (7 years ago)
Author:
mocavero
Message:

update trunk with OpenMP parallelization

File:
1 edited

Legend:

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

    r7646 r7698  
    254254 
    255255      CASE( 0 ) 
    256          ahiu(:,:) = rn_ahi0_ref 
    257          ahiv(:,:) = rn_ahi0_ref 
     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 
    258263 
    259264         IF(lwp) WRITE(numout,*) '' 
     
    265270         IF( lk_mpp )   CALL mpp_max( zd_max )          ! max over the global domain 
    266271          
    267          ahiu(:,:) = rn_ahi0_ref * zd_max * 1.e-05_wp   ! 1.e05 = 100km = max grid space at 60deg latitude in orca2 
     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 
    268276                                                        !                    (60deg = min latitude for ice cover)   
    269          ahiv(:,:) = rn_ahi0_ref * zd_max * 1.e-05_wp 
     277               ahiv(ji,jj) = rn_ahi0_ref * zd_max * 1.e-05_wp 
     278            END DO 
     279         END DO 
    270280 
    271281         IF(lwp) WRITE(numout,*) '' 
     
    280290         za00 = rn_ahi0_ref * 1.e-05_wp          ! 1.e05 = 100km = max grid space at 60deg latitude in orca2 
    281291                                                 !                    (60deg = min latitude for ice cover)   
     292!$OMP PARALLEL DO schedule(static) private(jj,ji) 
    282293         DO jj = 1, jpj 
    283294            DO ji = 1, jpi 
Note: See TracChangeset for help on using the changeset viewer.