11 |
! |
! |
12 |
! -------------------------------------------------------------------- |
! -------------------------------------------------------------------- |
13 |
! |
! |
|
use dimens_m |
|
|
use paramet_m |
|
14 |
use comconst |
use comconst |
15 |
use comvert |
use dimens_m |
16 |
use logic |
use disvert_m |
17 |
use comgeom |
use conf_gcm_m |
18 |
|
use comgeom, only: aire, apoln, apols |
19 |
USE nr_util, ONLY : pi |
USE nr_util, ONLY : pi |
20 |
|
USE dynetat0_m, only: rlonv, rlonu |
21 |
|
use paramet_m |
22 |
|
|
23 |
IMPLICIT NONE |
IMPLICIT NONE |
24 |
! |
! |
25 |
! |
! |
41 |
REAL qbyv(ip1jm,llm) |
REAL qbyv(ip1jm,llm) |
42 |
|
|
43 |
REAL qpns,qpsn,dyn1,dys1,dyn2,dys2,newmasse,fn,fs |
REAL qpns,qpsn,dyn1,dys1,dyn2,dys2,newmasse,fn,fs |
44 |
! REAL newq,oldmasse |
Logical first |
45 |
Logical first,testcpu |
SAVE first |
|
REAL temps0,temps1,temps2,temps3,temps4,temps5 |
|
|
SAVE temps0,temps1,temps2,temps3,temps4,temps5 |
|
|
SAVE first,testcpu |
|
46 |
|
|
47 |
REAL convpn,convps,convmpn,convmps |
REAL convpn,convps,convmpn,convmps |
48 |
REAL sinlon(iip1),sinlondlon(iip1) |
REAL sinlon(iip1),sinlondlon(iip1) |
53 |
! |
! |
54 |
REAL SSUM |
REAL SSUM |
55 |
|
|
56 |
DATA first,testcpu/.true.,.false./ |
DATA first/.true./ |
|
DATA temps0,temps1,temps2,temps3,temps4,temps5/0.,0.,0.,0.,0.,0./ |
|
57 |
|
|
58 |
IF(first) THEN |
IF(first) THEN |
59 |
PRINT*,'Shema Amont nouveau appele dans Vanleer ' |
PRINT*,'Shema Amont nouveau appele dans Vanleer ' |