Changeset 1279 for LMDZ4/trunk/libf/dyn3dpar/parallel.F90
- Timestamp:
- Dec 10, 2009, 10:02:56 AM (15 years ago)
- Location:
- LMDZ4/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk
- Property svn:mergeinfo changed
/LMDZ4/branches/LMDZ4-dev merged: 1150-1162,1164-1193,1195-1231,1234-1235,1237-1240,1242-1274,1276
- Property svn:mergeinfo changed
-
LMDZ4/trunk/libf/dyn3dpar/parallel.F90
r1146 r1279 1 ! 2 ! $Id$ 3 ! 1 4 module parallel 2 5 USE mod_const_mpi … … 33 36 #include "dimensions.h" 34 37 #include "paramet.h" 35 38 #include "iniprint.h" 39 36 40 integer :: ierr 37 41 integer :: i,j … … 83 87 if (jj_nb_para(i) <= 2 ) then 84 88 85 print *,"Arret : le nombre de bande de lattitude par process est trop faible (<2)."86 print *," ---> diminuez le nombre de CPU ou augmentez la taille en lattitude"89 write(lunout,*)"Arret : le nombre de bande de lattitude par process est trop faible (<2)." 90 write(lunout,*)" ---> diminuez le nombre de CPU ou augmentez la taille en lattitude" 87 91 88 92 #ifdef CPP_MPI … … 127 131 endif 128 132 129 print *,"jj_begin",jj_begin130 print *,"jj_end",jj_end131 print *,"ij_begin",ij_begin132 print *,"ij_end",ij_end133 write(lunout,*)"init_parallel: jj_begin",jj_begin 134 write(lunout,*)"init_parallel: jj_end",jj_end 135 write(lunout,*)"init_parallel: ij_begin",ij_begin 136 write(lunout,*)"init_parallel: ij_end",ij_end 133 137 134 138 !$OMP PARALLEL … … 185 189 use mod_prism_proto 186 190 #endif 191 #ifdef CPP_EARTH 192 ! Ehouarn: surface_data module is in 'phylmd' ... 187 193 use surface_data, only : type_ocean 188 194 implicit none 195 #else 196 implicit none 197 ! without the surface_data module, we declare (and set) a dummy 'type_ocean' 198 character(len=6),parameter :: type_ocean="dummy" 199 #endif 200 ! #endif of #ifdef CPP_EARTH 189 201 190 202 include "dimensions.h" … … 415 427 implicit none 416 428 #include "dimensions.h" 417 #include "paramet.h" 429 #include "paramet.h" 430 #include "iniprint.h" 418 431 #ifdef CPP_MPI 419 432 include 'mpif.h' … … 436 449 call Pack_Data(Field(ij_begin,1),ij,ll,min(jj_end,jjm)-jj_begin+1,Buffer_send) 437 450 else 438 print *,ij451 write(lunout,*)ij 439 452 stop 'erreur dans Gather_Field' 440 453 endif
Note: See TracChangeset
for help on using the changeset viewer.