Changeset 1010 for palm/trunk/SOURCE/modules.f90
- Timestamp:
- Sep 20, 2012 7:59:54 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/modules.f90
r1004 r1010 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! 6 ! pointer free version can be generated with cpp switch __nopointer 7 7 ! 8 8 ! Former revisions: … … 359 359 v_m_s, w_m_l, w_m_n, w_m_r, w_m_s 360 360 361 #if defined( __nopointer ) 362 REAL, DIMENSION(:,:,:), ALLOCATABLE, TARGET :: & 363 e, e_p, p, prho, pt, pt_p, q, q_p, ql, ql_c, ql_v, ql_vp, rho, sa, & 364 sa_p, te_m, tpt_m, tq_m, tsa_m, tu_m, tv_m, tw_m, u, u_p, v, v_p, & 365 vpt, w, w_p 366 #else 361 367 REAL, DIMENSION(:,:,:), ALLOCATABLE, TARGET :: & 362 368 e_1, e_2, e_3, p, prho_1, pt_1, pt_2, pt_3, q_1, q_2, q_3, ql_v, & … … 367 373 e, e_p, prho, pt, pt_p, q, q_p, ql, ql_c, rho, sa, sa_p, te_m, & 368 374 tpt_m, tq_m, tsa_m, tu_m, tv_m, tw_m, u, u_p, v, v_p, vpt, w, w_p 375 #endif 369 376 370 377 REAL, DIMENSION(:,:,:,:), ALLOCATABLE :: rif_wall … … 1021 1028 1022 1029 CHARACTER (LEN=*), INTENT(IN) :: sk_char 1030 #if defined( __nopointer ) 1031 REAL, DIMENSION(:,:,:) :: sk 1032 #else 1023 1033 REAL, DIMENSION(:,:,:), POINTER :: sk 1024 1034 #endif 1025 1035 END SUBROUTINE advec_s_bc 1026 1036
Note: See TracChangeset
for help on using the changeset viewer.