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 457 for trunk/NEMO/OPA_SRC/TRA/trabbc.F90 – NEMO

Ignore:
Timestamp:
2006-05-10T19:01:19+02:00 (18 years ago)
Author:
opalod
Message:

nemo_v1_update_049:RB: reorganization of tracers part, remove traadv_cen2_atsk.h90 traldf_iso_zps.F90 trazdf_iso.F90 trazdf_iso_vopt.F90, change atsk routines to jki

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/TRA/trabbc.F90

    r392 r457  
    7979 
    8080      !! * Local declarations 
    81 #if defined key_vectopt_loop   &&   ! defined key_autotasking 
     81#if defined key_vectopt_loop   &&   ! defined key_mpp_omp 
    8282      INTEGER ::   ji                  ! dummy loop indices 
    8383#else 
    … …  
    9595      CASE ( 1:2 )                !  geothermal heat flux 
    9696 
    97 #if defined key_vectopt_loop   &&   ! defined key_autotasking 
     97#if defined key_vectopt_loop   &&   ! defined key_mpp_omp 
    9898         DO ji = jpi+2, jpij-jpi-1   ! vector opt. (forced unrolling) 
    9999            ta(ji,1,nbotlevt(ji,1)) = ta(ji,1,nbotlevt(ji,1)) + qgh_trd(ji,1) 
    … …  
    223223      CASE ( 1:2 )                !  geothermal heat flux 
    224224 
    225 #if defined key_vectopt_loop   &&   ! defined key_autotasking 
     225#if defined key_vectopt_loop   &&   ! defined key_mpp_omp 
    226226         DO ji = 1, jpij   ! vector opt. (forced unrolling) 
    227227            qgh_trd(ji,1) = ro0cpr * qgh_trd(ji,1) / fse3t(ji,1,nbotlevt(ji,1) ) 
Note: See TracChangeset for help on using the changeset viewer.