Changeset 635
- Timestamp:
- 2007-03-07T14:26:45+01:00 (18 years ago)
- Location:
- trunk/NEMO
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/NST_SRC/agrif2model.F90
r533 r635 1 1 #if defined key_agrif 2 ! ************************************************************************** 3 !!! Subroutine Agrif_Set_numberofcells 4 ! ************************************************************************** 5 ! 6 Subroutine Agrif_Set_numberofcells(Agrif_Gr) 2 SUBROUTINE Agrif_Set_numberofcells(Agrif_Gr) 3 !!--------------------------------------------- 4 !! *** ROUTINE Agrif_Set_numberofcells *** 5 !!--------------------------------------------- 7 6 USE Agrif_Types 8 Implicit none 7 IMPLICIT NONE 8 9 9 Type(Agrif_Grid), Pointer :: Agrif_Gr 10 if ( associated(Agrif_Curgrid) )then 10 11 IF ( associated(Agrif_Curgrid) )THEN 11 12 #include "SetNumberofcells.h" 12 endif 13 End Subroutine Agrif_Set_numberofcells 14 ! 15 ! ************************************************************************** 16 !!! Subroutine Agrif_Get_numberofcells 17 ! ************************************************************************** 18 Subroutine Agrif_Get_numberofcells(Agrif_Gr) 13 ENDIF 14 15 END SUBROUTINE Agrif_Set_numberofcells 16 17 SUBROUTINE Agrif_Get_numberofcells(Agrif_Gr) 18 !!--------------------------------------------- 19 !! *** ROUTINE Agrif_Get_numberofcells *** 20 !!--------------------------------------------- 19 21 USE Agrif_Types 20 Implicit none 22 IMPLICIT NONE 23 21 24 Type(Agrif_Grid), Pointer :: Agrif_Gr 22 #include "GetNumberofcells.h" 23 End Subroutine Agrif_Get_numberofcells 24 ! 25 ! ************************************************************************** 26 !!! Subroutine Agrif_Allocationcalls 27 ! ************************************************************************** 28 Subroutine Agrif_Allocationcalls(Agrif_Gr) 25 26 #include "GetNumberofcells.h" 27 28 END SUBROUTINE Agrif_Get_numberofcells 29 30 SUBROUTINE Agrif_Allocationcalls(Agrif_Gr) 31 !!--------------------------------------------- 32 !! *** ROUTINE Agrif_Allocationscalls *** 33 !!--------------------------------------------- 29 34 USE Agrif_Types 30 35 #include "include_use_Alloc_agrif.h" 31 Implicit none 36 IMPLICIT NONE 37 32 38 Type(Agrif_Grid), Pointer :: Agrif_Gr 39 33 40 #include "allocations_calls_agrif.h" 34 End Subroutine Agrif_Allocationcalls 35 ! 36 ! ************************************************************************** 37 !!! Subroutine Agrif_probdim_modtype_def 38 ! ************************************************************************** 39 Subroutine Agrif_probdim_modtype_def() 40 Use Agrif_Types 41 Implicit none 41 42 END SUBROUTINE Agrif_Allocationcalls 43 44 SUBROUTINE Agrif_probdim_modtype_def() 45 !!--------------------------------------------- 46 !! *** ROUTINE Agrif_probdim_modtype_def *** 47 !!--------------------------------------------- 48 USE Agrif_Types 49 IMPLICIT NONE 50 42 51 #include "modtype_agrif.h" 43 52 #include "probdim_agrif.h" 44 53 #include "keys_agrif.h" 45 Return46 End Subroutine Agrif_probdim_modtype_def47 !48 ! **************************************************************************49 !!! Subroutine Agrif_clustering_def50 ! **************************************************************************51 Subroutine Agrif_clustering_def()52 Use Agrif_Types53 Implicit none54 54 55 55 Return 56 End Subroutine Agrif_clustering_def 56 57 END SUBROUTINE Agrif_probdim_modtype_def 58 59 SUBROUTINE Agrif_clustering_def() 60 !!--------------------------------------------- 61 !! *** ROUTINE Agrif_clustering_def *** 62 !!--------------------------------------------- 63 Use Agrif_Types 64 IMPLICIT NONE 65 66 Return 67 68 END SUBROUTINE Agrif_clustering_def 57 69 #else 58 subroutine Agrif2Model 59 write(*,*) 'Impossible to bet here' 60 end subroutine Agrif2model 70 SUBROUTINE Agrif2Model 71 !!--------------------------------------------- 72 !! *** ROUTINE Agrif2Model *** 73 !!--------------------------------------------- 74 WRITE(*,*) 'Impossible to bet here' 75 END SUBROUTINE Agrif2model 61 76 #endif -
trunk/NEMO/OPA_SRC/lib_mpp.F90
r629 r635 98 98 !! The processor number is a required power of two : 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024,... 99 99 INTEGER, PARAMETER :: & 100 nprocmax = 2**10, & ! maximun dimension 101 ndim_mpp = jpnij ! dimension for this simulation 100 nprocmax = 2**10 ! maximun dimension 102 101 103 102 #if defined key_mpp_mpi … … 416 415 npvm_tids(0) = npvm_mytid 417 416 npvm_me = 0 418 IF( ndim_mpp> nprocmax ) THEN417 IF( jpnij > nprocmax ) THEN 419 418 WRITE(ctmp1,*) 'npvm_mytid=', npvm_mytid, ' too great' 420 419 CALL ctl_stop( ctmp1 ) 421 420 422 421 ELSE 423 npvm_nproc = ndim_mpp422 npvm_nproc = jpnij 424 423 ENDIF 425 424 … … 536 535 ENDIF 537 536 ! --- END receive dimension --- 538 IF( ndim_mpp> nprocmax ) THEN537 IF( jpnij > nprocmax ) THEN 539 538 WRITE(ctmp1,*) 'mytid=',nt3d_mytid,' too great' 540 539 CALL ctl_stop( ctmp1 ) 541 540 ELSE 542 nt3d_nproc = ndim_mpp541 nt3d_nproc = jpnij 543 542 ENDIF 544 543 IF( mpparent_print /= 0 ) THEN -
trunk/NEMO/OPA_SRC/par_oce.F90
r511 r635 25 25 !! so jpiglo=jpi and jpjglo=jpj 26 26 27 INTEGER, PUBLIC, PARAMETER :: & !: 27 #if ! defined key_mpp_dyndist 28 INTEGER, PUBLIC, PARAMETER :: & !: 28 29 jpni = 1, & !: number of processors following i 29 30 jpnj = 1, & !: number of processors following j 30 jpnij = 1 , &!: nb of local domain = nb of processors31 jpnij = 1 !: nb of local domain = nb of processors 31 32 ! ! ( <= jpni x jpnj ) 33 #else 34 INTEGER, PUBLIC :: & ! 35 jpni , & !: number of processors following i 36 jpnj , & !: number of processors following j 37 jpnij !: nb of local domain = nb of processors 38 ! ! ( <= jpni x jpnj ) 39 #endif 40 41 INTEGER, PUBLIC, PARAMETER :: & !: 32 42 jpr2di = 0, & !: number of columns for extra outer halo 33 43 jpr2dj = 0, & !: number of rows for extra outer halo
Note: See TracChangeset
for help on using the changeset viewer.