Changeset 88 for trunk/NEMO/OPA_SRC/mppini.F90
- Timestamp:
- 2004-04-22T15:50:27+02:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/mppini.F90
r15 r88 9 9 !! mpp_init2 : Lay out the global domain over processors 10 10 !! with land processor elimination 11 !! mpp_init_ioispl: IOIPSL initialization in mpp 11 12 !!---------------------------------------------------------------------- 12 13 !! * Modules used … … 66 67 WRITE(numout,*) '~~~~~~~~~~~: ' 67 68 WRITE(numout,*) ' nperio = ', nperio 69 WRITE(numout,*) ' npolj = ', npolj 68 70 WRITE(numout,*) ' nimpp = ', nimpp 69 71 WRITE(numout,*) ' njmpp = ', njmpp … … 140 142 141 143 #if defined key_mpp_shmem 142 IF(lwp) WRITE(numout,*)143 IF(lwp) WRITE(numout,*) 'mpp_init : Message Passing PVM T3E + SHMEM'144 IF(lwp) WRITE(numout,*) '~~~~~~~~'144 IF(lwp) WRITE(numout,*) 145 IF(lwp) WRITE(numout,*) 'mpp_init : Message Passing PVM T3E + SHMEM' 146 IF(lwp) WRITE(numout,*) '~~~~~~~~' 145 147 146 148 CALL mppshmem ! Initialisation of shmem array … … 148 150 #endif 149 151 #if defined key_mpp_mpi 150 IF(lwp) WRITE(numout,*)151 IF(lwp) WRITE(numout,*) 'mpp_init : Message Passing MPI'152 IF(lwp) WRITE(numout,*) '~~~~~~~~'152 IF(lwp) WRITE(numout,*) 153 IF(lwp) WRITE(numout,*) 'mpp_init : Message Passing MPI' 154 IF(lwp) WRITE(numout,*) '~~~~~~~~' 153 155 #endif 154 156 … … 472 474 END IF 473 475 476 ! Prepare NetCDF output file (if necessary) 477 CALL mpp_init_ioipsl 474 478 475 479 END SUBROUTINE mpp_init 476 480 477 478 481 # include "mppini_2.h90" 479 482 483 # if defined key_fdir || defined key_dimgout 484 !!---------------------------------------------------------------------- 485 !! 'key_fdir' OR 'key_dimgout' NO use of NetCDF files 486 !!---------------------------------------------------------------------- 487 SUBROUTINE mpp_init_ioipsl ! Dummy routine 488 END SUBROUTINE mpp_init_ioipsl 489 # else 490 SUBROUTINE mpp_init_ioipsl 491 !!---------------------------------------------------------------------- 492 !! *** ROUTINE mpp_init_ioipsl *** 493 !! 494 !! ** Purpose : 495 !! 496 !! ** Method : 497 !! 498 !! History : 499 !! 9.0 ! 04-03 (G. Madec) MPP-IOIPSL 500 !!---------------------------------------------------------------------- 501 USE ioipsl 502 INTEGER, DIMENSION(4) :: & 503 iglo, iloc, iabsf, iabsl, ihals, ihale ! ??? 504 !!---------------------------------------------------------------------- 505 iglo(1) = jpiglo 506 iglo(2) = jpjglo 507 iglo(3) = jpk 508 iglo(4) = 1 509 iloc(1) = nlci 510 iloc(2) = nlcj 511 iloc(3) = jpk 512 iloc(4) = 1 513 iabsf(1) = nimppt(narea) 514 iabsf(2) = njmppt(narea) 515 iabsf(3) = 1 516 iabsf(4) = 1 517 iabsl(:) = iabsf(:) + iloc(:) - 1 518 ihals(1) = jpreci 519 ihals(2) = jprecj 520 ihals(3) = 0 521 ihals(4) = 0 522 ihale(1) = jpreci 523 ihale(2) = jprecj 524 ihale(3) = 0 525 ihale(4) = 0 526 IF( nbondi == -1 .OR. nbondi == 2 ) ihals(1) = 0 527 IF( nbondi == 1 .OR. nbondi == 2 ) ihale(1) = 0 528 IF( nbondj == -1 .OR. nbondj == 2 ) ihals(2) = 0 529 IF( nbondj == 1 .OR. nbondj == 2 ) ihale(2) = 0 530 IF(lwp) THEN 531 WRITE(numout,*) 'mpp_init_ioipsl : iloc = ', iloc (1), iloc (2), iloc (3), iloc (4) 532 WRITE(numout,*) '~~~~~~~~~~~~~~~ iabsf = ', iabsf(1), iabsf(2), iabsf(3), iabsf(4) 533 WRITE(numout,*) ' ihals = ', ihals(1), ihals(2), ihals(3), ihals(4) 534 WRITE(numout,*) ' ihale = ', ihale(1), ihale(2), ihale(3), ihale(4) 535 ENDIF 536 537 CALL ioipsl_inimpp( jpnij, nproc, iglo, iloc, iabsf, iabsl, ihals, ihale ) 538 539 END SUBROUTINE mpp_init_ioipsl 540 541 # endif 480 542 #endif 543 481 544 !!====================================================================== 482 545 END MODULE mppini
Note: See TracChangeset
for help on using the changeset viewer.