|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 00002 ! ###################### 00003 MODULE MODD_OL_FILEID 00004 ! ###################### 00005 ! 00006 !!**** *MODD_OL_FILEID* Keep in memory the netcdf ID of the output files 00007 !! 00008 !! PURPOSE 00009 !! ------- 00010 ! 00011 !! 00012 !!** IMPLICIT ARGUMENTS 00013 !! ------------------ 00014 !! None 00015 !! 00016 !! REFERENCE 00017 !! --------- 00018 !! 00019 !! AUTHOR 00020 !! ------ 00021 !! F. Habets *Meteo France* 00022 !! 00023 !! MODIFICATIONS 00024 !! ------------- 00025 ! 00026 !* 0. DECLARATIONS 00027 ! ------------ 00028 ! 00029 ! 00030 IMPLICIT NONE 00031 !------------------------------------------------------------------------------ 00032 ! 00033 !* variables for each patch 00034 ! 00035 CHARACTER(LEN=200), DIMENSION(19) :: XNETCDF_FILENAME_IN= 00036 (/'PARAMS.nc ', 00037 'FORCING.nc ', 00038 'Forc_TA.nc ', 00039 'Forc_QA.nc ', 00040 'Forc_PS.nc ', 00041 'Forc_DIR_SW.nc ', 00042 'Forc_SCA_SW.nc ', 00043 'Forc_LW.nc ', 00044 'Forc_RAIN.nc ', 00045 'Forc_SNOW.nc ', 00046 'Forc_WIND.nc ', 00047 'Forc_DIR.nc ', 00048 'Forc_CO2.nc ', 00049 'SXPOST.nc ', 00050 'LAND_USE.nc ', 00051 'ISBA_VEG_EVOLUTION_P.OUT.nc', 00052 'ISBA_VEG_EVOLUTION_A.OUT.nc', 00053 'ISBA_PROGNOSTIC.OUT.nc ', 00054 'ISBA_DIAGNOSTICS.OUT.nc '/) 00055 CHARACTER(LEN=200), DIMENSION(21) :: XNETCDF_FILENAME_OUT= 00056 (/'ISBA_VEG_EVOLUTION.OUT.nc ', 00057 'ISBA_VEG_EVOLUTION_P.OUT.nc', 00058 'ISBA_VEG_EVOLUTION_A.OUT.nc', 00059 'ISBA_PROGNOSTIC.OUT.nc ', 00060 'ISBA_DIAGNOSTICS.OUT.nc ', 00061 'ISBA_DIAG_CUMUL.OUT.nc ', 00062 'SEAFLUX_PROGNOSTIC.OUT.nc ', 00063 'SEAFLUX_DIAGNOSTICS.OUT.nc ', 00064 'SEAFLUX_DIAG_CUMUL.OUT.nc ', 00065 'WATFLUX_PROGNOSTIC.OUT.nc ', 00066 'WATFLUX_DIAGNOSTICS.OUT.nc ', 00067 'WATFLUX_DIAG_CUMUL.OUT.nc ', 00068 'FLAKE_PROGNOSTIC.OUT.nc ', 00069 'FLAKE_DIAGNOSTICS.OUT.nc ', 00070 'FLAKE_DIAG_CUMUL.OUT.nc ', 00071 'TEB_PROGNOSTIC.OUT.nc ', 00072 'TEB_DIAGNOSTICS.OUT.nc ', 00073 'TEB_CANOPY.OUT.nc ', 00074 'TEB_DIAG_CUMUL.OUT.nc ', 00075 'SURF_ATM.OUT.nc ', 00076 'SURF_ATM_DIAGNOSTICS.OUT.nc'/) 00077 CHARACTER(LEN=20), DIMENSION(:), ALLOCATABLE :: XVAR_TO_FILEOUT, XVAR_TO_FILEIN !contains names 00078 !of variables to write 00079 INTEGER*4, DIMENSION(:), ALLOCATABLE :: XID, XID_IN, XID_VARIN !contains ids of 00080 !opened files for each 00081 !variable to write 00082 00083 CHARACTER(LEN=20), DIMENSION(:), POINTER :: XVAR_SURF, XVAR_NATURE, 00084 XVAR_SEA, XVAR_WATER, XVAR_TOWN 00085 INTEGER*4, DIMENSION(:), POINTER :: XID_SURF, XID_NATURE, XID_SEA, 00086 XID_WATER, XID_TOWN 00087 INTEGER :: XOUT, XIN 00088 00089 INTEGER :: XCOUNT 00090 !------------------------------------------------------------------------------ 00091 ! 00092 END MODULE MODD_OL_FILEID 00093
1.8.0
