Changeset 527 for codes/icosagcm/devel/src
- Timestamp:
- 01/27/17 15:38:52 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/sponge.f90
r328 r527 103 103 REAL(rstd),POINTER :: due(:,:)!,due_sponge(:,:) 104 104 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(:,:) 107 107 108 108 INTEGER :: ind … … 131 131 due(ij+u_ldown,l) = -rdamp(l)*ue(ij+u_ldown,l) 132 132 133 dtheta_rhodz(ij,l ) = 0.0133 dtheta_rhodz(ij,l,:) = 0.0 134 134 ENDDO 135 135 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.