Ignore:
Timestamp:
04/14/16 23:12:41 (8 years ago)
Author:
dubos
Message:

New : positive advection option for theta

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/disvert_std.f90

    r266 r377  
    11MODULE disvert_std_mod 
    22  USE icosa 
     3  IMPLICIT NONE 
     4  PRIVATE 
     5 
    36  REAL(rstd), SAVE, ALLOCATABLE,TARGET :: ap(:) 
    47!$OMP THREADPRIVATE(ap) 
    … …  
    710  REAL(rstd), SAVE, ALLOCATABLE,TARGET :: presnivs(:) 
    811!$OMP THREADPRIVATE(presnivs) 
     12 
     13  PUBLIC :: init_disvert, ap, bp, presnivs 
    914 
    1015CONTAINS 
Note: See TracChangeset for help on using the changeset viewer.