Changeset 775


Ignore:
Timestamp:
11/16/18 13:12:38 (5 years ago)
Author:
dubos
Message:

devel/unstructured : fix missing OMP END DO

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/unstructured/timestep_unstructured.F90

    r688 r775  
    148148                du_slow(:,ij,stage)=0. 
    149149             END DO 
     150             !$OMP END DO 
    150151              
    151152             CALL compute_theta(mass_col,rhodz,theta_rhodz, theta) 
    … …  
    156157             CALL compute_pvort_only(rhodz,u,qv,qu) 
    157158             CALL update_halo(transfer_edge, qu) 
    158  
     159             
    159160             CALL compute_caldyn_slow_hydro(rhodz,theta,u, berni,hflux,du_slow(:,:,stage)) 
    160161             CALL compute_coriolis(hflux,theta,qu, bufu1, drhodz(:,:,stage), & 
Note: See TracChangeset for help on using the changeset viewer.