Changeset 154 for LMDZ.3.3/trunk/libf/dyn3d
- Timestamp:
- Nov 9, 2000, 4:43:46 PM (24 years ago)
- File:
-
- 1 edited
-
LMDZ.3.3/trunk/libf/dyn3d/create_limit.F (modified) (18 diffs)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ.3.3/trunk/libf/dyn3d/create_limit.F
r71 r154 137 137 STOP 138 138 ENDIF 139 c ierr = NF_GET_VAR_REAL(ncid,dimid,dlon_msk) 139 #ifdef NC_DOUBLE 140 140 ierr = NF_GET_VAR_DOUBLE(ncid,dimid,dlon_msk) 141 c$$$ zbidon=0.0 142 c$$$ ierr = NF_GET_VAR_REAL(ncid,dimid,zbidon(1:imdep)) 143 c$$$ dlon_msk(1 : imdep) = dble(zbidon(1:imdep)) 141 #else 142 ierr = NF_GET_VAR_REAL(ncid,dimid,dlon_msk) 143 #endif 144 144 145 c 145 146 if (ierr.ne.0) then … … 158 159 STOP 159 160 ENDIF 160 c ierr = NF_GET_VAR_REAL(ncid,dimid,dlat_msk) 161 #ifdef NC_DOUBLE 161 162 ierr = NF_GET_VAR_DOUBLE(ncid,dimid,dlat_msk) 162 c$$$ zbidon=0. 163 c$$$ ierr = NF_GET_VAR_REAL(ncid,dimid,zbidon(1:jmdep))164 c$$$ dlat_msk=dble(zbidon(1:jmdep)) 165 c 166 if (ierr.ne.0) then 167 print *, NF_STRERROR(ierr) 168 STOP 169 ENDIF 170 c ierr = NF_GET_VAR_REAL(ncid,varid,champ_msk) 163 #else 164 ierr = NF_GET_VAR_REAL(ncid,dimid,dlat_msk) 165 #endif 166 c 167 if (ierr.ne.0) then 168 print *, NF_STRERROR(ierr) 169 STOP 170 ENDIF 171 #ifdef NC_DOUBLE 171 172 ierr = NF_GET_VAR_DOUBLE(ncid,varid,champ_msk) 172 c$$$ zbidon=0. 173 c$$$ ierr = NF_GET_VAR_REAL(ncid,varid,zbidon(1:imdep*jmdep))174 c$$$ champ_msk(1: imdep*jmdep) = zbidon(1:imdep*jmdep) 173 #else 174 ierr = NF_GET_VAR_REAL(ncid,varid,champ_msk) 175 #endif 175 176 c 176 177 if (ierr.ne.0) then … … 226 227 STOP 227 228 ENDIF 229 #ifdef NC_DOUBLE 228 230 ierr = NF_GET_VAR_DOUBLE(ncid,dimid,dlon) 231 #else 232 ierr = NF_GET_VAR_REAL(ncid,dimid,dlon) 233 #endif 229 234 if (ierr.ne.0) then 230 235 print *, NF_STRERROR(ierr) … … 242 247 STOP 243 248 ENDIF 249 #ifdef NC_DOUBLE 244 250 ierr = NF_GET_VAR_DOUBLE(ncid,dimid,dlat) 251 #else 252 ierr = NF_GET_VAR_REAL(ncid,dimid,dlat) 253 #endif 245 254 if (ierr.ne.0) then 246 255 print *, NF_STRERROR(ierr) … … 258 267 STOP 259 268 ENDIF 269 #ifdef NC_DOUBLE 260 270 ierr = NF_GET_VAR_DOUBLE(ncid,dimid,timecoord) 271 #else 272 ierr = NF_GET_VAR_REAL(ncid,dimid,timecoord) 273 #endif 261 274 if (ierr.ne.0) then 262 275 print *, NF_STRERROR(ierr) … … 275 288 PRINT*,'Lecture temporelle et int. horizontale ',l,timecoord(l) 276 289 print*,dimfirst,dimlast 290 #ifdef NC_DOUBLE 277 291 ierr = NF_GET_VARA_DOUBLE(ncid,varid,dimfirst,dimlast,champ) 292 #else 293 ierr = NF_GET_VARA_REAL(ncid,varid,dimfirst,dimlast,champ) 294 #endif 278 295 if (ierr.ne.0) then 279 296 print *, NF_STRERROR(ierr) … … 358 375 STOP 359 376 ENDIF 377 #ifdef NC_DOUBLE 360 378 ierr = NF_GET_VAR_DOUBLE(ncid,dimid,dlon) 379 #else 380 ierr = NF_GET_VAR_REAL(ncid,dimid,dlon) 381 #endif 361 382 if (ierr.ne.0) then 362 383 print *, NF_STRERROR(ierr) … … 374 395 STOP 375 396 ENDIF 397 #ifdef NC_DOUBLE 376 398 ierr = NF_GET_VAR_DOUBLE(ncid,dimid,dlat) 399 #else 400 ierr = NF_GET_VAR_REAL(ncid,dimid,dlat) 401 #endif 377 402 if (ierr.ne.0) then 378 403 print *, NF_STRERROR(ierr) … … 390 415 STOP 391 416 ENDIF 417 #ifdef NC_DOUBLE 392 418 ierr = NF_GET_VAR_DOUBLE(ncid,dimid,timecoord) 419 #else 420 ierr = NF_GET_VAR_REAL(ncid,dimid,timecoord) 421 #endif 393 422 if (ierr.ne.0) then 394 423 print *, NF_STRERROR(ierr) … … 406 435 c 407 436 PRINT*,'Lecture temporelle et int. horizontale ',l,timecoord(l) 437 #ifdef NC_DOUBLE 408 438 ierr = NF_GET_VARA_DOUBLE(ncid,varid,dimfirst,dimlast,champ) 439 #else 440 ierr = NF_GET_VARA_REAL(ncid,varid,dimfirst,dimlast,champ) 441 #endif 409 442 if (ierr.ne.0) then 410 443 print *, NF_STRERROR(ierr) … … 495 528 STOP 496 529 ENDIF 530 #ifdef NC_DOUBLE 497 531 ierr = NF_GET_VAR_DOUBLE(ncid,dimid,dlon) 532 #else 533 ierr = NF_GET_VAR_REAL(ncid,dimid,dlon) 534 #endif 535 498 536 if (ierr.ne.0) then 499 537 print *, NF_STRERROR(ierr) … … 511 549 STOP 512 550 ENDIF 551 #ifdef NC_DOUBLE 513 552 ierr = NF_GET_VAR_DOUBLE(ncid,dimid,dlat) 553 #else 554 ierr = NF_GET_VAR_REAL(ncid,dimid,dlat) 555 #endif 514 556 if (ierr.ne.0) then 515 557 print *, NF_STRERROR(ierr) … … 527 569 STOP 528 570 ENDIF 571 #ifdef NC_DOUBLE 529 572 ierr = NF_GET_VAR_DOUBLE(ncid,dimid,timecoord) 573 #else 574 ierr = NF_GET_VAR_REAL(ncid,dimid,timecoord) 575 #endif 530 576 if (ierr.ne.0) then 531 577 print *, NF_STRERROR(ierr) … … 543 589 c 544 590 PRINT*,'Lecture temporelle et int. horizontale ',l,timecoord(l) 591 #ifdef NC_DOUBLE 545 592 ierr = NF_GET_VARA_DOUBLE(ncid,varid,dimfirst,dimlast,champ) 593 #else 594 ierr = NF_GET_VARA_REAL(ncid,varid,dimfirst,dimlast,champ) 595 #endif 546 596 if (ierr.ne.0) then 547 597 print *, NF_STRERROR(ierr) … … 621 671 STOP 622 672 ENDIF 673 #ifdef NC_DOUBLE 623 674 ierr = NF_GET_VAR_DOUBLE(ncid,dimid,dlon) 675 #else 676 ierr = NF_GET_VAR_REAL(ncid,dimid,dlon) 677 #endif 624 678 if (ierr.ne.0) then 625 679 print *, NF_STRERROR(ierr) … … 637 691 STOP 638 692 ENDIF 693 #ifdef NC_DOUBLE 639 694 ierr = NF_GET_VAR_DOUBLE(ncid,dimid,dlat) 695 #else 696 ierr = NF_GET_VAR_REAL(ncid,dimid,dlat) 697 #endif 640 698 if (ierr.ne.0) then 641 699 print *, NF_STRERROR(ierr) … … 653 711 STOP 654 712 ENDIF 713 #ifdef NC_DOUBLE 655 714 ierr = NF_GET_VAR_DOUBLE(ncid,dimid,timecoord) 715 #else 716 ierr = NF_GET_VAR_REAL(ncid,dimid,timecoord) 717 #endif 656 718 if (ierr.ne.0) then 657 719 print *, NF_STRERROR(ierr) … … 669 731 c 670 732 PRINT*,'Lecture temporelle et int. horizontale ',l,timecoord(l) 733 #ifdef NC_DOUBLE 671 734 ierr = NF_GET_VARA_DOUBLE(ncid,varid,dimfirst,dimlast,champ) 735 #else 736 ierr = NF_GET_VARA_REAL(ncid,varid,dimfirst,dimlast,champ) 737 #endif 672 738 if (ierr.ne.0) then 673 739 print *, NF_STRERROR(ierr)
Note: See TracChangeset
for help on using the changeset viewer.
