40 |
use nr_util, only: pi |
use nr_util, only: pi |
41 |
use physiq_m, only: physiq |
use physiq_m, only: physiq |
42 |
use pressure_var, only: p3d, pls |
use pressure_var, only: p3d, pls |
43 |
|
use pvtheta_m, only: pvtheta |
44 |
|
|
45 |
! Arguments : |
! Arguments : |
46 |
|
|
102 |
REAL z1(iim) |
REAL z1(iim) |
103 |
REAL pksurcp(iim + 1, jjm + 1) |
REAL pksurcp(iim + 1, jjm + 1) |
104 |
|
|
105 |
! I. Musat: diagnostic PVteta, Amip2 |
! Diagnostic PVteta pour Amip2 : |
106 |
INTEGER, PARAMETER:: ntetaSTD=3 |
INTEGER, PARAMETER:: ntetaSTD = 3 |
107 |
REAL:: rtetaSTD(ntetaSTD) = (/350., 380., 405./) |
REAL:: rtetaSTD(ntetaSTD) = (/350., 380., 405./) |
108 |
REAL PVteta(klon, ntetaSTD) |
REAL PVteta(klon, ntetaSTD) |
109 |
|
|