10 |
use dimens_m |
use dimens_m |
11 |
use paramet_m |
use paramet_m |
12 |
use comconst |
use comconst |
13 |
use comvert |
use disvert_m |
14 |
use conf_gcm_m |
use conf_gcm_m |
15 |
IMPLICIT NONE |
IMPLICIT NONE |
16 |
! |
! |
38 |
Logical first,testcpu |
Logical first,testcpu |
39 |
SAVE first,testcpu |
SAVE first,testcpu |
40 |
|
|
41 |
REAL SSUM |
REAL temps1,temps2,temps3,temps4,temps5 |
42 |
REAL temps0,temps1,temps2,temps3,temps4,temps5 |
SAVE temps1,temps2,temps3,temps4,temps5 |
|
SAVE temps0,temps1,temps2,temps3,temps4,temps5 |
|
43 |
|
|
44 |
|
|
45 |
DATA first,testcpu/.true.,.false./ |
DATA first,testcpu/.true.,.false./ |