81 |
ENDDO |
ENDDO |
82 |
ENDDO |
ENDDO |
83 |
|
|
|
print *,' in diag_vegtile_fill for ',chardiag, |
|
|
. ' ndiagnum ',ndiagnum,' ipointer ',ipointer |
|
|
|
|
84 |
C If-sequence to see if we are a valid and an active diagnostic |
C If-sequence to see if we are a valid and an active diagnostic |
85 |
|
|
86 |
IF ( ndiagnum.NE.0 .AND. ipointer.NE.0 ) THEN |
IF ( ndiagnum.NE.0 .AND. ipointer.NE.0 ) THEN |
145 |
|
|
146 |
DO k = kFirst,kLast |
DO k = kFirst,kLast |
147 |
kd = kd0 + ksgn*k |
kd = kd0 + ksgn*k |
|
print *,' level slot in qdiag= ',kd, ' level from input= ',k |
|
148 |
if( check ) then |
if( check ) then |
149 |
undef = getcon('UNDEF') |
undef = getcon('UNDEF') |
150 |
do i= 1,Lena |
do i= 1,Lena |