/[lmdze]/trunk/libf/IOIPSL/ioipslmpp.f90
ViewVC logotype

Diff of /trunk/libf/IOIPSL/ioipslmpp.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 31 by guez, Thu Apr 1 09:07:28 2010 UTC revision 32 by guez, Tue Apr 6 17:52:58 2010 UTC
# Line 7  MODULE ioipslmpp Line 7  MODULE ioipslmpp
7    IMPLICIT NONE    IMPLICIT NONE
8  !-  !-
9    PRIVATE    PRIVATE
10    PUBLIC :: ioipsl_inimpp, ioipslmpp_file, ioipslmpp_addatt    PUBLIC :: ioipslmpp_file, ioipslmpp_addatt
11  !-  !-
12    LOGICAL,SAVE :: ison_mpp=.FALSE., lock=.FALSE.    LOGICAL,SAVE :: ison_mpp=.FALSE., lock=.FALSE.
13  !-  !-
# Line 24  CONTAINS Line 24  CONTAINS
24  !-  !-
25  !===  !===
26  !-  !-
 SUBROUTINE ioipsl_inimpp &  
  & (petotnb, penb, pglo, ploc, pabsf, pabsl, phals, phale)  
 !---------------------------------------------------------------------  
 !- This routine sets up the MPP activity of IOIPSL.  
 !- It will store all the PE information and allow it to be stored  
 !- in the netCDF file and change the file names.  
 !-  
 !- INPUT  
 !-  
 !- penb    : process number  
 !- petotnb : total number of process  
 !- pglo(1) : total number of points in first direction  
 !- pglo(2) : total number of points in second direction  
 !- ploc(1) : local number of points in first direction  
 !- ploc(2) : local number of points in second direction  
 !- pabsf(1) : absolute position of first local point for  
 !-            first dimension  
 !- pabsf(2) : absolute position of first local point for  
 !-            second dimension  
 !- pabsl(1) : absolute position of last local point for  
 !-            first dimension  
 !- pabsl(2) : absolute position of last local point for  
 !-            second dimension  
 !- phals(1) : start halo size in first direction  
 !- phals(2) : start halo size in second direction  
 !- phale(1) : end halo size in first direction  
 !- phale(2) : end halo size in second direction  
 !- phale(2) : end halo size in second direction  
 !---------------------------------------------------------------------  
   IMPLICIT NONE  
 !-  
   INTEGER,INTENT(in) :: penb, petotnb  
   INTEGER,DIMENSION(:),INTENT(in) :: &  
  & pglo, ploc, pabsf, pabsl, phals, phale  
 !---------------------------------------------------------------------  
   IF (lock) THEN  
     CALL histerr (3,'ioipslmpp','ioipslmpp called to late', &  
  &                'please call ioipslmpp before first histbeg','')  
   ELSE  
 !-- Take note of the fact that we are on an MPP.  
     ison_mpp=.TRUE.  
 !--  
     pe_number = penb  
     pe_total_number = petotnb  
     domain_global_size(:) = pglo(:)  
     domain_local_size(:) = ploc(:)  
     domain_abs_first(:) = pabsf(:)  
     domain_abs_last(:) = pabsl(:)  
     domain_halo_start_size(:) = phals(:)  
     domain_halo_end_size(:) = phale(:)  
 !-- Lock this information into the module  
 !-- so that it does not get changed  
     lock = .TRUE.  
   ENDIF  
 !---------------------------  
 END SUBROUTINE ioipsl_inimpp  
 !-  
 !===  
 !-  
27  SUBROUTINE ioipslmpp_file (filename)  SUBROUTINE ioipslmpp_file (filename)
28  !---------------------------------------------------------------------  !---------------------------------------------------------------------
29  !- Update the netCDF file to include the PE number on which this  !- Update the netCDF file to include the PE number on which this
Legend:
Removed from v.31  
changed lines
  Added in v.32
  ViewVC Help
Powered by ViewVC 1.1.21