444 |
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
445 |
CADJ STORE gv(:,:,k,bi,bj) |
CADJ STORE gv(:,:,k,bi,bj) |
446 |
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
447 |
|
# ifndef ALLOW_ADAMSBASHFORTH_3 |
448 |
CADJ STORE gunm1(:,:,k,bi,bj) |
CADJ STORE gunm1(:,:,k,bi,bj) |
449 |
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
450 |
CADJ STORE gvnm1(:,:,k,bi,bj) |
CADJ STORE gvnm1(:,:,k,bi,bj) |
451 |
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
452 |
|
# else |
453 |
|
CADJ STORE gunm(:,:,k,bi,bj,1) |
454 |
|
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
455 |
|
CADJ STORE gunm(:,:,k,bi,bj,2) |
456 |
|
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
457 |
|
CADJ STORE gvnm(:,:,k,bi,bj,1) |
458 |
|
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
459 |
|
CADJ STORE gvnm(:,:,k,bi,bj,2) |
460 |
|
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
461 |
|
# endif |
462 |
# ifdef ALLOW_CD_CODE |
# ifdef ALLOW_CD_CODE |
463 |
CADJ STORE unm1(:,:,k,bi,bj) |
CADJ STORE unm1(:,:,k,bi,bj) |
464 |
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |