39 CHARACTER(LEN=200),
DIMENSION(19) :: XNETCDF_FILENAME_IN= &
55 'ISBA_VEG_EVOLUTION_P.OUT.nc',&
56 'ISBA_VEG_EVOLUTION_A.OUT.nc',&
57 'ISBA_PROGNOSTIC.OUT.nc ',&
58 'ISBA_DIAGNOSTICS.OUT.nc '/)
59 CHARACTER(LEN=200),
DIMENSION(22) :: XNETCDF_FILENAME_OUT= &
60 (/
'ISBA_VEG_EVOLUTION.OUT.nc ',&
61 'ISBA_VEG_EVOLUTION_P.OUT.nc', &
62 'ISBA_VEG_EVOLUTION_A.OUT.nc', &
63 'ISBA_PROGNOSTIC.OUT.nc ',&
64 'ISBA_DIAGNOSTICS.OUT.nc ',&
65 'ISBA_DIAG_CUMUL.OUT.nc ',&
66 'SEAFLUX_PROGNOSTIC.OUT.nc ',&
67 'SEAFLUX_DIAGNOSTICS.OUT.nc ',&
68 'SEAFLUX_DIAG_CUMUL.OUT.nc ',&
69 'WATFLUX_PROGNOSTIC.OUT.nc ',&
70 'WATFLUX_DIAGNOSTICS.OUT.nc ',&
71 'WATFLUX_DIAG_CUMUL.OUT.nc ',&
72 'FLAKE_PROGNOSTIC.OUT.nc ',&
73 'FLAKE_DIAGNOSTICS.OUT.nc ',&
74 'FLAKE_DIAG_CUMUL.OUT.nc ',&
75 'TEB_PROGNOSTIC.OUT.nc ',&
76 'TEB_DIAGNOSTICS.OUT.nc ',&
78 'TEB_CANOPY.OUT.nc ',&
79 'TEB_DIAG_CUMUL.OUT.nc ',&
81 'SURF_ATM_DIAGNOSTICS.OUT.nc'/)
82 CHARACTER(LEN=20),
DIMENSION(:),
ALLOCATABLE :: XVAR_TO_FILEOUT, XVAR_TO_FILEIN
84 INTEGER*4,
DIMENSION(:),
ALLOCATABLE :: XID, XID_IN, XID_VARIN
88 CHARACTER(LEN=20),
DIMENSION(:),
POINTER :: XVAR_SURF, XVAR_NATURE, &
89 XVAR_SEA, XVAR_WATER, XVAR_TOWN
90 INTEGER*4,
DIMENSION(:),
POINTER :: XID_SURF, XID_NATURE, XID_SEA, &