368 |
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
369 |
CADJ STORE salt (:,:,k,bi,bj) |
CADJ STORE salt (:,:,k,bi,bj) |
370 |
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
371 |
|
CADJ STORE gt(:,:,k,bi,bj) |
372 |
|
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
373 |
|
CADJ STORE gs(:,:,k,bi,bj) |
374 |
|
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
375 |
# ifdef NONLIN_FRSURF |
# ifdef NONLIN_FRSURF |
376 |
cph-test |
cph-test |
377 |
CADJ STORE phiHydC (:,:) |
CADJ STORE phiHydC (:,:) |