Changeset 179 for LMDZ.3.3/branches/rel-LF/libf/dyn3d/dynredem.F
- Timestamp:
- Mar 20, 2001, 4:14:30 PM (24 years ago)
- File:
-
- 1 edited
-
LMDZ.3.3/branches/rel-LF/libf/dyn3d/dynredem.F (modified) (22 diffs)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ.3.3/branches/rel-LF/libf/dyn3d/dynredem.F
r79 r179 1 c $Header$ 2 c 1 3 SUBROUTINE dynredem0(fichnom,idayref,anneeref,phis,nq) 2 4 USE IOIPSL … … 132 134 c 133 135 ierr = NF_REDEF (nid) 134 #ifdef NC_DOUBLE135 ierr = NF_DEF_VAR (nid,"controle",NF_DOUBLE,1,idim_index,nvarid)136 #else137 136 ierr = NF_DEF_VAR (nid,"controle",NF_FLOAT,1,idim_index,nvarid) 138 #endif139 137 ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 22, 140 138 . "Parametres de controle") … … 147 145 c 148 146 ierr = NF_REDEF (nid) 149 #ifdef NC_DOUBLE150 ierr = NF_DEF_VAR (nid,"rlonu",NF_DOUBLE,1,idim_rlonu,nvarid)151 #else152 147 ierr = NF_DEF_VAR (nid,"rlonu",NF_FLOAT,1,idim_rlonu,nvarid) 153 #endif154 148 ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 23, 155 149 . "Longitudes des points U") … … 162 156 c 163 157 ierr = NF_REDEF (nid) 164 #ifdef NC_DOUBLE165 ierr = NF_DEF_VAR (nid,"rlatu",NF_DOUBLE,1,idim_rlatu,nvarid)166 #else167 158 ierr = NF_DEF_VAR (nid,"rlatu",NF_FLOAT,1,idim_rlatu,nvarid) 168 #endif169 159 ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 22, 170 160 . "Latitudes des points U") … … 177 167 c 178 168 ierr = NF_REDEF (nid) 179 #ifdef NC_DOUBLE180 ierr = NF_DEF_VAR (nid,"rlonv",NF_DOUBLE,1,idim_rlonv,nvarid)181 #else182 169 ierr = NF_DEF_VAR (nid,"rlonv",NF_FLOAT,1,idim_rlonv,nvarid) 183 #endif184 170 ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 23, 185 171 . "Longitudes des points V") … … 192 178 c 193 179 ierr = NF_REDEF (nid) 194 #ifdef NC_DOUBLE195 ierr = NF_DEF_VAR (nid,"rlatv",NF_DOUBLE,1,idim_rlatv,nvarid)196 #else197 180 ierr = NF_DEF_VAR (nid,"rlatv",NF_FLOAT,1,idim_rlatv,nvarid) 198 #endif199 181 ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 22, 200 182 . "Latitudes des points V") … … 207 189 c 208 190 ierr = NF_REDEF (nid) 209 #ifdef NC_DOUBLE210 ierr = NF_DEF_VAR (nid,"nivsigs",NF_DOUBLE,1,idim_s,nvarid)211 #else212 191 ierr = NF_DEF_VAR (nid,"nivsigs",NF_FLOAT,1,idim_s,nvarid) 213 #endif214 192 ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 28, 215 193 . "Numero naturel des couches s") … … 222 200 c 223 201 ierr = NF_REDEF (nid) 224 #ifdef NC_DOUBLE225 ierr = NF_DEF_VAR (nid,"nivsig",NF_DOUBLE,1,idim_sig,nvarid)226 #else227 202 ierr = NF_DEF_VAR (nid,"nivsig",NF_FLOAT,1,idim_sig,nvarid) 228 #endif229 203 ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 32, 230 204 . "Numero naturel des couches sigma") … … 237 211 c 238 212 ierr = NF_REDEF (nid) 239 #ifdef NC_DOUBLE240 ierr = NF_DEF_VAR (nid,"ap",NF_DOUBLE,1,idim_sig,nvarid)241 #else242 213 ierr = NF_DEF_VAR (nid,"ap",NF_FLOAT,1,idim_sig,nvarid) 243 #endif244 214 ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 26, 245 215 . "Coefficient A pour hybride") … … 252 222 c 253 223 ierr = NF_REDEF (nid) 254 #ifdef NC_DOUBLE255 ierr = NF_DEF_VAR (nid,"bp",NF_DOUBLE,1,idim_sig,nvarid)256 #else257 224 ierr = NF_DEF_VAR (nid,"bp",NF_FLOAT,1,idim_sig,nvarid) 258 #endif259 225 ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 26, 260 226 . "Coefficient B pour hybride") … … 267 233 c 268 234 ierr = NF_REDEF (nid) 269 #ifdef NC_DOUBLE270 ierr = NF_DEF_VAR (nid,"presnivs",NF_DOUBLE,1,idim_s,nvarid)271 #else272 235 ierr = NF_DEF_VAR (nid,"presnivs",NF_FLOAT,1,idim_s,nvarid) 273 #endif274 236 ierr = NF_ENDDEF(nid) 275 237 #ifdef NC_DOUBLE … … 284 246 dims2(1) = idim_rlonu 285 247 dims2(2) = idim_rlatu 286 #ifdef NC_DOUBLE287 ierr = NF_DEF_VAR (nid,"cu",NF_DOUBLE,2,dims2,nvarid)288 #else289 248 ierr = NF_DEF_VAR (nid,"cu",NF_FLOAT,2,dims2,nvarid) 290 #endif291 249 ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 29, 292 250 . "Coefficient de passage pour U") … … 301 259 dims2(1) = idim_rlonv 302 260 dims2(2) = idim_rlatv 303 #ifdef NC_DOUBLE304 ierr = NF_DEF_VAR (nid,"cv",NF_DOUBLE,2,dims2,nvarid)305 #else306 261 ierr = NF_DEF_VAR (nid,"cv",NF_FLOAT,2,dims2,nvarid) 307 #endif308 262 ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 29, 309 263 . "Coefficient de passage pour V") … … 320 274 dims2(1) = idim_rlonv 321 275 dims2(2) = idim_rlatu 322 #ifdef NC_DOUBLE323 ierr = NF_DEF_VAR (nid,"aire",NF_DOUBLE,2,dims2,nvarid)324 #else325 276 ierr = NF_DEF_VAR (nid,"aire",NF_FLOAT,2,dims2,nvarid) 326 #endif327 277 ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 22, 328 278 . "Aires de chaque maille") … … 339 289 dims2(1) = idim_rlonv 340 290 dims2(2) = idim_rlatu 341 #ifdef NC_DOUBLE342 ierr = NF_DEF_VAR (nid,"phisinit",NF_DOUBLE,2,dims2,nvarid)343 #else344 291 ierr = NF_DEF_VAR (nid,"phisinit",NF_FLOAT,2,dims2,nvarid) 345 #endif346 292 ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 19, 347 293 . "Geopotentiel au sol") … … 357 303 ierr = NF_REDEF (nid) ! entrer dans le mode de definition 358 304 c 359 #ifdef NC_DOUBLE360 ierr = NF_DEF_VAR (nid,"temps",NF_DOUBLE,1,idim_tim,nvarid)361 #else362 305 ierr = NF_DEF_VAR (nid,"temps",NF_FLOAT,1,idim_tim,nvarid) 363 #endif364 306 ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 19, 365 307 . "Temps de simulation") … … 374 316 dims4(3) = idim_s 375 317 dims4(4) = idim_tim 376 #ifdef NC_DOUBLE377 ierr = NF_DEF_VAR (nid,"ucov",NF_DOUBLE,4,dims4,nvarid)378 #else379 318 ierr = NF_DEF_VAR (nid,"ucov",NF_FLOAT,4,dims4,nvarid) 380 #endif381 319 ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 9, 382 320 . "Vitesse U") … … 386 324 dims4(3) = idim_s 387 325 dims4(4) = idim_tim 388 #ifdef NC_DOUBLE389 ierr = NF_DEF_VAR (nid,"vcov",NF_DOUBLE,4,dims4,nvarid)390 #else391 326 ierr = NF_DEF_VAR (nid,"vcov",NF_FLOAT,4,dims4,nvarid) 392 #endif393 327 ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 9, 394 328 . "Vitesse V") … … 398 332 dims4(3) = idim_s 399 333 dims4(4) = idim_tim 400 #ifdef NC_DOUBLE401 ierr = NF_DEF_VAR (nid,"teta",NF_DOUBLE,4,dims4,nvarid)402 #else403 334 ierr = NF_DEF_VAR (nid,"teta",NF_FLOAT,4,dims4,nvarid) 404 #endif405 335 ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 11, 406 336 . "Temperature") … … 418 348 str3(1:1)='q' 419 349 WRITE(str3(2:3),'(i2.2)') iq 420 #ifdef NC_DOUBLE421 ierr = NF_DEF_VAR (nid,str3,NF_DOUBLE,4,dims4,nvarid)422 #else423 350 ierr = NF_DEF_VAR (nid,str3,NF_FLOAT,4,dims4,nvarid) 424 #endif425 351 ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 12, 426 352 . "Traceurs "//str3) … … 433 359 dims4(3) = idim_s 434 360 dims4(4) = idim_tim 435 #ifdef NC_DOUBLE436 ierr = NF_DEF_VAR (nid,"masse",NF_DOUBLE,4,dims4,nvarid)437 #else438 361 ierr = NF_DEF_VAR (nid,"masse",NF_FLOAT,4,dims4,nvarid) 439 #endif440 362 ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 12, 441 363 . "C est quoi ?") … … 444 366 dims3(2) = idim_rlatu 445 367 dims3(3) = idim_tim 446 #ifdef NC_DOUBLE447 ierr = NF_DEF_VAR (nid,"ps",NF_DOUBLE,3,dims3,nvarid)448 #else449 368 ierr = NF_DEF_VAR (nid,"ps",NF_FLOAT,3,dims3,nvarid) 450 #endif451 369 ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 15, 452 370 . "Pression au sol")
Note: See TracChangeset
for help on using the changeset viewer.
