New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 88 for trunk/NEMO/OPA_SRC/mppini.F90 – NEMO

Ignore:
Timestamp:
2004-04-22T15:50:27+02:00 (20 years ago)
Author:
opalod
Message:

CT : UPDATE057 : # General syntax, alignement, comments corrections

# l_ctl alone replace the set (l_ctl .AND. lwp)
# Add of diagnostics which are activated when using l_ctl logical

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/mppini.F90

    r15 r88  
    99   !!   mpp_init2      : Lay out the global domain over processors  
    1010   !!                    with land processor elimination 
     11   !!   mpp_init_ioispl: IOIPSL initialization in mpp 
    1112   !!---------------------------------------------------------------------- 
    1213   !! * Modules used 
     
    6667         WRITE(numout,*) '~~~~~~~~~~~: ' 
    6768         WRITE(numout,*) '         nperio = ', nperio 
     69         WRITE(numout,*) '         npolj  = ', npolj 
    6870         WRITE(numout,*) '         nimpp  = ', nimpp 
    6971         WRITE(numout,*) '         njmpp  = ', njmpp 
     
    140142 
    141143#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,*) '~~~~~~~~' 
    145147 
    146148      CALL mppshmem                           ! Initialisation of shmem array 
     
    148150#endif 
    149151#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,*) '~~~~~~~~' 
    153155#endif 
    154156 
     
    472474      END IF 
    473475 
     476      ! Prepare NetCDF output file (if necessary) 
     477      CALL mpp_init_ioipsl 
    474478 
    475479   END SUBROUTINE mpp_init 
    476480 
    477  
    478481#  include "mppini_2.h90" 
    479482 
     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 
    480542#endif 
     543 
    481544   !!====================================================================== 
    482545END MODULE mppini 
Note: See TracChangeset for help on using the changeset viewer.