Ignore:
Timestamp:
10/08/18 10:49:07 (6 years ago)
Author:
dubos
Message:

devel/unstructured : fix recently introduced bugs

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r698 r749  
    3434  NUM :: tau, gamma, tau2_g, tau2_g2, g2, gm2, vreff, Rd_preff 
    3535  INTEGER :: iter 
     36  LOGICAL :: debug_hevi_solver 
    3637  DECLARE_INDICES 
    3738  NUM :: rho_ij, X_ij, Y_ij, wil, rho_c2_mik, c2_mik, ml_g2 
    … …  
    5253#endif 
    5354 
     55  debug_hevi_solver=.FALSE. 
     56!$OMP MASTER 
     57  debug_hevi_solver = debug_hevi_solver_ 
     58!$OMP END MASTER 
     59 
    5460  START_TRACE(id_NH_geopot, 7,0,0) 
    5561#include "../kernels_unst/compute_NH_geopot.k90" 
    5662  STOP_TRACE   
     63 
     64!$OMP MASTER 
     65  debug_hevi_solver_ = debug_hevi_solver 
     66!$OMP END MASTER 
    5767 
    5868#if COLUMN 
Note: See TracChangeset for help on using the changeset viewer.