Changeset 527 for codes/icosagcm/devel


Ignore:
Timestamp:
01/27/17 15:38:52 (7 years ago)
Author:
dubos
Message:

Updated devel to r513

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/sponge.f90

    r328 r527  
    103103    REAL(rstd),POINTER         :: due(:,:)!,due_sponge(:,:) 
    104104    REAL(rstd),POINTER         :: ue(:,:) 
    105     REAL(rstd),POINTER         :: theta_rhodz(:,:) 
    106     REAL(rstd),POINTER         :: dtheta_rhodz(:,:)!,dtheta_sponge(:,:) 
     105    REAL(rstd),POINTER         :: theta_rhodz(:,:,:) 
     106    REAL(rstd),POINTER         :: dtheta_rhodz(:,:,:)!,dtheta_sponge(:,:) 
    107107 
    108108    INTEGER :: ind 
    … …  
    131131            due(ij+u_ldown,l) = -rdamp(l)*ue(ij+u_ldown,l) 
    132132 
    133             dtheta_rhodz(ij,l) = 0.0 
     133            dtheta_rhodz(ij,l,:) = 0.0 
    134134          ENDDO 
    135135        ENDDO 
Note: See TracChangeset for help on using the changeset viewer.