Ignore:
Timestamp:
09/21/18 01:44:51 (6 years ago)
Author:
dubos
Message:

devel : small cleanup in idealized physics

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/dcmip/physics_dcmip2016.f90

    r732 r739  
    7171    END IF 
    7272 
     73    ! Physics-specific data 
    7374    ngrid = physics_inout%ngrid 
    74     ! Input 
    75     ALLOCATE(physics_inout%Ai(ngrid)) 
    76     ALLOCATE(physics_inout%lon(ngrid)) 
    77     ALLOCATE(physics_inout%lat(ngrid)) 
    78     ALLOCATE(physics_inout%phis(ngrid)) 
    79     ALLOCATE(physics_inout%p(ngrid,llm+1)) 
    80     ALLOCATE(physics_inout%pk(ngrid,llm)) 
    81     ALLOCATE(physics_inout%Temp(ngrid,llm)) 
    82     ALLOCATE(physics_inout%ulon(ngrid,llm)) 
    83     ALLOCATE(physics_inout%ulat(ngrid,llm)) 
    84     ALLOCATE(physics_inout%q(ngrid,llm,nqtot)) 
    85     ! Output (tendencies) 
    86     ALLOCATE(physics_inout%dTemp(ngrid,llm)) 
    87     ALLOCATE(physics_inout%dulon(ngrid,llm)) 
    88     ALLOCATE(physics_inout%dulat(ngrid,llm)) 
    89     ALLOCATE(physics_inout%dq(ngrid,llm,nqtot)) 
    90     ! Physics-specific data 
    9175    ALLOCATE(precl_packed(ngrid)) 
    9276    CALL allocate_field(f_precl, field_t,type_real) 
Note: See TracChangeset for help on using the changeset viewer.