Changeset 322 for codes/icosagcm/trunk
- Timestamp:
- 01/22/15 01:51:47 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/theta_rhodz.f90
r295 r322 14 14 USE field_mod 15 15 IMPLICIT NONE 16 CALL allocate_field(f_p,field_t,type_real,llm+1,name='p ')17 CALL allocate_field(f_pk,field_t,type_real,llm,name='pk ')18 CALL allocate_field(f_pks,field_t,type_real,name='pks ')16 CALL allocate_field(f_p,field_t,type_real,llm+1,name='p (theta2theta_rhodz_mod)') 17 CALL allocate_field(f_pk,field_t,type_real,llm,name='pk (theta2theta_rhodz_mod)') 18 CALL allocate_field(f_pks,field_t,type_real,name='pks (theta2theta_rhodz_mod)') 19 19 20 20 END SUBROUTINE init_theta2theta_rhodz … … 60 60 REAL(rstd), POINTER :: theta_rhodz(:,:) 61 61 REAL(rstd), POINTER :: temp(:,:) 62 REAL(rstd), POINTER :: p(: )62 REAL(rstd), POINTER :: p(:,:) 63 63 REAL(rstd), POINTER :: pk(:,:) 64 REAL(rstd), POINTER :: pks(: ,:)64 REAL(rstd), POINTER :: pks(:) 65 65 INTEGER :: ind 66 66 … … 99 99 REAL(rstd), POINTER :: theta_rhodz(:,:) 100 100 REAL(rstd), POINTER :: temp(:,:) 101 REAL(rstd), POINTER :: p(: )101 REAL(rstd), POINTER :: p(:,:) 102 102 REAL(rstd), POINTER :: pk(:,:) 103 REAL(rstd), POINTER :: pks(: ,:)103 REAL(rstd), POINTER :: pks(:) 104 104 INTEGER :: ind 105 105
Note: See TracChangeset
for help on using the changeset viewer.