Changeset 1988


Ignore:
Timestamp:
2010-07-07T17:58:55+02:00 (10 years ago)
Author:
rblod
Message:

Some cleaning in External and harmonization off cpp keys with NEMO

Location:
branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL
Files:
15 deleted
12 edited

Legend:

Unmodified
Added
Removed
  • branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modarrays.F

    r1901 r1988  
    5555      INTEGER :: i,lbglob,ubglob 
    5656C 
    57 #ifdef AGRIF_MPI 
     57#ifdef key_mpp_mpi 
    5858      INTEGER :: indglob1,indglob2 
    5959#endif 
     
    6565        ubglob = uboundloc(i) 
    6666C 
    67 #ifdef AGRIF_MPI 
     67#ifdef key_mpp_mpi 
    6868C 
    6969        Call AGRIF_InvLoc(lbglob,Agrif_ProcRank,i,indglob1) 
     
    335335C 
    336336C 
    337 #if !defined AGRIF_MPI 
     337#if !defined key_mpp_mpi 
    338338C     ************************************************************************** 
    339339CCC   Subroutine Agrif_nbdim_VarEQreal 
     
    754754C 
    755755C 
    756 #ifdef AGRIF_MPI 
     756#ifdef key_mpp_mpi 
    757757C     ************************************************************************** 
    758758CCC   Subroutine Where_ValTabToTab_mpi 
     
    10291029      End Subroutine PreProcessToInterpOrUpdate      
    10301030 
    1031 #ifdef AGRIF_MPI 
     1031#ifdef key_mpp_mpi 
    10321032C 
    10331033C     ************************************************************************** 
     
    10911091C 
    10921092C 
    1093 #ifdef AGRIF_MPI 
     1093#ifdef key_mpp_mpi 
    10941094C 
    10951095C 
  • branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modbc.F

    r1901 r1988  
    717717       
    718718C 
    719 #ifdef AGRIF_MPI 
     719#ifdef key_mpp_mpi 
    720720C 
    721721#include "mpif.h" 
     
    772772                                       !    (c2t=1-c1t)  
    773773C 
    774 #ifdef AGRIF_MPI 
     774#ifdef key_mpp_mpi 
    775775C 
    776776      INTEGER,DIMENSION(nbdim)   :: lower,upper 
     
    796796       
    797797 
    798 #if !defined AGRIF_MPI 
     798#if !defined key_mpp_mpi 
    799799      Call Agrif_nbdim_Get_bound_dimension(child%var,lubglob(:,1), 
    800800     &              lubglob(:,2),nbdim) 
     
    886886       
    887887C 
    888 #if defined AGRIF_MPI 
     888#if defined key_mpp_mpi 
    889889                 Call Agrif_nbdim_Get_bound_dimension 
    890890     &                    (child%var,lower,upper,nbdim) 
  • branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modinterp.F

    r1901 r1988  
    3737      Use Agrif_Mask  
    3838      Use Agrif_CurgridFunctions 
    39 #if defined AGRIF_MPI 
     39#if defined key_mpp_mpi 
    4040      Use Agrif_mpp 
    4141#endif 
     
    656656       
    657657C 
    658 #ifdef AGRIF_MPI 
     658#ifdef key_mpp_mpi 
    659659C 
    660660#include "mpif.h" 
     
    715715      INTEGER,DIMENSION(nbdim)    :: indminglob2,indmaxglob2       
    716716C 
    717 #ifdef AGRIF_MPI 
     717#ifdef key_mpp_mpi 
    718718C 
    719719      LOGICAL :: memberout 
     
    739739     &       indmaxglob,indminglob2,indmaxglob2,parentarray, 
    740740     &       pttruetab,cetruetab,member,memberin,find_list_interp 
    741 #if defined AGRIF_MPI 
     741#if defined key_mpp_mpi 
    742742     &       ,tab4t,memberinall,sendtoproc1,recvfromproc1 
    743743#endif 
     
    766766     &                        child % var % root_var % interptab) 
    767767        
    768 #ifdef AGRIF_MPI 
     768#ifdef key_mpp_mpi 
    769769       IF (memberin) THEN 
    770770        Call Agrif_Parentbounds(TYPEinterp,nbdim,indmin,indmax, 
     
    810810      ELSE 
    811811       
    812 #if !defined AGRIF_MPI 
     812#if !defined key_mpp_mpi 
    813813      parentarray(:,1,1) = indminglob 
    814814      parentarray(:,2,1) = indmaxglob 
     
    885885            endif 
    886886 
    887 #ifdef AGRIF_MPI 
     887#ifdef key_mpp_mpi 
    888888      if (.not.find_list_interp) then 
    889889      tab3(:,1) = indminglob2(:) 
     
    936936     &   indminglob,indmaxglob,indminglob2,indmaxglob2,parentarray, 
    937937     &   pttruetab,cetruetab,member,memberin,nbdim 
    938 #if defined AGRIF_MPI 
     938#if defined key_mpp_mpi 
    939939     &   ,tab4t,memberinall,sendtoproc1,recvfromproc1 
    940940#endif 
     
    10341034     &                               lowerbound,upperbound,nbdim) 
    10351035 
    1036 #ifdef AGRIF_MPI 
     1036#ifdef key_mpp_mpi 
    10371037      Call Agrif_GlobtoLocInd2(childarray, 
    10381038     &                     lowerbound,upperbound, 
     
    10691069      if (torestore) then 
    10701070C 
    1071 #ifdef AGRIF_MPI 
     1071#ifdef key_mpp_mpi 
    10721072C 
    10731073        SELECT CASE (nbdim) 
     
    13011301C              
    13021302C     Deallocations 
    1303 #ifdef AGRIF_MPI         
     1303#ifdef key_mpp_mpi         
    13041304      IF (member) THEN 
    13051305      Call Agrif_nbdim_deallocation(tempP%var,nbdim) 
     
    21362136     &       pttruetab,cetruetab,member,memberin, 
    21372137     &      find_list_interp 
    2138 #if defined AGRIF_MPI 
     2138#if defined key_mpp_mpi 
    21392139     &     ,tab4t,memberinall,sendtoproc1,recvfromproc1 
    21402140#endif 
     
    21522152      LOGICAL :: member, memberin 
    21532153      INTEGER :: i 
    2154 #ifdef AGRIF_MPI 
     2154#ifdef key_mpp_mpi 
    21552155C 
    21562156      INTEGER,DIMENSION(nbdim,0:Agrif_Nbprocs-1,8) :: tab4t 
     
    21802180        cetruetab = parcours%interp_loc%cetruetab(1:nbdim) 
    21812181                 
    2182 #if !defined AGRIF_MPI 
     2182#if !defined key_mpp_mpi 
    21832183        indminglob = parcours%interp_loc%indminglob(1:nbdim) 
    21842184        indmaxglob = parcours%interp_loc%indmaxglob(1:nbdim) 
     
    22072207     &                          parentarray,pttruetab,cetruetab, 
    22082208     &                          member,memberin,nbdim 
    2209 #if defined AGRIF_MPI 
     2209#if defined key_mpp_mpi 
    22102210     &      ,tab4t,memberinall,sendtoproc1,recvfromproc1 
    22112211#endif 
     
    22212221      INTEGER,DIMENSION(nbdim,2,2) :: parentarray 
    22222222      LOGICAL :: member, memberin 
    2223 #ifdef AGRIF_MPI 
     2223#ifdef key_mpp_mpi 
    22242224C 
    22252225      INTEGER,DIMENSION(nbdim,0:Agrif_Nbprocs-1,8) :: tab4t 
     
    22432243 
    22442244      parcours%interp_loc%memberin = memberin 
    2245 #if !defined AGRIF_MPI 
     2245#if !defined key_mpp_mpi 
    22462246      parcours%interp_loc%indminglob(1:nbdim) = indminglob(1:nbdim) 
    22472247      parcours%interp_loc%indmaxglob(1:nbdim) = indmaxglob(1:nbdim) 
  • branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modmpp.F

    r1901 r1988  
    3030 
    3131      Contains 
    32 #ifdef AGRIF_MPI 
     32#ifdef key_mpp_mpi 
    3333      Subroutine Get_External_Data_first(pttruetab, 
    3434     &   cetruetab,pttruetabwhole,cetruetabwhole,nbdim,memberin, 
  • branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modsauv.F

    r1901 r1988  
    199199     &      Call Agrif_Free_list_interp(list_interp%suiv) 
    200200      
    201 #ifdef AGRIF_MPI 
     201#ifdef key_mpp_mpi 
    202202       Deallocate(list_interp%interp_loc%tab4t) 
    203203       Deallocate(list_interp%interp_loc%memberinall) 
  • branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modtypes.F

    r1901 r1988  
    276276      INTEGER,DIMENSION(6)    :: pttruetab,cetruetab 
    277277      logical :: member, memberin       
    278 #if !defined AGRIF_MPI       
     278#if !defined key_mpp_mpi       
    279279      integer,dimension(6) :: indminglob,indmaxglob 
    280280#else 
     
    408408      INTEGER               :: Agrif_USE_FIXED_GRIDS          
    409409C 
    410 #ifdef AGRIF_MPI 
     410#ifdef key_mpp_mpi 
    411411      INTEGER :: Agrif_Nbprocs  ! Number of processors 
    412412      INTEGER :: Agrif_ProcRank ! Rank of the current processor  
  • branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modupdate.F

    r1901 r1988  
    3737      Use Agrif_CurgridFunctions 
    3838      Use Agrif_Mask 
    39 #ifdef AGRIF_MPI 
     39#ifdef key_mpp_mpi 
    4040      Use Agrif_mpp 
    4141#endif 
     
    627627       
    628628C 
    629 #ifdef AGRIF_MPI 
     629#ifdef key_mpp_mpi 
    630630C 
    631631#include "mpif.h" 
     
    676676      INTEGER :: debloc, finloc 
    677677C 
    678 #ifdef AGRIF_MPI 
     678#ifdef key_mpp_mpi 
    679679C 
    680680      INTEGER,DIMENSION(nbdim)   :: lb,ub 
     
    740740C lubglob(:,2) : global lbound for each dimension 
    741741 
    742 #if !defined AGRIF_MPI 
     742#if !defined key_mpp_mpi 
    743743        Call Agrif_nbdim_Get_bound_dimension(child % var,lubglob(:,1), 
    744744     &               lubglob(:,2),nbdim) 
     
    817817       
    818818C 
    819 #ifdef AGRIF_MPI 
     819#ifdef key_mpp_mpi 
    820820C 
    821821#include "mpif.h" 
     
    866866      integer :: coeffraf 
    867867C 
    868 #ifdef AGRIF_MPI 
     868#ifdef key_mpp_mpi 
    869869C 
    870870      INTEGER,DIMENSION(nbdim)   :: lb,ub 
     
    907907      ENDDO 
    908908 
    909 #if !defined AGRIF_MPI       
     909#if !defined key_mpp_mpi       
    910910        Call Agrif_nbdim_Get_bound_dimension(child % var,lubglob(:,1), 
    911911     &               lubglob(:,2),nbdim) 
     
    10591059       
    10601060C 
    1061 #ifdef AGRIF_MPI 
     1061#ifdef key_mpp_mpi 
    10621062C 
    10631063#include "mpif.h" 
     
    11171117      INTEGER :: nbin, ndirin 
    11181118C 
    1119 #ifdef AGRIF_MPI 
     1119#ifdef key_mpp_mpi 
    11201120C 
    11211121      INTEGER,DIMENSION(nbdim)    :: indminglob2,indmaxglob2 
     
    11571157     &                     pttab_Parent, 
    11581158     &                     posvartab_Child,TypeUpdate,loctab_Child 
    1159 #ifdef AGRIF_MPI 
     1159#ifdef key_mpp_mpi 
    11601160     &                 ,pttruetabwhole,cetruetabwhole 
    11611161#endif 
    11621162     &     ) 
    11631163 
    1164 #ifdef AGRIF_MPI 
     1164#ifdef key_mpp_mpi 
    11651165      IF (memberin) THEN 
    11661166       Call Agrif_GlobtoLocInd2(childarray, 
     
    12661266C 
    12671267C 
    1268 #ifdef AGRIF_MPI 
     1268#ifdef key_mpp_mpi 
    12691269C 
    12701270C     tab2 contains the necessary limits of the parent grid for each processor 
     
    13911391      ENDIF 
    13921392 
    1393 #ifdef AGRIF_MPI 
     1393#ifdef key_mpp_mpi 
    13941394      Call Agrif_nbdim_Get_bound_dimension(parent%var, 
    13951395     &                              lowerbound,upperbound,nbdim) 
     
    14751475ccc     &    child % var % root_var % interptab(1:nbdim) .EQ. 'N' 
    14761476C 
    1477 #ifdef AGRIF_MPI 
     1477#ifdef key_mpp_mpi 
    14781478C 
    14791479c          Allocate(childvalues% var) 
     
    15131513      if (Agrif_UseSpecialValue) then 
    15141514C 
    1515 #ifdef AGRIF_MPI 
     1515#ifdef key_mpp_mpi 
    15161516C 
    15171517c          Call GiveAgrif_SpecialValueToTab_mpi(parent%var,tempP%var, 
     
    16781678 
    16791679      IF (memberin) THEN 
    1680 #ifdef AGRIF_MPI 
     1680#ifdef key_mpp_mpi 
    16811681      Call Agrif_nbdim_deallocation(tempP%var,nbdim) 
    16821682      Call Agrif_nbdim_deallocation(tempC%var,nbdim) 
     
    16851685!      Deallocate(tempP % var) 
    16861686      ENDIF 
    1687 #ifdef AGRIF_MPI 
     1687#ifdef key_mpp_mpi 
    16881688!      Deallocate(tempPextend%var) 
    16891689!      IF (.Not.memberin) Deallocate(tempCextend%var) 
     
    17061706     &                              posvartab_child,TypeUpdate, 
    17071707     &                              loctab_Child 
    1708 #ifdef AGRIF_MPI 
     1708#ifdef key_mpp_mpi 
    17091709     &                 ,pttruetabwhole,cetruetabwhole 
    17101710#endif 
     
    17201720       
    17211721C 
    1722 #ifdef AGRIF_MPI 
     1722#ifdef key_mpp_mpi 
    17231723cccccccccccccccccccccccccc#include "mpif.h" 
    17241724#endif 
     
    17381738      INTEGER :: i 
    17391739      REAL,DIMENSION(nbdim) :: dim_newmin,dim_newmax       
    1740 #ifdef AGRIF_MPI 
     1740#ifdef key_mpp_mpi 
    17411741      INTEGER,DIMENSION(nbdim)    :: pttruetabwhole,cetruetabwhole 
    17421742      REAL :: positionmin,positionmax 
     
    17591759     &        agrif_int((dim_newmax(i)-s_Parent(i))/ds_Parent(i)) 
    17601760C 
    1761 #ifdef AGRIF_MPI 
     1761#ifdef key_mpp_mpi 
    17621762        positionmin = s_Parent(i) + (indmin(i)- 
    17631763     &                          pttab_Parent(i))*ds_Parent(i) 
     
    18161816        s_Child_temp(i) = dim_newmin(i) 
    18171817 
    1818 #ifdef AGRIF_MPI 
     1818#ifdef key_mpp_mpi 
    18191819        s_Child_temp(i) = positionmin 
    18201820#endif 
     
    25212521      End Subroutine Agrif_Compute_nbdim_update 
    25222522  
    2523 #if defined AGRIF_MPI       
     2523#if defined key_mpp_mpi       
    25242524      Subroutine Agrif_Find_list_update(list_update,pttab,petab, 
    25252525     &                          pttab_Child,pttab_Parent,nbdim, 
  • branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modutil.F

    r1901 r1988  
    6262      External :: procname 
    6363C 
    64 #ifdef AGRIF_MPI 
     64#ifdef key_mpp_mpi 
    6565      Logical      :: mpi_was_called 
    6666      Integer      :: code, ierr 
     
    670670C             definition of the probdim and modtypes variables 
    671671C 
    672 #ifdef AGRIF_MPI 
     672#ifdef key_mpp_mpi 
    673673#include "mpif.h" 
    674674      Agrif_MPIPREC = MPI_DOUBLE_PRECISION 
  • branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/IOSERVER/mod_ioclient_para.F90

    r1897 r1988  
    1313  USE mpitrace 
    1414  USE mod_ioserver_namelist 
    15 #ifdef USE_OASIS 
     15#if defined key_oasis3 || defined key_oasis4 
    1616  USE mod_prism_get_comm   
    1717#endif 
     
    3535      oasis_server_id=server_id 
    3636      PRINT *,'prism_get_intracomm' 
    37 #ifdef USE_OASIS 
     37#if defined key_oasis3 || defined key_oasis4 
    3838      CALL prism_get_intracomm(Comm_client_server,oasis_server_id,ierr) 
    3939#endif 
  • branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/IOSERVER/mod_ioserver_para.F90

    r1897 r1988  
    2121  USE mpitrace 
    2222  USE mod_ioserver_namelist 
    23 #ifdef USE_OASIS 
     23#if defined key_oasis3 || defined key_oasis4 
    2424  USE mod_prism_get_comm  
    2525#endif  
     
    3939       oasis_server_id=server_id 
    4040       oasis_client_id=client_id 
    41 #ifdef USE_OASIS 
     41#if defined key_oasis3 || defined key_oasis4 
    4242       CALL prism_init_comp_proto (comp_id, oasis_server_id, ierr) 
    4343       CALL prism_get_intracomm(Comm_client_server,oasis_client_id,ierr) 
     
    8383  SUBROUTINE Finalize_parallel 
    8484  USE mod_ioserver_namelist 
    85 #ifdef USE_OASIS 
     85#if defined key_oasis3 || defined key_oasis4 
    8686  USE mod_prism_proto 
    8787#endif 
     
    9191     
    9292    IF (using_oasis) THEN 
    93 #ifdef USE_OASIS 
     93#if defined key_oasis3 || defined key_oasis4 
    9494      CALL prism_terminate_proto(ierr) 
    9595#endif 
  • branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/IOSERVER/mpi_mod.F90

    r1897 r1988  
    11MODULE mpi_mod 
    22 
    3 #ifdef NO_MPI 
     3#if ! defined key_mpp_mpi 
    44    LOGICAL, PARAMETER :: using_mpi=.FALSE. 
    55    INCLUDE 'ios_mpif.h' 
  • branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/IOSERVER/mpi_wrapper.F90

    r1897 r1988  
    33END SUBROUTINE void 
    44 
    5 #ifdef NO_MPI 
     5#if ! defined key_mpp_mpi 
    66 
    77SUBROUTINE MPI_ALLOC_MEM 
Note: See TracChangeset for help on using the changeset viewer.