Changeset 421 for LMDZ.3.3/branches/rel-LF
- Timestamp:
- Oct 17, 2002, 11:44:13 AM (22 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ.3.3/branches/rel-LF/libf/phylmd/oasis.F
r397 r421 40 40 #include "mpiclim.h" 41 41 c 42 #include "oasis.h" ! contains the name of communication technique. Here 42 #include "oasis.h" 43 ! contains the name of communication technique. Here 43 44 ! cchan=CLIM only is possible. 44 45 c ! ctype=MPI2 … … 554 555 END 555 556 557 SUBROUTINE halte 558 print *, 'Attention dans oasis.F, halte est non defini' 559 RETURN 560 END 561 562 SUBROUTINE locread 563 print *, 'Attention dans oasis.F, locread est non defini' 564 RETURN 565 END 566 567 SUBROUTINE locwrite 568 print *, 'Attention dans oasis.F, locwrite est non defini' 569 RETURN 570 END 571 556 572 SUBROUTINE pipe_model_define 557 573 print*,'Attention dans oasis.F, pipe_model_define est non defini' … … 574 590 END 575 591 592 SUBROUTINE clim_stepi 593 print *, 'Attention dans oasis.F, clim_stepi est non defini' 594 RETURN 595 END 596 597 SUBROUTINE clim_start 598 print *, 'Attention dans oasis.F, clim_start est non defini' 599 RETURN 600 END 601 602 SUBROUTINE clim_import 603 print *, 'Attention dans oasis.F, clim_import est non defini' 604 RETURN 605 END 606 607 SUBROUTINE clim_export 608 print *, 'Attention dans oasis.F, clim_export est non defini' 609 RETURN 610 END 611 612 SUBROUTINE clim_init 613 print *, 'Attention dans oasis.F, clim_init est non defini' 614 RETURN 615 END 616 617 SUBROUTINE clim_define 618 print *, 'Attention dans oasis.F, clim_define est non defini' 619 RETURN 620 END 621 622 SUBROUTINE clim_quit 623 print *, 'Attention dans oasis.F, clim_quit est non defini' 624 RETURN 625 END 626 627 SUBROUTINE svipc_write 628 print *, 'Attention dans oasis.F, svipc_write est non defini' 629 RETURN 630 END 631 632 SUBROUTINE svipc_close 633 print *, 'Attention dans oasis.F, svipc_close est non defini' 634 RETURN 635 END 636 637 SUBROUTINE svipc_read 638 print *, 'Attention dans oasis.F, svipc_read est non defini' 639 RETURN 640 END 641 576 642 SUBROUTINE quitcpl 577 643 print *, 'Attention dans oasis.F, quitcpl est non defini'
Note: See TracChangeset
for help on using the changeset viewer.