Ignore:
Timestamp:
09/28/18 12:59:46 (6 years ago)
Author:
dubos
Message:

devel : added vertical diffusion to idealized venus physics

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/physics/physics_interface.f90

    r739 r741  
    1111     REAL(rstd), DIMENSION(:), POINTER :: Ai, lon, lat, phis 
    1212     ! Input, time-dependent 
    13      REAL(rstd), DIMENSION(:,:), POINTER :: p, pk, Temp, ulon, ulat 
     13     REAL(rstd), DIMENSION(:,:), POINTER :: geopot, p, pk, Temp, ulon, ulat 
    1414     REAL(rstd), DIMENSION(:,:,:), POINTER :: q 
    1515     ! Output arrays 
    … …  
    9393 
    9494    ngrid=offset 
    95     ! Input                                                                                                      
     95    ! Input 
    9696    ALLOCATE(physics_inout%Ai(ngrid)) 
    9797    ALLOCATE(physics_inout%lon(ngrid)) 
    … …  
    9999    ALLOCATE(physics_inout%phis(ngrid)) 
    100100    ALLOCATE(physics_inout%p(ngrid,llm+1)) 
     101    ALLOCATE(physics_inout%geopot(ngrid,llm+1)) 
    101102    ALLOCATE(physics_inout%pk(ngrid,llm)) 
    102103    ALLOCATE(physics_inout%Temp(ngrid,llm)) 
Note: See TracChangeset for help on using the changeset viewer.