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/physics/physics_interface.f90

    r533 r739  
    7878    USE icosa 
    7979    IMPLICIT NONE 
    80     INTEGER :: ind, offset 
     80    INTEGER :: ind, offset, ngrid 
    8181 
    8282    offset=0 
    … …  
    9191    END DO 
    9292    physics_inout%ngrid = offset 
     93 
     94    ngrid=offset 
     95    ! Input                                                                                                      
     96    ALLOCATE(physics_inout%Ai(ngrid)) 
     97    ALLOCATE(physics_inout%lon(ngrid)) 
     98    ALLOCATE(physics_inout%lat(ngrid)) 
     99    ALLOCATE(physics_inout%phis(ngrid)) 
     100    ALLOCATE(physics_inout%p(ngrid,llm+1)) 
     101    ALLOCATE(physics_inout%pk(ngrid,llm)) 
     102    ALLOCATE(physics_inout%Temp(ngrid,llm)) 
     103    ALLOCATE(physics_inout%ulon(ngrid,llm)) 
     104    ALLOCATE(physics_inout%ulat(ngrid,llm)) 
     105    ALLOCATE(physics_inout%q(ngrid,llm,nqtot)) 
     106    ! Output (tendencies) 
     107    ALLOCATE(physics_inout%dTemp(ngrid,llm)) 
     108    ALLOCATE(physics_inout%dulon(ngrid,llm)) 
     109    ALLOCATE(physics_inout%dulat(ngrid,llm)) 
     110    ALLOCATE(physics_inout%dq(ngrid,llm,nqtot)) 
    93111 
    94112  END SUBROUTINE init_pack_before 
Note: See TracChangeset for help on using the changeset viewer.