| 1 | 681,684d680 |
|---|
| 2 | < |
|---|
| 3 | < !IF (ru_tendf(i,k,j).NE.0) THEN |
|---|
| 4 | < !!!caca caca |
|---|
| 5 | < !PRINT *, 'dynamics tendencies (compare)', ru_tend(i,k,j) |
|---|
| 6 | 687,688c683,685 |
|---|
| 7 | < !!!caca |
|---|
| 8 | < !PRINT *, 'physics tendencies / mF (compare)', ru_tendf(i,k,j)/msfu(i,j) |
|---|
| 9 | --- |
|---|
| 10 | > !!!!caca |
|---|
| 11 | > !IF (ru_tendf(i,k,j).NE.0) THEN |
|---|
| 12 | > !PRINT *, 'u physics tendencies / mF (compare)', ru_tendf(i,k,j)/msfu(i,j) |
|---|
| 13 | 691,692d687 |
|---|
| 14 | < |
|---|
| 15 | < |
|---|
| 16 | 700,703d694 |
|---|
| 17 | < |
|---|
| 18 | < !IF (rv_tendf(i,k,j).NE.0) THEN |
|---|
| 19 | < !!!caca caca |
|---|
| 20 | < !PRINT *, 'dynamics tendencies (compare)', rv_tend(i,k,j) |
|---|
| 21 | 706,707c697,699 |
|---|
| 22 | < !!!caca |
|---|
| 23 | < !PRINT *, 'physics tendencies / mF (compare)', rv_tendf(i,k,j)/msfv(i,j) |
|---|
| 24 | --- |
|---|
| 25 | > !!!!caca |
|---|
| 26 | > !IF (rv_tendf(i,k,j).NE.0) THEN |
|---|
| 27 | > !PRINT *, 'v physics tendencies / mF (compare)', rv_tendf(i,k,j)/msfv(i,j) |
|---|
| 28 | 710d701 |
|---|
| 29 | < |
|---|
| 30 | 729,732d719 |
|---|
| 31 | < |
|---|
| 32 | < !IF (t_tendf(i,k,j).NE.0) THEN |
|---|
| 33 | < !!!caca caca |
|---|
| 34 | < !PRINT *, 'dynamics tendencies (compare)', t_tend(i,k,j) |
|---|
| 35 | 736,737c723,725 |
|---|
| 36 | < !!!caca |
|---|
| 37 | < !PRINT *, 'physics tendencies / mF (compare)', t_tendf(i,k,j)/msft(i,j) |
|---|
| 38 | --- |
|---|
| 39 | > !!!!caca |
|---|
| 40 | > !IF (t_tendf(i,k,j).NE.0) THEN |
|---|
| 41 | > !PRINT *, 't physics tendencies / mF (compare)', t_tendf(i,k,j)/msft(i,j) |
|---|
| 42 | 739,740c727 |
|---|
| 43 | < !ENDIF |
|---|
| 44 | < |
|---|
| 45 | --- |
|---|
| 46 | > !ENDIF |
|---|
| 47 | 898a886 |
|---|
| 48 | > |
|---|
