28 |
use conf_gcm_m |
use conf_gcm_m |
29 |
USE dimens_m |
USE dimens_m |
30 |
USE disvert_m |
USE disvert_m |
|
USE ener |
|
31 |
USE histbeg_totreg_m, ONLY : histbeg_totreg |
USE histbeg_totreg_m, ONLY : histbeg_totreg |
32 |
USE histdef_m, ONLY : histdef |
USE histdef_m, ONLY : histdef |
33 |
USE histend_m, ONLY : histend |
USE histend_m, ONLY : histend |
52 |
|
|
53 |
! Variables locales |
! Variables locales |
54 |
REAL zjulian |
REAL zjulian |
55 |
CHARACTER*3 str |
CHARACTER(len=3) str |
56 |
CHARACTER*10 ctrac |
CHARACTER(len=10) ctrac |
57 |
INTEGER iq |
INTEGER iq |
58 |
REAL rlong(iip1, jjp1), rlat(iip1, jjp1) |
REAL rlong(iip1, jjp1), rlat(iip1, jjp1) |
59 |
INTEGER uhoriid, vhoriid, thoriid, zvertiid, dhoriid, dvertiid |
INTEGER uhoriid, vhoriid, thoriid, zvertiid, dhoriid, dvertiid |