Changeset 5110 for LMDZ6/branches/Amaury_dev/libf/phy_common
- Timestamp:
- Jul 24, 2024, 11:19:08 AM (12 months ago)
- Location:
- LMDZ6/branches/Amaury_dev/libf/phy_common
- Files:
-
- 5 edited
- 11 moved
-
abort_physic.F90 (modified) (1 diff)
-
geometry_mod.F90 (modified) (1 diff)
-
init_print_control_mod.F90 (modified) (1 diff)
-
ioipsl_getin_p_mod.F90 (modified) (1 diff)
-
lmdz_grid_phy.F90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/phy_common/mod_grid_phy_lmdz.F90) (2 diffs)
-
lmdz_phys_mpi_data.F90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/phy_common/mod_phys_lmdz_mpi_data.F90) (2 diffs)
-
lmdz_phys_mpi_transfert.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/phy_common/mod_phys_lmdz_mpi_transfert.F90) (93 diffs)
-
lmdz_phys_omp_data.F90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/phy_common/mod_phys_lmdz_omp_data.F90) (3 diffs)
-
lmdz_phys_omp_transfert.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/phy_common/mod_phys_lmdz_omp_transfert.F90) (8 diffs)
-
lmdz_phys_para.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/phy_common/mod_phys_lmdz_para.F90) (3 diffs)
-
lmdz_phys_transfert_para.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/phy_common/mod_phys_lmdz_transfert_para.F90) (50 diffs)
-
physics_distribution_mod.F90 (modified) (2 diffs)
-
print_control_mod.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/phy_common/print_control_mod.F90)
-
regular_lonlat_mod.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/phy_common/regular_lonlat_mod.F90)
-
vertical_layers_mod.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/phy_common/vertical_layers_mod.F90)
-
write_field_phy.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/phy_common/write_field_phy.F90) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/phy_common/abort_physic.F90
r5103 r5110 3 3 4 4 USE IOIPSL 5 USE mod_phys_lmdz_para5 USE lmdz_phys_para 6 6 USE print_control_mod, ONLY: lunout 7 7 IMPLICIT NONE -
LMDZ6/branches/Amaury_dev/libf/phy_common/geometry_mod.F90
r5101 r5110 38 38 boundslon_,boundslat_, & 39 39 cell_area_,ind_cell_glo_,dx_,dy_) 40 USE mod_grid_phy_lmdz, ONLY: nvertex40 USE lmdz_grid_phy, ONLY: nvertex 41 41 USE nrtype, ONLY: PI 42 42 IMPLICIT NONE -
LMDZ6/branches/Amaury_dev/libf/phy_common/init_print_control_mod.F90
r5101 r5110 9 9 USE print_control_mod, ONLY: set_print_control 10 10 USE ioipsl_getin_p_mod, ONLY: getin_p 11 USE mod_phys_lmdz_para, ONLY: is_omp_root, is_master11 USE lmdz_phys_para, ONLY: is_omp_root, is_master 12 12 IMPLICIT NONE 13 13 -
LMDZ6/branches/Amaury_dev/libf/phy_common/ioipsl_getin_p_mod.F90
r5103 r5110 6 6 !--------------------------------------------------------------------- 7 7 USE ioipsl, ONLY: getin 8 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root9 USE mod_phys_lmdz_omp_data, ONLY: is_omp_root10 USE mod_phys_lmdz_transfert_para, ONLY: bcast8 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 9 USE lmdz_phys_omp_data, ONLY: is_omp_root 10 USE lmdz_phys_transfert_para, ONLY: bcast 11 11 !- 12 12 IMPLICIT NONE -
LMDZ6/branches/Amaury_dev/libf/phy_common/lmdz_grid_phy.F90
r5109 r5110 2 2 !$Id $ 3 3 4 MODULE mod_grid_phy_lmdz4 MODULE lmdz_grid_phy 5 5 6 6 PUBLIC … … 466 466 END SUBROUTINE grid2dTo1d_glo_lgen 467 467 468 END MODULE mod_grid_phy_lmdz468 END MODULE lmdz_grid_phy -
LMDZ6/branches/Amaury_dev/libf/phy_common/lmdz_phys_mpi_data.F90
r5109 r5110 2 2 !$Id$ 3 3 4 MODULE mod_phys_lmdz_mpi_data4 MODULE lmdz_phys_mpi_data 5 5 USE lmdz_mpi 6 6 … … 220 220 END SUBROUTINE print_module_data 221 221 222 END MODULE mod_phys_lmdz_mpi_data222 END MODULE lmdz_phys_mpi_data -
LMDZ6/branches/Amaury_dev/libf/phy_common/lmdz_phys_mpi_transfert.f90
r5109 r5110 2 2 !$Id$ 3 3 4 MODULE mod_phys_lmdz_mpi_transfert4 MODULE lmdz_phys_mpi_transfert 5 5 6 6 … … 78 78 79 79 SUBROUTINE bcast_mpi_i(var) 80 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root80 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 81 81 IMPLICIT NONE 82 82 INTEGER,INTENT(INOUT) :: Var … … 126 126 127 127 SUBROUTINE bcast_mpi_r(var) 128 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root128 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 129 129 IMPLICIT NONE 130 130 REAL,INTENT(INOUT) :: Var … … 172 172 173 173 SUBROUTINE bcast_mpi_l(var) 174 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root174 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 175 175 IMPLICIT NONE 176 176 LOGICAL,INTENT(INOUT) :: Var … … 220 220 221 221 SUBROUTINE scatter_mpi_i(VarIn, VarOut) 222 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root222 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 223 223 IMPLICIT NONE 224 224 … … 231 231 232 232 SUBROUTINE scatter_mpi_i1(VarIn, VarOut) 233 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root233 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 234 234 IMPLICIT NONE 235 235 … … 242 242 243 243 SUBROUTINE scatter_mpi_i2(VarIn, VarOut) 244 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root244 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 245 245 IMPLICIT NONE 246 246 … … 253 253 254 254 SUBROUTINE scatter_mpi_i3(VarIn, VarOut) 255 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root255 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 256 256 IMPLICIT NONE 257 257 … … 265 265 266 266 SUBROUTINE scatter_mpi_r(VarIn, VarOut) 267 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root267 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 268 268 IMPLICIT NONE 269 269 … … 276 276 277 277 SUBROUTINE scatter_mpi_r1(VarIn, VarOut) 278 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root278 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 279 279 IMPLICIT NONE 280 280 … … 287 287 288 288 SUBROUTINE scatter_mpi_r2(VarIn, VarOut) 289 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root289 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 290 290 IMPLICIT NONE 291 291 … … 298 298 299 299 SUBROUTINE scatter_mpi_r3(VarIn, VarOut) 300 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root300 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 301 301 IMPLICIT NONE 302 302 … … 310 310 311 311 SUBROUTINE scatter_mpi_l(VarIn, VarOut) 312 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root312 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 313 313 IMPLICIT NONE 314 314 … … 321 321 322 322 SUBROUTINE scatter_mpi_l1(VarIn, VarOut) 323 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root323 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 324 324 IMPLICIT NONE 325 325 … … 332 332 333 333 SUBROUTINE scatter_mpi_l2(VarIn, VarOut) 334 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root334 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 335 335 IMPLICIT NONE 336 336 … … 343 343 344 344 SUBROUTINE scatter_mpi_l3(VarIn, VarOut) 345 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root345 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 346 346 IMPLICIT NONE 347 347 … … 360 360 361 361 SUBROUTINE gather_mpi_i(VarIn, VarOut) 362 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root362 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 363 363 IMPLICIT NONE 364 364 … … 374 374 375 375 SUBROUTINE gather_mpi_i1(VarIn, VarOut) 376 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root376 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 377 377 IMPLICIT NONE 378 378 … … 387 387 388 388 SUBROUTINE gather_mpi_i2(VarIn, VarOut) 389 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root389 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 390 390 IMPLICIT NONE 391 391 … … 400 400 401 401 SUBROUTINE gather_mpi_i3(VarIn, VarOut) 402 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root402 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 403 403 IMPLICIT NONE 404 404 … … 413 413 414 414 SUBROUTINE gather_mpi_r(VarIn, VarOut) 415 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root415 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 416 416 IMPLICIT NONE 417 417 … … 426 426 427 427 SUBROUTINE gather_mpi_r1(VarIn, VarOut) 428 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root428 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 429 429 IMPLICIT NONE 430 430 … … 439 439 440 440 SUBROUTINE gather_mpi_r2(VarIn, VarOut) 441 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root441 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 442 442 IMPLICIT NONE 443 443 … … 452 452 453 453 SUBROUTINE gather_mpi_r3(VarIn, VarOut) 454 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root454 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 455 455 IMPLICIT NONE 456 456 … … 465 465 466 466 SUBROUTINE gather_mpi_l(VarIn, VarOut) 467 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root467 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 468 468 IMPLICIT NONE 469 469 … … 478 478 479 479 SUBROUTINE gather_mpi_l1(VarIn, VarOut) 480 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root480 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 481 481 IMPLICIT NONE 482 482 … … 491 491 492 492 SUBROUTINE gather_mpi_l2(VarIn, VarOut) 493 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root493 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 494 494 IMPLICIT NONE 495 495 … … 504 504 505 505 SUBROUTINE gather_mpi_l3(VarIn, VarOut) 506 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root506 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 507 507 IMPLICIT NONE 508 508 … … 519 519 520 520 SUBROUTINE scatter2D_mpi_i(VarIn, VarOut) 521 USE mod_grid_phy_lmdz521 USE lmdz_grid_phy 522 522 IMPLICIT NONE 523 523 … … 533 533 534 534 SUBROUTINE scatter2D_mpi_i1(VarIn, VarOut) 535 USE mod_grid_phy_lmdz535 USE lmdz_grid_phy 536 536 IMPLICIT NONE 537 537 … … 546 546 547 547 SUBROUTINE scatter2D_mpi_i2(VarIn, VarOut) 548 USE mod_grid_phy_lmdz548 USE lmdz_grid_phy 549 549 IMPLICIT NONE 550 550 … … 560 560 561 561 SUBROUTINE scatter2D_mpi_i3(VarIn, VarOut) 562 USE mod_grid_phy_lmdz562 USE lmdz_grid_phy 563 563 IMPLICIT NONE 564 564 … … 575 575 576 576 SUBROUTINE scatter2D_mpi_r(VarIn, VarOut) 577 USE mod_grid_phy_lmdz577 USE lmdz_grid_phy 578 578 IMPLICIT NONE 579 579 … … 590 590 591 591 SUBROUTINE scatter2D_mpi_r1(VarIn, VarOut) 592 USE mod_grid_phy_lmdz592 USE lmdz_grid_phy 593 593 IMPLICIT NONE 594 594 REAL,INTENT(IN),DIMENSION(:,:,:) :: VarIn … … 604 604 605 605 SUBROUTINE scatter2D_mpi_r2(VarIn, VarOut) 606 USE mod_grid_phy_lmdz606 USE lmdz_grid_phy 607 607 IMPLICIT NONE 608 608 … … 618 618 619 619 SUBROUTINE scatter2D_mpi_r3(VarIn, VarOut) 620 USE mod_grid_phy_lmdz620 USE lmdz_grid_phy 621 621 IMPLICIT NONE 622 622 … … 633 633 634 634 SUBROUTINE scatter2D_mpi_l(VarIn, VarOut) 635 USE mod_grid_phy_lmdz635 USE lmdz_grid_phy 636 636 IMPLICIT NONE 637 637 … … 648 648 649 649 SUBROUTINE scatter2D_mpi_l1(VarIn, VarOut) 650 USE mod_grid_phy_lmdz650 USE lmdz_grid_phy 651 651 IMPLICIT NONE 652 652 … … 663 663 664 664 SUBROUTINE scatter2D_mpi_l2(VarIn, VarOut) 665 USE mod_grid_phy_lmdz665 USE lmdz_grid_phy 666 666 IMPLICIT NONE 667 667 … … 677 677 678 678 SUBROUTINE scatter2D_mpi_l3(VarIn, VarOut) 679 USE mod_grid_phy_lmdz679 USE lmdz_grid_phy 680 680 IMPLICIT NONE 681 681 … … 696 696 697 697 SUBROUTINE gather2D_mpi_i(VarIn, VarOut) 698 USE mod_grid_phy_lmdz698 USE lmdz_grid_phy 699 699 IMPLICIT NONE 700 700 … … 710 710 711 711 SUBROUTINE gather2D_mpi_i1(VarIn, VarOut) 712 USE mod_grid_phy_lmdz712 USE lmdz_grid_phy 713 713 IMPLICIT NONE 714 714 … … 724 724 725 725 SUBROUTINE gather2D_mpi_i2(VarIn, VarOut) 726 USE mod_grid_phy_lmdz726 USE lmdz_grid_phy 727 727 IMPLICIT NONE 728 728 … … 738 738 739 739 SUBROUTINE gather2D_mpi_i3(VarIn, VarOut) 740 USE mod_grid_phy_lmdz740 USE lmdz_grid_phy 741 741 IMPLICIT NONE 742 742 … … 754 754 755 755 SUBROUTINE gather2D_mpi_r(VarIn, VarOut) 756 USE mod_grid_phy_lmdz756 USE lmdz_grid_phy 757 757 IMPLICIT NONE 758 758 … … 768 768 769 769 SUBROUTINE gather2D_mpi_r1(VarIn, VarOut) 770 USE mod_grid_phy_lmdz770 USE lmdz_grid_phy 771 771 IMPLICIT NONE 772 772 … … 782 782 783 783 SUBROUTINE gather2D_mpi_r2(VarIn, VarOut) 784 USE mod_grid_phy_lmdz784 USE lmdz_grid_phy 785 785 IMPLICIT NONE 786 786 … … 796 796 797 797 SUBROUTINE gather2D_mpi_r3(VarIn, VarOut) 798 USE mod_grid_phy_lmdz798 USE lmdz_grid_phy 799 799 IMPLICIT NONE 800 800 … … 812 812 813 813 SUBROUTINE gather2D_mpi_l(VarIn, VarOut) 814 USE mod_grid_phy_lmdz814 USE lmdz_grid_phy 815 815 IMPLICIT NONE 816 816 … … 826 826 827 827 SUBROUTINE gather2D_mpi_l1(VarIn, VarOut) 828 USE mod_grid_phy_lmdz828 USE lmdz_grid_phy 829 829 IMPLICIT NONE 830 830 … … 840 840 841 841 SUBROUTINE gather2D_mpi_l2(VarIn, VarOut) 842 USE mod_grid_phy_lmdz842 USE lmdz_grid_phy 843 843 IMPLICIT NONE 844 844 … … 854 854 855 855 SUBROUTINE gather2D_mpi_l3(VarIn, VarOut) 856 USE mod_grid_phy_lmdz856 USE lmdz_grid_phy 857 857 IMPLICIT NONE 858 858 … … 873 873 874 874 SUBROUTINE reduce_sum_mpi_i(VarIn, VarOut) 875 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root875 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 876 876 IMPLICIT NONE 877 877 … … 888 888 889 889 SUBROUTINE reduce_sum_mpi_i1(VarIn, VarOut) 890 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root890 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 891 891 IMPLICIT NONE 892 892 … … 899 899 900 900 SUBROUTINE reduce_sum_mpi_i2(VarIn, VarOut) 901 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root901 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 902 902 IMPLICIT NONE 903 903 … … 910 910 911 911 SUBROUTINE reduce_sum_mpi_i3(VarIn, VarOut) 912 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root912 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 913 913 IMPLICIT NONE 914 914 … … 921 921 922 922 SUBROUTINE reduce_sum_mpi_i4(VarIn, VarOut) 923 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root923 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 924 924 IMPLICIT NONE 925 925 … … 933 933 934 934 SUBROUTINE reduce_sum_mpi_r(VarIn, VarOut) 935 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root935 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 936 936 IMPLICIT NONE 937 937 … … 948 948 949 949 SUBROUTINE reduce_sum_mpi_r1(VarIn, VarOut) 950 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root950 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 951 951 IMPLICIT NONE 952 952 … … 959 959 960 960 SUBROUTINE reduce_sum_mpi_r2(VarIn, VarOut) 961 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root961 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 962 962 IMPLICIT NONE 963 963 … … 970 970 971 971 SUBROUTINE reduce_sum_mpi_r3(VarIn, VarOut) 972 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root972 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 973 973 IMPLICIT NONE 974 974 … … 981 981 982 982 SUBROUTINE reduce_sum_mpi_r4(VarIn, VarOut) 983 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root983 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 984 984 IMPLICIT NONE 985 985 … … 997 997 998 998 SUBROUTINE reduce_min_mpi_i(VarIn, VarOut) 999 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root999 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 1000 1000 IMPLICIT NONE 1001 1001 … … 1012 1012 1013 1013 SUBROUTINE reduce_min_mpi_i1(VarIn, VarOut) 1014 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root1014 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 1015 1015 IMPLICIT NONE 1016 1016 … … 1023 1023 1024 1024 SUBROUTINE reduce_min_mpi_i2(VarIn, VarOut) 1025 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root1025 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 1026 1026 IMPLICIT NONE 1027 1027 … … 1034 1034 1035 1035 SUBROUTINE reduce_min_mpi_i3(VarIn, VarOut) 1036 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root1036 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 1037 1037 IMPLICIT NONE 1038 1038 … … 1045 1045 1046 1046 SUBROUTINE reduce_min_mpi_i4(VarIn, VarOut) 1047 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root1047 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 1048 1048 IMPLICIT NONE 1049 1049 … … 1057 1057 1058 1058 SUBROUTINE reduce_min_mpi_r(VarIn, VarOut) 1059 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root1059 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 1060 1060 IMPLICIT NONE 1061 1061 … … 1072 1072 1073 1073 SUBROUTINE reduce_min_mpi_r1(VarIn, VarOut) 1074 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root1074 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 1075 1075 IMPLICIT NONE 1076 1076 … … 1083 1083 1084 1084 SUBROUTINE reduce_min_mpi_r2(VarIn, VarOut) 1085 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root1085 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 1086 1086 IMPLICIT NONE 1087 1087 … … 1094 1094 1095 1095 SUBROUTINE reduce_min_mpi_r3(VarIn, VarOut) 1096 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root1096 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 1097 1097 IMPLICIT NONE 1098 1098 … … 1105 1105 1106 1106 SUBROUTINE reduce_min_mpi_r4(VarIn, VarOut) 1107 USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root1107 USE lmdz_phys_mpi_data, ONLY: is_mpi_root 1108 1108 IMPLICIT NONE 1109 1109 … … 1366 1366 1367 1367 SUBROUTINE bcast_mpi_cgen(var,nb) 1368 USE mod_phys_lmdz_mpi_data1368 USE lmdz_phys_mpi_data 1369 1369 USE lmdz_mpi 1370 1370 IMPLICIT NONE … … 1384 1384 1385 1385 SUBROUTINE bcast_mpi_igen(var,nb) 1386 USE mod_phys_lmdz_mpi_data1386 USE lmdz_phys_mpi_data 1387 1387 USE lmdz_mpi 1388 1388 IMPLICIT NONE … … 1403 1403 1404 1404 SUBROUTINE bcast_mpi_rgen(var,nb) 1405 USE mod_phys_lmdz_mpi_data1405 USE lmdz_phys_mpi_data 1406 1406 USE lmdz_mpi 1407 1407 IMPLICIT NONE … … 1422 1422 1423 1423 SUBROUTINE bcast_mpi_lgen(var,nb) 1424 USE mod_phys_lmdz_mpi_data1424 USE lmdz_phys_mpi_data 1425 1425 USE lmdz_mpi 1426 1426 IMPLICIT NONE … … 1440 1440 1441 1441 SUBROUTINE scatter_mpi_igen(VarIn, VarOut, dimsize) 1442 USE mod_phys_lmdz_mpi_data1443 USE mod_grid_phy_lmdz1442 USE lmdz_phys_mpi_data 1443 USE lmdz_grid_phy 1444 1444 USE lmdz_mpi 1445 1445 IMPLICIT NONE … … 1481 1481 1482 1482 SUBROUTINE scatter_mpi_rgen(VarIn, VarOut, dimsize) 1483 USE mod_phys_lmdz_mpi_data1484 USE mod_grid_phy_lmdz1483 USE lmdz_phys_mpi_data 1484 USE lmdz_grid_phy 1485 1485 USE lmdz_mpi 1486 1486 IMPLICIT NONE … … 1521 1521 1522 1522 SUBROUTINE scatter_mpi_lgen(VarIn, VarOut, dimsize) 1523 USE mod_phys_lmdz_mpi_data1524 USE mod_grid_phy_lmdz1523 USE lmdz_phys_mpi_data 1524 USE lmdz_grid_phy 1525 1525 USE lmdz_mpi 1526 1526 IMPLICIT NONE … … 1564 1564 1565 1565 SUBROUTINE gather_mpi_igen(VarIn, VarOut, dimsize) 1566 USE mod_phys_lmdz_mpi_data1567 USE mod_grid_phy_lmdz1566 USE lmdz_phys_mpi_data 1567 USE lmdz_grid_phy 1568 1568 USE lmdz_mpi 1569 1569 IMPLICIT NONE … … 1613 1613 1614 1614 SUBROUTINE gather_mpi_rgen(VarIn, VarOut, dimsize) 1615 USE mod_phys_lmdz_mpi_data1616 USE mod_grid_phy_lmdz1615 USE lmdz_phys_mpi_data 1616 USE lmdz_grid_phy 1617 1617 USE lmdz_mpi 1618 1618 IMPLICIT NONE … … 1660 1660 1661 1661 SUBROUTINE gather_mpi_lgen(VarIn, VarOut, dimsize) 1662 USE mod_phys_lmdz_mpi_data1663 USE mod_grid_phy_lmdz1662 USE lmdz_phys_mpi_data 1663 USE lmdz_grid_phy 1664 1664 USE lmdz_mpi 1665 1665 IMPLICIT NONE … … 1710 1710 1711 1711 SUBROUTINE reduce_sum_mpi_igen(VarIn,VarOut,nb) 1712 USE mod_phys_lmdz_mpi_data1713 USE mod_grid_phy_lmdz1712 USE lmdz_phys_mpi_data 1713 USE lmdz_grid_phy 1714 1714 USE lmdz_mpi 1715 1715 IMPLICIT NONE … … 1731 1731 1732 1732 SUBROUTINE reduce_sum_mpi_rgen(VarIn,VarOut,nb) 1733 USE mod_phys_lmdz_mpi_data1734 USE mod_grid_phy_lmdz1733 USE lmdz_phys_mpi_data 1734 USE lmdz_grid_phy 1735 1735 USE lmdz_mpi 1736 1736 IMPLICIT NONE … … 1753 1753 1754 1754 SUBROUTINE reduce_min_mpi_igen(VarIn,VarOut,nb) 1755 USE mod_phys_lmdz_mpi_data1756 USE mod_grid_phy_lmdz1755 USE lmdz_phys_mpi_data 1756 USE lmdz_grid_phy 1757 1757 USE lmdz_mpi 1758 1758 IMPLICIT NONE … … 1774 1774 1775 1775 SUBROUTINE reduce_min_mpi_rgen(VarIn,VarOut,nb) 1776 USE mod_phys_lmdz_mpi_data1777 USE mod_grid_phy_lmdz1776 USE lmdz_phys_mpi_data 1777 USE lmdz_grid_phy 1778 1778 USE lmdz_mpi 1779 1779 … … 1801 1801 1802 1802 SUBROUTINE grid1dTo2d_mpi_igen(VarIn,VarOut,dimsize) 1803 USE mod_phys_lmdz_mpi_data1804 USE mod_grid_phy_lmdz1803 USE lmdz_phys_mpi_data 1804 USE lmdz_grid_phy 1805 1805 IMPLICIT NONE 1806 1806 … … 1845 1845 1846 1846 SUBROUTINE grid1dTo2d_mpi_rgen(VarIn,VarOut,dimsize) 1847 USE mod_phys_lmdz_mpi_data1848 USE mod_grid_phy_lmdz1847 USE lmdz_phys_mpi_data 1848 USE lmdz_grid_phy 1849 1849 IMPLICIT NONE 1850 1850 … … 1890 1890 1891 1891 SUBROUTINE grid1dTo2d_mpi_lgen(VarIn,VarOut,dimsize) 1892 USE mod_phys_lmdz_mpi_data1893 USE mod_grid_phy_lmdz1892 USE lmdz_phys_mpi_data 1893 USE lmdz_grid_phy 1894 1894 IMPLICIT NONE 1895 1895 … … 1936 1936 1937 1937 SUBROUTINE grid2dTo1d_mpi_igen(VarIn,VarOut,dimsize) 1938 USE mod_phys_lmdz_mpi_data1939 USE mod_grid_phy_lmdz1938 USE lmdz_phys_mpi_data 1939 USE lmdz_grid_phy 1940 1940 IMPLICIT NONE 1941 1941 … … 1966 1966 1967 1967 SUBROUTINE grid2dTo1d_mpi_rgen(VarIn,VarOut,dimsize) 1968 USE mod_phys_lmdz_mpi_data1969 USE mod_grid_phy_lmdz1968 USE lmdz_phys_mpi_data 1969 USE lmdz_grid_phy 1970 1970 IMPLICIT NONE 1971 1971 … … 1995 1995 1996 1996 SUBROUTINE grid2dTo1d_mpi_lgen(VarIn,VarOut,dimsize) 1997 USE mod_phys_lmdz_mpi_data1998 USE mod_grid_phy_lmdz1997 USE lmdz_phys_mpi_data 1998 USE lmdz_grid_phy 1999 1999 IMPLICIT NONE 2000 2000 … … 2022 2022 END SUBROUTINE grid2dTo1d_mpi_lgen 2023 2023 2024 END MODULE mod_phys_lmdz_mpi_transfert2025 2024 END MODULE lmdz_phys_mpi_transfert 2025 -
LMDZ6/branches/Amaury_dev/libf/phy_common/lmdz_phys_omp_data.F90
r5109 r5110 2 2 !$Id$ 3 3 4 MODULE mod_phys_lmdz_omp_data4 MODULE lmdz_phys_omp_data 5 5 6 6 INTEGER,SAVE :: omp_size … … 25 25 SUBROUTINE Init_phys_lmdz_omp_data(klon_mpi) 26 26 USE dimphy 27 USE mod_phys_lmdz_mpi_data, ONLY: is_north_pole_dyn, is_south_pole_dyn27 USE lmdz_phys_mpi_data, ONLY: is_north_pole_dyn, is_south_pole_dyn 28 28 IMPLICIT NONE 29 29 INTEGER, INTENT(in) :: klon_mpi … … 125 125 126 126 END SUBROUTINE Print_module_data 127 END MODULE mod_phys_lmdz_omp_data127 END MODULE lmdz_phys_omp_data -
LMDZ6/branches/Amaury_dev/libf/phy_common/lmdz_phys_omp_transfert.f90
r5109 r5110 2 2 !$Header$ 3 3 4 MODULE mod_phys_lmdz_omp_transfert4 MODULE lmdz_phys_omp_transfert 5 5 6 6 PRIVATE … … 933 933 934 934 SUBROUTINE scatter_omp_igen(VarIn,VarOut,dimsize,Buff) 935 USE mod_phys_lmdz_omp_data936 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi935 USE lmdz_phys_omp_data 936 USE lmdz_phys_mpi_data, ONLY: klon_mpi 937 937 IMPLICIT NONE 938 938 … … 964 964 965 965 SUBROUTINE scatter_omp_rgen(VarIn,VarOut,dimsize,Buff) 966 USE mod_phys_lmdz_omp_data967 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi966 USE lmdz_phys_omp_data 967 USE lmdz_phys_mpi_data, ONLY: klon_mpi 968 968 IMPLICIT NONE 969 969 … … 995 995 996 996 SUBROUTINE scatter_omp_lgen(VarIn,VarOut,dimsize,Buff) 997 USE mod_phys_lmdz_omp_data998 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi997 USE lmdz_phys_omp_data 998 USE lmdz_phys_mpi_data, ONLY: klon_mpi 999 999 IMPLICIT NONE 1000 1000 … … 1029 1029 1030 1030 SUBROUTINE gather_omp_igen(VarIn,VarOut,dimsize,Buff) 1031 USE mod_phys_lmdz_omp_data1032 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi1031 USE lmdz_phys_omp_data 1032 USE lmdz_phys_mpi_data, ONLY: klon_mpi 1033 1033 IMPLICIT NONE 1034 1034 … … 1061 1061 1062 1062 SUBROUTINE gather_omp_rgen(VarIn,VarOut,dimsize) 1063 USE mod_phys_lmdz_omp_data1064 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi1063 USE lmdz_phys_omp_data 1064 USE lmdz_phys_mpi_data, ONLY: klon_mpi 1065 1065 IMPLICIT NONE 1066 1066 … … 1088 1088 1089 1089 SUBROUTINE gather_omp_lgen(VarIn,VarOut,dimsize,Buff) 1090 USE mod_phys_lmdz_omp_data1091 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi1090 USE lmdz_phys_omp_data 1091 USE lmdz_phys_mpi_data, ONLY: klon_mpi 1092 1092 IMPLICIT NONE 1093 1093 … … 1247 1247 1248 1248 1249 END MODULE mod_phys_lmdz_omp_transfert1249 END MODULE lmdz_phys_omp_transfert -
LMDZ6/branches/Amaury_dev/libf/phy_common/lmdz_phys_para.f90
r5109 r5110 2 2 ! $Id$ 3 3 4 MODULE mod_phys_lmdz_para5 USE mod_phys_lmdz_transfert_para6 USE mod_phys_lmdz_mpi_data7 USE mod_phys_lmdz_omp_data4 MODULE lmdz_phys_para 5 USE lmdz_phys_transfert_para 6 USE lmdz_phys_mpi_data 7 USE lmdz_phys_omp_data 8 8 9 9 INTEGER,SAVE :: klon_loc … … 51 51 52 52 SUBROUTINE Test_transfert 53 USE mod_grid_phy_lmdz53 USE lmdz_grid_phy 54 54 USE print_control_mod, ONLY: lunout 55 55 IMPLICIT NONE … … 117 117 END SUBROUTINE Test_transfert 118 118 119 END MODULE mod_phys_lmdz_para119 END MODULE lmdz_phys_para 120 120 -
LMDZ6/branches/Amaury_dev/libf/phy_common/lmdz_phys_transfert_para.f90
r5109 r5110 2 2 !$Id$ 3 3 4 MODULE mod_phys_lmdz_transfert_para5 6 USE mod_phys_lmdz_mpi_transfert7 USE mod_phys_lmdz_omp_transfert4 MODULE lmdz_phys_transfert_para 5 6 USE lmdz_phys_mpi_transfert 7 USE lmdz_phys_omp_transfert 8 8 9 9 … … 256 256 257 257 SUBROUTINE scatter_i(VarIn, VarOut) 258 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi258 USE lmdz_phys_mpi_data, ONLY: klon_mpi 259 259 IMPLICIT NONE 260 260 … … 274 274 275 275 SUBROUTINE scatter_i1(VarIn, VarOut) 276 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi276 USE lmdz_phys_mpi_data, ONLY: klon_mpi 277 277 IMPLICIT NONE 278 278 … … 291 291 292 292 SUBROUTINE scatter_i2(VarIn, VarOut) 293 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi293 USE lmdz_phys_mpi_data, ONLY: klon_mpi 294 294 IMPLICIT NONE 295 295 … … 308 308 309 309 SUBROUTINE scatter_i3(VarIn, VarOut) 310 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi310 USE lmdz_phys_mpi_data, ONLY: klon_mpi 311 311 IMPLICIT NONE 312 312 … … 325 325 326 326 SUBROUTINE scatter_r(VarIn, VarOut) 327 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi327 USE lmdz_phys_mpi_data, ONLY: klon_mpi 328 328 IMPLICIT NONE 329 329 … … 343 343 344 344 SUBROUTINE scatter_r1(VarIn, VarOut) 345 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi345 USE lmdz_phys_mpi_data, ONLY: klon_mpi 346 346 IMPLICIT NONE 347 347 … … 360 360 361 361 SUBROUTINE scatter_r2(VarIn, VarOut) 362 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi362 USE lmdz_phys_mpi_data, ONLY: klon_mpi 363 363 IMPLICIT NONE 364 364 … … 377 377 378 378 SUBROUTINE scatter_r3(VarIn, VarOut) 379 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi379 USE lmdz_phys_mpi_data, ONLY: klon_mpi 380 380 IMPLICIT NONE 381 381 … … 395 395 396 396 SUBROUTINE scatter_l(VarIn, VarOut) 397 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi397 USE lmdz_phys_mpi_data, ONLY: klon_mpi 398 398 IMPLICIT NONE 399 399 … … 413 413 414 414 SUBROUTINE scatter_l1(VarIn, VarOut) 415 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi415 USE lmdz_phys_mpi_data, ONLY: klon_mpi 416 416 IMPLICIT NONE 417 417 … … 430 430 431 431 SUBROUTINE scatter_l2(VarIn, VarOut) 432 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi432 USE lmdz_phys_mpi_data, ONLY: klon_mpi 433 433 IMPLICIT NONE 434 434 … … 447 447 448 448 SUBROUTINE scatter_l3(VarIn, VarOut) 449 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi449 USE lmdz_phys_mpi_data, ONLY: klon_mpi 450 450 IMPLICIT NONE 451 451 … … 471 471 472 472 SUBROUTINE gather_i(VarIn, VarOut) 473 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi473 USE lmdz_phys_mpi_data, ONLY: klon_mpi 474 474 IMPLICIT NONE 475 475 … … 488 488 489 489 SUBROUTINE gather_i1(VarIn, VarOut) 490 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi490 USE lmdz_phys_mpi_data, ONLY: klon_mpi 491 491 IMPLICIT NONE 492 492 … … 505 505 506 506 SUBROUTINE gather_i2(VarIn, VarOut) 507 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi507 USE lmdz_phys_mpi_data, ONLY: klon_mpi 508 508 IMPLICIT NONE 509 509 … … 522 522 523 523 SUBROUTINE gather_i3(VarIn, VarOut) 524 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi524 USE lmdz_phys_mpi_data, ONLY: klon_mpi 525 525 IMPLICIT NONE 526 526 … … 541 541 542 542 SUBROUTINE gather_r(VarIn, VarOut) 543 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi543 USE lmdz_phys_mpi_data, ONLY: klon_mpi 544 544 IMPLICIT NONE 545 545 … … 558 558 559 559 SUBROUTINE gather_r1(VarIn, VarOut) 560 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi560 USE lmdz_phys_mpi_data, ONLY: klon_mpi 561 561 IMPLICIT NONE 562 562 … … 575 575 576 576 SUBROUTINE gather_r2(VarIn, VarOut) 577 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi577 USE lmdz_phys_mpi_data, ONLY: klon_mpi 578 578 IMPLICIT NONE 579 579 … … 592 592 593 593 SUBROUTINE gather_r3(VarIn, VarOut) 594 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi594 USE lmdz_phys_mpi_data, ONLY: klon_mpi 595 595 IMPLICIT NONE 596 596 … … 611 611 612 612 SUBROUTINE gather_l(VarIn, VarOut) 613 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi613 USE lmdz_phys_mpi_data, ONLY: klon_mpi 614 614 IMPLICIT NONE 615 615 … … 628 628 629 629 SUBROUTINE gather_l1(VarIn, VarOut) 630 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi630 USE lmdz_phys_mpi_data, ONLY: klon_mpi 631 631 IMPLICIT NONE 632 632 … … 645 645 646 646 SUBROUTINE gather_l2(VarIn, VarOut) 647 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi647 USE lmdz_phys_mpi_data, ONLY: klon_mpi 648 648 IMPLICIT NONE 649 649 … … 662 662 663 663 SUBROUTINE gather_l3(VarIn, VarOut) 664 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi664 USE lmdz_phys_mpi_data, ONLY: klon_mpi 665 665 IMPLICIT NONE 666 666 … … 686 686 687 687 SUBROUTINE scatter2D_i(VarIn, VarOut) 688 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi688 USE lmdz_phys_mpi_data, ONLY: klon_mpi 689 689 IMPLICIT NONE 690 690 … … 703 703 704 704 SUBROUTINE scatter2D_i1(VarIn, VarOut) 705 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi705 USE lmdz_phys_mpi_data, ONLY: klon_mpi 706 706 IMPLICIT NONE 707 707 … … 720 720 721 721 SUBROUTINE scatter2D_i2(VarIn, VarOut) 722 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi722 USE lmdz_phys_mpi_data, ONLY: klon_mpi 723 723 IMPLICIT NONE 724 724 … … 737 737 738 738 SUBROUTINE scatter2D_i3(VarIn, VarOut) 739 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi739 USE lmdz_phys_mpi_data, ONLY: klon_mpi 740 740 IMPLICIT NONE 741 741 … … 756 756 757 757 SUBROUTINE scatter2D_r(VarIn, VarOut) 758 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi758 USE lmdz_phys_mpi_data, ONLY: klon_mpi 759 759 IMPLICIT NONE 760 760 … … 773 773 774 774 SUBROUTINE scatter2D_r1(VarIn, VarOut) 775 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi775 USE lmdz_phys_mpi_data, ONLY: klon_mpi 776 776 IMPLICIT NONE 777 777 … … 790 790 791 791 SUBROUTINE scatter2D_r2(VarIn, VarOut) 792 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi792 USE lmdz_phys_mpi_data, ONLY: klon_mpi 793 793 IMPLICIT NONE 794 794 … … 807 807 808 808 SUBROUTINE scatter2D_r3(VarIn, VarOut) 809 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi809 USE lmdz_phys_mpi_data, ONLY: klon_mpi 810 810 IMPLICIT NONE 811 811 … … 827 827 828 828 SUBROUTINE scatter2D_l(VarIn, VarOut) 829 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi829 USE lmdz_phys_mpi_data, ONLY: klon_mpi 830 830 IMPLICIT NONE 831 831 … … 844 844 845 845 SUBROUTINE scatter2D_l1(VarIn, VarOut) 846 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi846 USE lmdz_phys_mpi_data, ONLY: klon_mpi 847 847 IMPLICIT NONE 848 848 … … 861 861 862 862 SUBROUTINE scatter2D_l2(VarIn, VarOut) 863 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi863 USE lmdz_phys_mpi_data, ONLY: klon_mpi 864 864 IMPLICIT NONE 865 865 … … 878 878 879 879 SUBROUTINE scatter2D_l3(VarIn, VarOut) 880 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi880 USE lmdz_phys_mpi_data, ONLY: klon_mpi 881 881 IMPLICIT NONE 882 882 … … 901 901 902 902 SUBROUTINE gather2D_i(VarIn, VarOut) 903 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi903 USE lmdz_phys_mpi_data, ONLY: klon_mpi 904 904 IMPLICIT NONE 905 905 … … 918 918 919 919 SUBROUTINE gather2D_i1(VarIn, VarOut) 920 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi920 USE lmdz_phys_mpi_data, ONLY: klon_mpi 921 921 IMPLICIT NONE 922 922 … … 935 935 936 936 SUBROUTINE gather2D_i2(VarIn, VarOut) 937 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi937 USE lmdz_phys_mpi_data, ONLY: klon_mpi 938 938 IMPLICIT NONE 939 939 … … 952 952 953 953 SUBROUTINE gather2D_i3(VarIn, VarOut) 954 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi954 USE lmdz_phys_mpi_data, ONLY: klon_mpi 955 955 IMPLICIT NONE 956 956 … … 971 971 972 972 SUBROUTINE gather2D_r(VarIn, VarOut) 973 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi973 USE lmdz_phys_mpi_data, ONLY: klon_mpi 974 974 IMPLICIT NONE 975 975 … … 988 988 989 989 SUBROUTINE gather2D_r1(VarIn, VarOut) 990 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi990 USE lmdz_phys_mpi_data, ONLY: klon_mpi 991 991 IMPLICIT NONE 992 992 … … 1005 1005 1006 1006 SUBROUTINE gather2D_r2(VarIn, VarOut) 1007 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi1007 USE lmdz_phys_mpi_data, ONLY: klon_mpi 1008 1008 IMPLICIT NONE 1009 1009 … … 1022 1022 1023 1023 SUBROUTINE gather2D_r3(VarIn, VarOut) 1024 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi1024 USE lmdz_phys_mpi_data, ONLY: klon_mpi 1025 1025 IMPLICIT NONE 1026 1026 … … 1041 1041 1042 1042 SUBROUTINE gather2D_l(VarIn, VarOut) 1043 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi1043 USE lmdz_phys_mpi_data, ONLY: klon_mpi 1044 1044 IMPLICIT NONE 1045 1045 … … 1058 1058 1059 1059 SUBROUTINE gather2D_l1(VarIn, VarOut) 1060 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi1060 USE lmdz_phys_mpi_data, ONLY: klon_mpi 1061 1061 IMPLICIT NONE 1062 1062 … … 1075 1075 1076 1076 SUBROUTINE gather2D_l2(VarIn, VarOut) 1077 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi1077 USE lmdz_phys_mpi_data, ONLY: klon_mpi 1078 1078 IMPLICIT NONE 1079 1079 … … 1092 1092 1093 1093 SUBROUTINE gather2D_l3(VarIn, VarOut) 1094 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi1094 USE lmdz_phys_mpi_data, ONLY: klon_mpi 1095 1095 IMPLICIT NONE 1096 1096 … … 1445 1445 1446 1446 1447 END MODULE mod_phys_lmdz_transfert_para1448 1447 END MODULE lmdz_phys_transfert_para 1448 -
LMDZ6/branches/Amaury_dev/libf/phy_common/physics_distribution_mod.F90
r5101 r5110 10 10 nbp, nbp_lon, nbp_lat, nbp_lev, & 11 11 communicator) 12 USE mod_phys_lmdz_para, ONLY: init_phys_lmdz_para, klon_omp13 USE mod_grid_phy_lmdz, ONLY: init_grid_phy_lmdz12 USE lmdz_phys_para, ONLY: init_phys_lmdz_para, klon_omp 13 USE lmdz_grid_phy, ONLY: init_grid_phy_lmdz 14 14 USE dimphy, ONLY: Init_dimphy 15 15 USE infotrac_phy, ONLY: type_trac … … 47 47 48 48 !SUBROUTINE Init_Phys_lmdz(iim,jjp1,llm,nb_proc,distrib) 49 ! USE mod_phys_lmdz_para, ONLY: Init_phys_lmdz_para!, klon_omp50 ! USE mod_grid_phy_lmdz, ONLY: Init_grid_phy_lmdz!, nbp_lev49 ! USE lmdz_phys_para, ONLY: Init_phys_lmdz_para!, klon_omp 50 ! USE lmdz_grid_phy, ONLY: Init_grid_phy_lmdz!, nbp_lev 51 51 ! USE dimphy, ONLY: Init_dimphy 52 52 ! USE infotrac_phy, ONLY: type_trac -
LMDZ6/branches/Amaury_dev/libf/phy_common/write_field_phy.f90
r5109 r5110 9 9 10 10 SUBROUTINE WriteField_phy(name,Field,ll) 11 USE mod_phys_lmdz_para, ONLY: klon_omp, is_mpi_root, &11 USE lmdz_phys_para, ONLY: klon_omp, is_mpi_root, & 12 12 Gather 13 USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, klon_glo, &13 USE lmdz_grid_phy, ONLY: nbp_lon, nbp_lat, klon_glo, & 14 14 Grid1Dto2D_glo 15 15 USE Write_Field, ONLY: WriteField
Note: See TracChangeset
for help on using the changeset viewer.
