Changeset 2996
- Timestamp:
- Jul 18, 2023, 9:57:21 AM (17 months ago)
- Location:
- trunk
- Files:
-
- 1 deleted
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.COMMON/libf/dynphy_lonlat/mod_interface_dyn_phys.F90
r1572 r2996 26 26 index_j(k)=1 27 27 k=2 28 ! handle very specific case of 1D "parallel" setup 29 if (klon_mpi==1) k=1 28 30 ELSE 29 31 DO i=ii_begin,iim -
trunk/LMDZ.COMMON/makelmdz_fcm
r2985 r2996 610 610 then 611 611 ## Sanity check: 1D models should be used in serial 612 if [[ $parallel != "none" ]] 613 then 612 ## unless compiled with xios and then it should be in mpi only 613 if [[ $io == xios ]] 614 then 615 echo "OK io xios" 616 if [[ $parallel != "mpi" ]] 617 then 618 echo "Error: a 1D model compiled with xios should also be compiled with " 619 echo " -parallel mpi option!" 620 exit 621 fi 622 else 623 # no xios, check that it is in serial only 624 if [[ $parallel != "none" ]] 625 then 614 626 echo "Error: a 1D model should not be compiled with " 615 627 echo " -parallel [mpi|omp|mpi_omp] option!" 616 628 exit 617 fi 629 fi 630 fi # of if [[ $io == "xios" ]] 618 631 CPP_KEY="$CPP_KEY CPP_1D" 619 632 ##in 1D, add dyn3d to include path (because main prog is in physics) … … 682 695 then 683 696 SUFF_NAME=${SUFF_NAME}_para 684 DYN=dyn${dimc}d${paramem} 697 if (( $dimension == 1 )) 698 then 699 # dynamics-related routines in"dyn1d" subdirectory of phy${physique} 700 DYN=phy${physique}/dyn1d 701 else 702 DYN=dyn${dimc}d${paramem} 703 fi 685 704 if [[ "$paramem" == "mem" ]] 686 705 then
Note: See TracChangeset
for help on using the changeset viewer.