85 |
ELSE |
ELSE |
86 |
|
|
87 |
IF (iaire==1) THEN |
IF (iaire==1) THEN |
88 |
CALL scopy(iim, sddv, 1, sdd1, 1) |
sdd1 = sddv |
89 |
CALL scopy(iim, unsddv, 1, sdd2, 1) |
sdd2 = unsddv |
90 |
ELSE |
ELSE |
91 |
CALL scopy(iim, unsddv, 1, sdd1, 1) |
sdd1 = unsddv |
92 |
CALL scopy(iim, sddv, 1, sdd2, 1) |
sdd2 = sddv |
93 |
END IF |
END IF |
94 |
|
|
95 |
jdfil1 = 2 |
jdfil1 = 2 |
104 |
ELSE |
ELSE |
105 |
|
|
106 |
IF (iaire==1) THEN |
IF (iaire==1) THEN |
107 |
CALL scopy(iim, sddu, 1, sdd1, 1) |
sdd1 = sddu |
108 |
CALL scopy(iim, unsddu, 1, sdd2, 1) |
sdd2 = unsddu |
109 |
ELSE |
ELSE |
110 |
CALL scopy(iim, unsddu, 1, sdd1, 1) |
sdd1 = unsddu |
111 |
CALL scopy(iim, sddu, 1, sdd2, 1) |
sdd2 = sddu |
112 |
END IF |
END IF |
113 |
|
|
114 |
jdfil1 = 1 |
jdfil1 = 1 |