47 |
c |
c |
48 |
CADJ STORE gs = tapelev2, key = ilev_2 |
CADJ STORE gs = tapelev2, key = ilev_2 |
49 |
CADJ STORE gt = tapelev2, key = ilev_2 |
CADJ STORE gt = tapelev2, key = ilev_2 |
50 |
|
#ifdef ALLOW_ADAMSBASHFORTH_3 |
51 |
|
CADJ STORE gtnm(:,:,:,:,1) = tapelev2, key = ilev_2 |
52 |
|
CADJ STORE gsnm(:,:,:,:,1) = tapelev2, key = ilev_2 |
53 |
|
CADJ STORE gunm(:,:,:,:,1) = tapelev2, key = ilev_2 |
54 |
|
CADJ STORE gvnm(:,:,:,:,1) = tapelev2, key = ilev_2 |
55 |
|
CADJ STORE gtnm(:,:,:,:,2) = tapelev2, key = ilev_2 |
56 |
|
CADJ STORE gsnm(:,:,:,:,2) = tapelev2, key = ilev_2 |
57 |
|
CADJ STORE gunm(:,:,:,:,2) = tapelev2, key = ilev_2 |
58 |
|
CADJ STORE gvnm(:,:,:,:,2) = tapelev2, key = ilev_2 |
59 |
|
#else |
60 |
CADJ STORE gtnm1 = tapelev2, key = ilev_2 |
CADJ STORE gtnm1 = tapelev2, key = ilev_2 |
61 |
CADJ STORE gsnm1 = tapelev2, key = ilev_2 |
CADJ STORE gsnm1 = tapelev2, key = ilev_2 |
62 |
CADJ STORE gunm1 = tapelev2, key = ilev_2 |
CADJ STORE gunm1 = tapelev2, key = ilev_2 |
63 |
CADJ STORE gvnm1 = tapelev2, key = ilev_2 |
CADJ STORE gvnm1 = tapelev2, key = ilev_2 |
64 |
|
#endif |
65 |
CADJ STORE theta = tapelev2, key = ilev_2 |
CADJ STORE theta = tapelev2, key = ilev_2 |
66 |
CADJ STORE salt = tapelev2, key = ilev_2 |
CADJ STORE salt = tapelev2, key = ilev_2 |
67 |
CADJ STORE uvel = tapelev2, key = ilev_2 |
CADJ STORE uvel = tapelev2, key = ilev_2 |