|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ######spl 00002 MODULE MODI_FMREAD 00003 !################## 00004 ! 00005 INTERFACE FMREAD 00006 SUBROUTINE FMREADX0(HFILEM,HRECFM,HFIPRI,KLENG,PFIELD,KGRID,& 00007 KLENCH,HCOMMENT,KRESP) 00008 CHARACTER(LEN=*) ,INTENT(IN) ::HFILEM ! file name 00009 CHARACTER(LEN=*) ,INTENT(IN) ::HRECFM ! name of the article to be written 00010 00011 CHARACTER(LEN=*) ,INTENT(IN) ::HFIPRI ! file for prints in FM 00012 00013 INTEGER, INTENT(IN) ::KLENG ! length of the data field 00014 REAL, 00015 INTENT(OUT)::PFIELD ! array containing the data field 00016 INTEGER, INTENT(OUT)::KGRID ! C-grid indicator (u,v,w,T) 00017 INTEGER, INTENT(OUT)::KLENCH ! length of comment string 00018 00019 CHARACTER(LEN=*) ,INTENT(OUT)::HCOMMENT ! comment string 00020 00021 INTEGER, INTENT(OUT)::KRESP ! return-code if problems araised 00022 ! 00023 END SUBROUTINE FMREADX0 00024 ! 00025 SUBROUTINE FMREADX1(HFILEM,HRECFM,HFIPRI,KLENG,PFIELD,KGRID,& 00026 KLENCH,HCOMMENT,KRESP) 00027 CHARACTER(LEN=*) ,INTENT(IN) ::HFILEM ! file name 00028 CHARACTER(LEN=*) ,INTENT(IN) ::HRECFM ! name of the article to be written 00029 00030 CHARACTER(LEN=*) ,INTENT(IN) ::HFIPRI ! file for prints in FM 00031 00032 INTEGER, INTENT(IN) ::KLENG ! length of the data field 00033 REAL, DIMENSION(:), 00034 INTENT(OUT)::PFIELD ! array containing the data field 00035 INTEGER, INTENT(OUT)::KGRID ! C-grid indicator (u,v,w,T) 00036 INTEGER, INTENT(OUT)::KLENCH ! length of comment string 00037 00038 CHARACTER(LEN=*) ,INTENT(OUT)::HCOMMENT ! comment string 00039 00040 INTEGER, INTENT(OUT)::KRESP ! return-code if problems araised 00041 ! 00042 END SUBROUTINE FMREADX1 00043 ! 00044 ! 00045 SUBROUTINE FMREADX2(HFILEM,HRECFM,HFIPRI,KLENG,PFIELD,KGRID,& 00046 KLENCH,HCOMMENT,KRESP) 00047 CHARACTER(LEN=*) ,INTENT(IN) ::HFILEM ! file name 00048 CHARACTER(LEN=*) ,INTENT(IN) ::HRECFM ! name of the article to be written 00049 00050 CHARACTER(LEN=*) ,INTENT(IN) ::HFIPRI ! file for prints in FM 00051 00052 INTEGER, INTENT(IN) ::KLENG ! length of the data field 00053 REAL, DIMENSION(:,:), 00054 INTENT(OUT)::PFIELD ! array containing the data field 00055 INTEGER, INTENT(OUT)::KGRID ! C-grid indicator (u,v,w,T) 00056 INTEGER, INTENT(OUT)::KLENCH ! length of comment string 00057 00058 CHARACTER(LEN=*) ,INTENT(OUT)::HCOMMENT ! comment string 00059 00060 INTEGER, INTENT(OUT)::KRESP ! return-code if problems araised 00061 ! 00062 END SUBROUTINE FMREADX2 00063 ! 00064 ! 00065 SUBROUTINE FMREADX3(HFILEM,HRECFM,HFIPRI,KLENG,PFIELD,KGRID,& 00066 KLENCH,HCOMMENT,KRESP) 00067 CHARACTER(LEN=*) ,INTENT(IN) ::HFILEM ! file name 00068 CHARACTER(LEN=*) ,INTENT(IN) ::HRECFM ! name of the article to be written 00069 00070 CHARACTER(LEN=*) ,INTENT(IN) ::HFIPRI ! file for prints in FM 00071 00072 INTEGER, INTENT(IN) ::KLENG ! length of the data field 00073 REAL, DIMENSION(:,:,:), 00074 INTENT(OUT)::PFIELD ! array containing the data field 00075 INTEGER, INTENT(OUT)::KGRID ! C-grid indicator (u,v,w,T) 00076 INTEGER, INTENT(OUT)::KLENCH ! length of comment string 00077 00078 CHARACTER(LEN=*) ,INTENT(OUT)::HCOMMENT ! comment string 00079 00080 INTEGER, INTENT(OUT)::KRESP ! return-code if problems araised 00081 ! 00082 END SUBROUTINE FMREADX3 00083 ! 00084 ! 00085 SUBROUTINE FMREADX4(HFILEM,HRECFM,HFIPRI,KLENG,PFIELD,KGRID,& 00086 KLENCH,HCOMMENT,KRESP) 00087 CHARACTER(LEN=*) ,INTENT(IN) ::HFILEM ! file name 00088 CHARACTER(LEN=*) ,INTENT(IN) ::HRECFM ! name of the article to be written 00089 00090 CHARACTER(LEN=*) ,INTENT(IN) ::HFIPRI ! file for prints in FM 00091 00092 INTEGER, INTENT(IN) ::KLENG ! length of the data field 00093 REAL, DIMENSION(:,:,:,:), 00094 INTENT(OUT)::PFIELD ! array containing the data field 00095 INTEGER, INTENT(OUT)::KGRID ! C-grid indicator (u,v,w,T) 00096 INTEGER, INTENT(OUT)::KLENCH ! length of comment string 00097 00098 CHARACTER(LEN=*) ,INTENT(OUT)::HCOMMENT ! comment string 00099 00100 INTEGER, INTENT(OUT)::KRESP ! return-code if problems araised 00101 ! 00102 END SUBROUTINE FMREADX4 00103 ! 00104 ! 00105 SUBROUTINE FMREADX5(HFILEM,HRECFM,HFIPRI,KLENG,PFIELD,KGRID,& 00106 KLENCH,HCOMMENT,KRESP) 00107 CHARACTER(LEN=*) ,INTENT(IN) ::HFILEM ! file name 00108 CHARACTER(LEN=*) ,INTENT(IN) ::HRECFM ! name of the article to be written 00109 00110 CHARACTER(LEN=*) ,INTENT(IN) ::HFIPRI ! file for prints in FM 00111 00112 INTEGER, INTENT(IN) ::KLENG ! length of the data field 00113 REAL, DIMENSION(:,:,:,:,:), 00114 INTENT(OUT)::PFIELD ! array containing the data field 00115 INTEGER, INTENT(OUT)::KGRID ! C-grid indicator (u,v,w,T) 00116 INTEGER, INTENT(OUT)::KLENCH ! length of comment string 00117 00118 CHARACTER(LEN=*) ,INTENT(OUT)::HCOMMENT ! comment string 00119 00120 INTEGER, INTENT(OUT)::KRESP ! return-code if problems araised 00121 ! 00122 END SUBROUTINE FMREADX5 00123 ! 00124 ! 00125 SUBROUTINE FMREADX6(HFILEM,HRECFM,HFIPRI,KLENG,PFIELD,KGRID,& 00126 KLENCH,HCOMMENT,KRESP) 00127 CHARACTER(LEN=*) ,INTENT(IN) ::HFILEM ! file name 00128 CHARACTER(LEN=*) ,INTENT(IN) ::HRECFM ! name of the article to be written 00129 00130 CHARACTER(LEN=*) ,INTENT(IN) ::HFIPRI ! file for prints in FM 00131 00132 INTEGER, INTENT(IN) ::KLENG ! length of the data field 00133 REAL, DIMENSION(:,:,:,:,:,:), 00134 INTENT(OUT)::PFIELD ! array containing the data field 00135 INTEGER, INTENT(OUT)::KGRID ! C-grid indicator (u,v,w,T) 00136 INTEGER, INTENT(OUT)::KLENCH ! length of comment string 00137 00138 CHARACTER(LEN=*) ,INTENT(OUT)::HCOMMENT ! comment string 00139 00140 INTEGER, INTENT(OUT)::KRESP ! return-code if problems araised 00141 ! 00142 END SUBROUTINE FMREADX6 00143 ! 00144 SUBROUTINE FMREADN0(HFILEM,HRECFM,HFIPRI,KLENG,KFIELD,KGRID,& 00145 KLENCH,HCOMMENT,KRESP) 00146 CHARACTER(LEN=*) ,INTENT(IN) ::HFILEM ! file name 00147 CHARACTER(LEN=*) ,INTENT(IN) ::HRECFM ! name of the article to be written 00148 00149 CHARACTER(LEN=*) ,INTENT(IN) ::HFIPRI ! file for prints in FM 00150 00151 INTEGER, INTENT(IN) ::KLENG ! length of the data field 00152 INTEGER, 00153 INTENT(OUT)::KFIELD ! array containing the data field 00154 INTEGER, INTENT(OUT)::KGRID ! C-grid indicator (u,v,w,T) 00155 INTEGER, INTENT(OUT)::KLENCH ! length of comment string 00156 00157 CHARACTER(LEN=*) ,INTENT(OUT)::HCOMMENT ! comment string 00158 00159 INTEGER, INTENT(OUT)::KRESP ! return-code if problems araised 00160 ! 00161 END SUBROUTINE FMREADN0 00162 ! 00163 SUBROUTINE FMREADN1(HFILEM,HRECFM,HFIPRI,KLENG,KFIELD,KGRID,& 00164 KLENCH,HCOMMENT,KRESP) 00165 CHARACTER(LEN=*) ,INTENT(IN) ::HFILEM ! file name 00166 CHARACTER(LEN=*) ,INTENT(IN) ::HRECFM ! name of the article to be written 00167 00168 CHARACTER(LEN=*) ,INTENT(IN) ::HFIPRI ! file for prints in FM 00169 00170 INTEGER, INTENT(IN) ::KLENG ! length of the data field 00171 INTEGER, DIMENSION(:), 00172 INTENT(OUT)::KFIELD ! array containing the data field 00173 INTEGER, INTENT(OUT)::KGRID ! C-grid indicator (u,v,w,T) 00174 INTEGER, INTENT(OUT)::KLENCH ! length of comment string 00175 00176 CHARACTER(LEN=*) ,INTENT(OUT)::HCOMMENT ! comment string 00177 00178 INTEGER, INTENT(OUT)::KRESP ! return-code if problems araised 00179 ! 00180 END SUBROUTINE FMREADN1 00181 ! 00182 SUBROUTINE FMREADN2(HFILEM,HRECFM,HFIPRI,KLENG,KFIELD,KGRID,& 00183 KLENCH,HCOMMENT,KRESP) 00184 CHARACTER(LEN=*) ,INTENT(IN) ::HFILEM ! file name 00185 CHARACTER(LEN=*) ,INTENT(IN) ::HRECFM ! name of the article to be written 00186 00187 CHARACTER(LEN=*) ,INTENT(IN) ::HFIPRI ! file for prints in FM 00188 00189 INTEGER, INTENT(IN) ::KLENG ! length of the data field 00190 INTEGER, DIMENSION(:,:), 00191 INTENT(OUT)::KFIELD ! array containing the data field 00192 INTEGER, INTENT(OUT)::KGRID ! C-grid indicator (u,v,w,T) 00193 INTEGER, INTENT(OUT)::KLENCH ! length of comment string 00194 00195 CHARACTER(LEN=*) ,INTENT(OUT)::HCOMMENT ! comment string 00196 00197 INTEGER, INTENT(OUT)::KRESP ! return-code if problems araised 00198 ! 00199 END SUBROUTINE FMREADN2 00200 ! 00201 SUBROUTINE FMREADL0(HFILEM,HRECFM,HFIPRI,KLENG,OFIELD,KGRID,& 00202 KLENCH,HCOMMENT,KRESP) 00203 CHARACTER(LEN=*) ,INTENT(IN) ::HFILEM ! file name 00204 CHARACTER(LEN=*) ,INTENT(IN) ::HRECFM ! name of the article to be written 00205 00206 CHARACTER(LEN=*) ,INTENT(IN) ::HFIPRI ! file for prints in FM 00207 00208 INTEGER, INTENT(IN) ::KLENG ! length of the data field 00209 LOGICAL, 00210 INTENT(OUT)::OFIELD ! array containing the data field 00211 INTEGER, INTENT(OUT)::KGRID ! C-grid indicator (u,v,w,T) 00212 INTEGER, INTENT(OUT)::KLENCH ! length of comment string 00213 00214 CHARACTER(LEN=*) ,INTENT(OUT)::HCOMMENT ! comment string 00215 00216 INTEGER, INTENT(OUT)::KRESP ! return-code if problems araised 00217 ! 00218 END SUBROUTINE FMREADL0 00219 ! 00220 SUBROUTINE FMREADL1(HFILEM,HRECFM,HFIPRI,KLENG,OFIELD,KGRID,& 00221 KLENCH,HCOMMENT,KRESP) 00222 CHARACTER(LEN=*) ,INTENT(IN) ::HFILEM ! file name 00223 CHARACTER(LEN=*) ,INTENT(IN) ::HRECFM ! name of the article to be written 00224 00225 CHARACTER(LEN=*) ,INTENT(IN) ::HFIPRI ! file for prints in FM 00226 00227 INTEGER, INTENT(IN) ::KLENG ! length of the data field 00228 LOGICAL, DIMENSION(:), 00229 INTENT(OUT)::OFIELD ! array containing the data field 00230 INTEGER, INTENT(OUT)::KGRID ! C-grid indicator (u,v,w,T) 00231 INTEGER, INTENT(OUT)::KLENCH ! length of comment string 00232 00233 CHARACTER(LEN=*) ,INTENT(OUT)::HCOMMENT ! comment string 00234 00235 INTEGER, INTENT(OUT)::KRESP ! return-code if problems araised 00236 ! 00237 END SUBROUTINE FMREADL1 00238 ! 00239 SUBROUTINE FMREADC0(HFILEM,HRECFM,HFIPRI,KLENG,HFIELD,KGRID,& 00240 KLENCH,HCOMMENT,KRESP) 00241 CHARACTER(LEN=*) ,INTENT(IN) ::HFILEM ! file name 00242 CHARACTER(LEN=*) ,INTENT(IN) ::HRECFM ! name of the article to be written 00243 00244 CHARACTER(LEN=*) ,INTENT(IN) ::HFIPRI ! file for prints in FM 00245 00246 INTEGER, INTENT(IN) ::KLENG ! length of the data field 00247 CHARACTER(LEN=*), 00248 INTENT(OUT)::HFIELD ! array containing the data field 00249 INTEGER, INTENT(OUT)::KGRID ! C-grid indicator (u,v,w,T) 00250 INTEGER, INTENT(OUT)::KLENCH ! length of comment string 00251 00252 CHARACTER(LEN=*) ,INTENT(OUT)::HCOMMENT ! comment string 00253 00254 INTEGER, INTENT(OUT)::KRESP ! return-code if problems araised 00255 ! 00256 END SUBROUTINE FMREADC0 00257 ! 00258 SUBROUTINE FMREADT0(HFILEM,HRECFM,HFIPRI,KLENG,TFIELD,KGRID,& 00259 KLENCH,HCOMMENT,KRESP) 00260 USE MODD_TYPE_DATE_SURF 00261 ! 00262 CHARACTER(LEN=*) ,INTENT(IN) ::HFILEM ! file name 00263 CHARACTER(LEN=*) ,INTENT(IN) ::HRECFM ! name of the article to be written 00264 00265 CHARACTER(LEN=*) ,INTENT(IN) ::HFIPRI ! file for prints in FM 00266 00267 INTEGER, INTENT(IN) ::KLENG ! length of the data field 00268 TYPE (DATE_TIME), 00269 INTENT(OUT)::TFIELD ! array containing the data field 00270 INTEGER, INTENT(OUT)::KGRID ! C-grid indicator (u,v,w,T) 00271 INTEGER, INTENT(OUT)::KLENCH ! length of comment string 00272 00273 CHARACTER(LEN=*) ,INTENT(OUT)::HCOMMENT ! comment string 00274 00275 INTEGER, INTENT(OUT)::KRESP ! return-code if problems araised 00276 ! 00277 END SUBROUTINE FMREADT0 00278 ! 00279 END INTERFACE 00280 ! 00281 END MODULE MODI_FMREAD
1.8.0
