Changeset 5272 for LMDZ6/trunk/libf/dyn3dmem/parallel_lmdz.F90
- Timestamp:
- Oct 24, 2024, 5:53:15 PM (25 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3dmem/parallel_lmdz.F90
r5271 r5272 86 86 USE lmdz_mpi 87 87 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 88 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 89 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 88 90 implicit none 89 91 90 INCLUDE "paramet.h" 92 91 93 INCLUDE "iniprint.h" 92 94 … … 246 248 SUBROUTINE create_distrib(jj_nb_new,d) 247 249 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 250 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 251 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 248 252 IMPLICIT NONE 249 253 250 INCLUDE "paramet.h" 254 251 255 252 256 INTEGER,INTENT(IN) :: jj_Nb_New(0:MPI_Size-1) … … 298 302 SUBROUTINE Set_Distrib(d) 299 303 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 304 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 305 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 300 306 IMPLICIT NONE 301 307 302 308 303 INCLUDE "paramet.h" 309 304 310 TYPE(distrib),INTENT(IN) :: d 305 311 … … 335 341 SUBROUTINE copy_distrib(dist,new_dist) 336 342 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 343 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 344 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 337 345 IMPLICIT NONE 338 346 339 347 340 INCLUDE "paramet.h" 348 341 349 TYPE(distrib),INTENT(INOUT) :: dist 342 350 TYPE(distrib),INTENT(IN) :: new_dist … … 373 381 SUBROUTINE get_current_distrib(d) 374 382 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 383 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 384 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 375 385 IMPLICIT NONE 376 386 377 387 378 INCLUDE "paramet.h" 388 379 389 TYPE(distrib),INTENT(OUT) :: d 380 390 … … 389 399 USE control_mod, only : ok_dyn_xios 390 400 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 401 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 402 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 391 403 392 404 #ifdef CPP_COUPLE … … 406 418 #endif 407 419 ! #endif of #ifdef CPP_EARTH 408 409 include "paramet.h"410 411 420 integer :: ierr 412 421 integer :: i … … 453 462 subroutine Pack_Data(Field,ij,ll,row,Buffer) 454 463 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 464 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 465 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 455 466 implicit none 456 467 457 468 458 INCLUDE "paramet.h" 469 459 470 460 471 integer, intent(in) :: ij,ll,row … … 477 488 subroutine Unpack_Data(Field,ij,ll,row,Buffer) 478 489 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 490 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 491 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 479 492 implicit none 480 493 481 494 482 INCLUDE "paramet.h" 495 483 496 484 497 integer, intent(in) :: ij,ll,row … … 517 530 USE Vampir 518 531 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 532 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 533 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 519 534 implicit none 520 535 521 INCLUDE "paramet.h" 536 522 537 INTEGER :: ij,ll 523 538 REAL, dimension(ij,ll) :: Field … … 635 650 USE lmdz_mpi 636 651 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 652 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 653 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 637 654 implicit none 638 655 639 INCLUDE "paramet.h" 656 640 657 INCLUDE "iniprint.h" 641 658 INTEGER :: ij,ll,rank … … 716 733 USE lmdz_mpi 717 734 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 735 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 736 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 718 737 implicit none 719 738 720 INCLUDE "paramet.h" 739 721 740 INTEGER :: ij,ll 722 741 REAL, dimension(ij,ll) :: Field … … 735 754 USE lmdz_mpi 736 755 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 756 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 757 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 737 758 implicit none 738 759 739 INCLUDE "paramet.h" 760 740 761 INTEGER :: ij,ll 741 762 REAL, dimension(ij,ll) :: Field … … 756 777 ! USE lmdz_mpi 757 778 ! USE dimensions_mod, ONLY: iim, jjm, llm, ndm 758 implicit none 779 ! USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 780 ! ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 781 !implicit none 759 782 ! 760 ! INCLUDE "paramet.h"783 ! 761 784 ! 762 785 ! INTEGER :: ij,ll
Note: See TracChangeset
for help on using the changeset viewer.