Ignore:
Timestamp:
06/14/19 01:17:50 (5 years ago)
Author:
dubos
Message:

devel : compute_rhodz for unstructured mesh

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/time/timeloop_gcm.f90

    r820 r906  
    55  USE trace 
    66  USE omp_para 
     7  USE compute_diagnostics_mod, ONLY : compute_rhodz 
    78  USE euler_scheme_mod 
    89  USE explicit_scheme_mod 
    … …  
    247248    !$OMP END MASTER    
    248249 
     250    IF(grid_type == grid_unst) RETURN 
     251 
    249252    DO it=itau0+1,itau0+itaumax 
    250253       IF (is_master) CALL print_iteration(it, itau0, itaumax, start_clock, rate_clock) 
Note: See TracChangeset for help on using the changeset viewer.